같은 이름을 가진 블록을 선택하는 리습니다.
QSELECT 기능으로 하는 방법도 있지만,
한번 하는데 오래걸리는 단점이 있어, 리습으로 있는걸 끌올합니다.
블록 사용 많이 하시는 분들은 좋은 기능이에요.
감사합니다.
——————————————————–
(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)
)
)