안녕하십니까
아래 리습을 선택한 블럭만 이동하는 건데요…
화면에서 ssget으로 선택한 곳에 이름이 다른 모든 블럭을 이동할수 없나요..
아무리 해도 잘 안되네요…^^*
답변 부탁드립니다..
수고하십시오
(defun c:moveblock()
(if (setq ent (entsel “nSelect block : “)) (progn
(setq entlist (entget (car ent))
entname (cdr (assoc 0 entlist))
blname (cdr (assoc 2 entlist)))
(if (= entname “INSERT”)
(setq sel (ssget (list ‘(0 . “INSERT”) (cons 2 blname))))
)
))
(command “move” sel “” pause pause)
)