문자만 드레그해서 선택 할수 있는 리습 있나요?
컨텐츠 정보
- 233 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요.
고캐드에서 좋은 정보를 많이 얻어가고 있는 기계설계자 입니다.
다름이 아니라 문자만 선택 할수 있는 방법이
QSELECT 명령어 말고
혹시 드레그 해서 선택할수 있는 리습이 있을까 싶어 질문 드립니다.
통합검색에 문자,텍스트,text,글자 등등 검색은 해봤지만 제가 못 찾는것인지 찾을수가 없네요.
예전에 지시선 및 치수선은 드레그로 선택 할수 있는 리습을 받아서 잘 사용중이라.
그것이랑 비슷한 글자만 선택할수있는 리습도 있지 않을까 싶어서 이렇게 질문 드립니다.
아니면 제가 모르고 있는 명령어나 방법이 있으면 좀 알려주시면 감사하겠습니다.
관련자료
짝퉁캐드님의 댓글
드레그로 원하는 것만 선택 할 수 있는 리습입니다.
(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))