고캐드 사이트 접한건 천운이네요 유요한 정보 감사합니다.
리습을 알고싶습니다.
아래 첨부처럼 각 라인 및 텍스트에 색을 넣고 싶습니다.
질문 1) 텍스트를 다 칼러로 선택할게 아니라 해당되는 조건에서 선택이 되고자합니다.
문자(Text) 중에서 글자수가 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)
)
어려운건 아닌데 시간이 없죠. ㅠ.ㅠ
뭐하나님 항상 답변에 감사드립니다
블럭 이나 사각박스 동그라미 안에 있는텍스트를 선택 해야하는데 아쉽네요.
혹시 그외에것을 리습은 안되나요? 텍스트 15자이상인 문자만 선택 하는 리습과 본문에서의 질문2도
리습 짜기가 어려운지 알려주실수있나요?
블럭 속 텍스트를 선택해서 다른 작업을 하시려나본데요.
속성을 바꾸거나 가져올 수 는 있어도 선택을 할 수는 없죠;;
이런 리습은 없나보네요 인터넷 뒤지고있는데도 찾기가 쉽지가 않네요. 혹시 리습 배우는 초보따라하기 책 좀 추천해주실수있을까요?