성심 성의껏 질문을 작성하여 주세요, 대충하시면 답변도 대충작성합니다.^^
- 제목 작성시 금지어
만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등
- 특정분과 질문은 제목에 분과삽입 [건축]
좋은예) [분과]무엇에 대해 문의합니다. /[분과]B로 바꾸는 방법을 알고싶습니다.
- 말머리 필수
① CAD 종류 : 오토캐드
② VERSION : 2011
③ 운영 체제 :xp
(nentsel)이란 함수를 알게 되어 이걸 응용하여 텍스트 변경 리습을 만들었습니다!
변경할 기준문자 (text,mtext,치수문자,블럭내부문자,속성문자)를 선택후 mtext,text엔 변경적용이 가능하게 하였으나 block, 속성블럭에는 적용을 하지 못하였습니다.
block, 속성블럭에 적용가능하게 고수 님들의 도움 부탁 드립니다.
(defun c:xxx(/ ss text tex ent1 ed ed1 j)
(princ " \n>> 선택된 문자를 모두 동일한 문자 내용으로 변경합니다")
(princ "\n변경할 기준문자중 블럭 선택시 텍스트의 위치를 선택 해야 함 ")
(setq ss nil text nil ent1 nil)
(while (= nil ss)
(while (= nil text)
(setq ss (nentsel))
(setq ed (entget (car ss)))
(setq text (assoc 1 ed))
(setq tex (cdr (assoc 1 ed)))
(if (not text) (prompt "\n>>객체를 다시 선택해주세염"))
)
)
(prompt "\n 변경할 문제를 다시 선택 하시오:")
(while (= ent1 nil) (setq ent1 (ssget (list (cons 0 "text,mtext"))))
(if (= ent1 nil) (prompt "\n>> 변경할 문제를 다시 선택 하시오:>>:"))
);while
(setq j 0)
(repeat (sslength ent1)
(setq ed1 (entget (ssname ent1 j)))
(entmod (subst (cons 1 tex) (assoc 1 ed1) ed1))
(setq j (1+ j))
)
(princ)
)
위리습은 기존의 리습을 수정한것이며, 리습 공부겸 현업에 조그미나마 도움이 되고자 보완 작업중입니다.
[00 자작리습] 텍스트선택변경.lsp
※ 유의사항
- ①말머리 : 말머리를 달아야 구분이 쉽겠죠^^
- ②Screenshot : 이해를 돕기위해 삽입요망.
- ③파일 첨부 : 상위버전에서 테스트할 파일이 아니면 가급적 하위버전으로 저장후 첨부.
해당리습/해당파일(DWG) 도 같이 첨부하여 주세요.
- ④제 목 : 질문 내용 반영(개략적인 내용), 예) 해치를 만들고 싶어요, pline을 연결할려면?
- ⑤질문글 삭제금지 : 질문후 댓글이 달린글은 삭제금지.
여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음.
※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.
회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해
검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.
이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다.
