문자만 드레그해서 선택 할수 있는 리습 있나요?

(defun c:at( / ss  )

  (prompt "n텍스트필터링-객체세트를 선택")   (setq ss (ssget (list (cons 0 "text"))))   (sssetfirst nil ss) (princ) )

드레그로 원하는 것만 선택 할 수 있는 리습입니다.

(defun c:ss(/ en ed ky dblist ss                     db1 db2 db3 db4 db5 db6 db7 db8 db9                     tg1 tg2 tg3 tg4 tg5 tg6 tg7 tg8 tg9                     tog1 tog2 tog3 tog4 tog5 tog6 tog7 tog8 tog9)

   (prompt "…그립으로 선택하기")    (setq en (car (entsel "n객체선택->")))    (setq ed (entget en))    (setq db1 (assoc 0 ed)) ;"Entity"    (setq db2 (assoc 1 ed)) ;"Text"    (setq db3 (assoc 2 ed)) ;"Block"    (setq db4 (assoc 3 ed)) ;"dimstyle"    (setq db5 (assoc 6 ed)) ;"LType"    (setq db6 (assoc 7 ed)) ;"Style"    (setq db7 (assoc 8 ed)) ;"LAyer"    (setq db8 (assoc 40 ed)) ;"height"    (setq db9 (assoc 62 ed)) ;"Color"    (if (/= (cdr db1) "TEXT") (setq db8 nil))

;dcl start->    (setq dcl_id (load_dialog "c:/ezqcad/ezqdcl/ss.dcl"))    (setq ky 4 ky1 4          tg1 "1″ tg2 "0″ tg3 "0″ tg4 "0″ tg5 "0″ tg6 "0″ tg7 "0″ tg8 "0″ tg9 "0″)    (if (not (new_dialog "grip_select" dcl_id)) (exit))    (set_tile "tog1″ tg1)(set_tile "dbk1″ (cdr db1))    (if (= db2 nil) (progn (set_tile "dbk2″ " ") (mode_tile "tog2″ 1))                         (set_tile "dbk2″ (cdr db2)))    (if (= db3 nil) (progn (set_tile "dbk3″ " ") (mode_tile "tog3″ 1))                         (set_tile "dbk3″ (cdr db3)))    (if (= db4 nil) (progn (set_tile "dbk4″ " ") (mode_tile "tog4″ 1))                         (set_tile "dbk4″ (cdr db4)))    (if (= db5 nil) (progn (set_tile "dbk5″ " ") (mode_tile "tog5″ 1))                         (set_tile "dbk5″ (cdr db5)))    (if (= db6 nil) (progn (set_tile "dbk6″ " ") (mode_tile "tog6″ 1))                         (set_tile "dbk6″ (cdr db6)))    (if (= db7 nil) (progn (set_tile "dbk7″ " ") (mode_tile "tog7″ 1))                         (set_tile "dbk7″ (cdr db7)))    (if (= db8 nil) (progn (set_tile "dbk8″ " ") (mode_tile "tog8″ 1))                         (set_tile "dbk8″ (rtos (cdr db8) 2 0)))    (if (= db9 nil) (progn (set_tile "dbk9″ " ") (mode_tile "tog9″ 1))                         (set_tile "dbk9″ (itoa (cdr db9))))    (action_tile "tog1″ "(setq tg1 $value)")    (action_tile "tog2″ "(setq tg2 $value)")    (action_tile "tog3″ "(setq tg3 $value)")    (action_tile "tog4″ "(setq tg4 $value)")    (action_tile "tog5″ "(setq tg5 $value)")    (action_tile "tog6″ "(setq tg6 $value)")    (action_tile "tog7″ "(setq tg7 $value)")    (action_tile "tog8″ "(setq tg8 $value)")    (action_tile "tog9″ "(setq tg9 $value)")    (action_tile "but1″ "(setq ky 9)(done_dialog)")    (action_tile "but2″ "(setq ky 9 ky1 9)(done_dialog)")    (action_tile "but3″ "(done_dialog)")    (start_dialog) ; <-dcl end

   (if (= ky 9)(progn       (setq dblist '())       (setq dblist (list (cons 410 (getvar "ctab"))))       (if (= tg9 "1″) (setq dblist (cons db9 dblist) )   )       (if (= tg8 "1″) (setq dblist (cons db8 dblist) )   )       (if (= tg7 "1″) (setq dblist (cons db7 dblist) )   )       (if (= tg6 "1″) (setq dblist (cons db6 dblist) )   )       (if (= tg5 "1″) (setq dblist (cons db5 dblist) )   )       (if (= tg4 "1″) (setq dblist (cons db4 dblist) )   )       (if (= tg3 "1″) (setq dblist (cons db3 dblist) )   )       (if (= tg2 "1″) (setq dblist (cons db2 dblist) )   )       (if (= tg1 "1″) (setq dblist (cons db1 dblist) )   )       (if (= ky1 9)          (setq ss (ssget dblist))          (setq ss (ssget "x" dblist)))       (sssetfirst nil ss) (terpri)       (prin1 dblist) (prompt "n동일객체…")       (prin1 (sslength ss)) (prompt "개가 선택됨")       )       (prompt "n>>선택취소")    ) (prin1))

아…필터 자체도 써본적이 없었는데 써보니 좋네요…덕분에 좋은것 알게되었습니다. 감사합니다.

FILTER  사용하시면 .. 특성으로 모든것을 선택할수있습니다. 예) 지시선.치수선.텍스트.문자스타일.문자높이.라인타입.색상.레이어 등등..