고캐드 사이트 접한건 천운이네요 유요한 정보 감사합니다.
리습을 알고싶습니다.
아래 첨부처럼 각 라인 및 텍스트에 색을 넣고 싶습니다.
질문 1) 텍스트를 다 칼러로 선택할게 아니라 해당되는 조건에서 선택이 되고자합니다.
문자(Text) 중에서 글자수가 15자 이상이거나 블럭이나 그룹안에 있는 텍스트만 선택하고싶습니(범위지정).
실행- 명령키 입력 엔터 마우스 드래그 라인과 텍스트 무부별로 범위지정했을때 위조건에 해당되는 값만 선택이 될 수 있도록 부탁드립니다.
질문 2)도면내 모든 블럭 과 그룹 만 선택 하고싶습니다. 범위지정.(텍스트 문자 제외)
실행 명령키 입력 마우스드래그 범위내 모든 블럭과 그룹만 선택
감사합니다
공유
이런 리습은 없나보네요 인터넷 뒤지고있는데도 찾기가 쉽지가 않네요. 혹시 리습 배우는 초보따라하기 책 좀 추천해주실수있을까요?
블럭 속 텍스트를 선택해서 다른 작업을 하시려나본데요.
속성을 바꾸거나 가져올 수 는 있어도 선택을 할 수는 없죠;;
뭐하나님 항상 답변에 감사드립니다
블럭 이나 사각박스 동그라미 안에 있는텍스트를 선택 해야하는데 아쉽네요.
혹시 그외에것을 리습은 안되나요? 텍스트 15자이상인 문자만 선택 하는 리습과 본문에서의 질문2도
리습 짜기가 어려운지 알려주실수있나요?
(defun c:1( / LM:ss->ent ss s)
(defun LM:ss->ent ( ss / i l )
(if ss
(repeat (setq i (sslength ss))
(setq l (cons (ssname ss (setq i (1- i))) l))
)
)
)
(if (setq ss (ssadd) s (ssget ‘((0 . “TEXT,MTEXT”))))
(progn
(foreach e (LM:ss->ent s)
(if (>= (strlen (cdr (assoc 1 (entget e)))) 15)
(setq ss (ssadd e ss))
)
)
(sssetfirst nil ss)
)
)
(princ)
)
(defun c:2( / LM:ss->ent ss s el)
(defun LM:ss->ent ( ss / i l )
(if ss
(repeat (setq i (sslength ss))
(setq l (cons (ssname ss (setq i (1- i))) l))
)
)
)
(if (setq ss (ssadd) s (ssget))
(progn
(foreach e (LM:ss->ent s)
(setq el (entget e))
(if
(or
(= (cdr (assoc 0 el)) “INSERT”)
(= (cdr (assoc 0 (entget (cdr (assoc 330 el))))) “GROUP”)
)
(setq ss (ssadd e ss))
)
)
(sssetfirst nil ss)
)
)
(princ)
)
어려운건 아닌데 시간이 없죠. ㅠ.ㅠ
이렇게 어려운걸 어찌 이리 쉽게하시다니 부러울 뿐입니다.
항상 배움에 감사합니다. 즐거운 하루 보내세요~