안녕하십니까
같은 이름 블럭을 전체 이동하는 리습이 있는데요..
이 리습은 블럭이 화면 전체에서 모든 블럭이 이동이 되는데..
ssget으로 화면에서 선택한 같은 블럭만 이동되게 할수 없나요?
초보라서 아무리 할려고 해도 잘 안되네요…^^*
답변부탁드립니다…
수고하십시오
(defun c:moveblock( / ent entname blname entlist sel)
(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 “X” (list ‘(0 . “INSERT”) (cons 2 blname))))
)
))
(command “move” sel “” “” )
)