(defun c:az (/ ent obj ss)
(and
(setq ent (entsel “n기준 블럭 선택: “))
(setq obj (vlax-ename->vla-object (car ent)))
(= (vla-get-objectname obj) “AcDbBlockReference”)
(setq ss (ssget “_x”(list (cons 0 “insert”)(cons 2 (vla-get-name obj)))))
(sssetfirst nil ss)
)
)
위에 리습입니다만.
결과적으로 전 영역에서 블록이 선택되는데요..
원하는 영역만 선택하게 할순 없을까요??
정말 감사합니다 ^^