랜덤으로 지정 불럭이름 바꾸기 리습입니다 혹시 블록속에 블록도 선택이 되어서 이름이 바꿀수있게 만들어 줄수 없나요 고수님들 부탁드립니다
(defun c:iM(/ os ent elist ins)
(setq os (getvar “osmode”))
(setq rname (getvar “cdate”))
(if (setq ent (car (entsel “nBlock select:”)))
(progn (setq elist (entget ent))
(setq obn (cdr (assoc 2 elist)))
(setq ins (cdr (assoc 10 elist)))
(command “explode” ent)
(setvar “osmode” 0)
(command “_.block” rname ins “P” “”)
(command “_.insert” rname ins “” “” “”)
(setvar “osmode” os)
(princ “블록이름: “)(princ obn)(princ ” –> “)(princ rname)(princ ” 로 교체함”)
);progn
);if
(princ)
);defun