원하는 객체 선택 기능인데.
필요하신분 사용하세요
그리고 이것말고 더 좋게 사용할수 있는 방법 있나요??
———————————————————
(defun c:123 ( / i ss )
(if (setq i (getint “Line(1) Polyline(11) Text(2) MText(22) DIM(3) LEADER(33) BLOCK(4) Cicle(5) Spline(6) “))
(progn
(setq ss
(cond
( (= i 1) (ssget ‘((0 . “LINE” ))))
( (= i 11) (ssget ‘((0 . “LWPOLYLINE”))))
( (= i 2) (ssget ‘((0 . “TEXT” ))))
( (= i 22) (ssget ‘((0 . “MTEXT”))))
( (= i 3) (ssget ‘((0 . “DIMENSION”))))
( (= i 33) (ssget ‘((0 . “LEADER”))))
( (= i 4) (ssget ‘((0 . “INSERT”))))
( (= i 5) (ssget ‘((0 . “CIRCLE”))))
( (= i 6) (ssget ‘((0 . “SPLINE”))))
)
)
(sssetfirst nil ss)
)
)
)
qselect는 좀 번거롭다면…
헐.. 이런 기능 처음 알았네요…