도면 내 여러줄(다중행) 문자를 모두 선택하여 "설정된 폭" 을 0(Zero)로 만드는 LISP 만들수 있을까요?
컨텐츠 정보
- 481 조회
- 6 댓글
- 0 추천
- 0 비추천
- 목록
본문
인벤터로 1차 작업 후 CAD 도면으로 작업 하고있습니다.
그런데 한글을 쓰려다 보니 인벤터 폰트와 CAD 폰트가 상이하여
도면 변환 만 하면 인벤터에서는 1줄이었는데 CAD 에서는 두줄로
변경되는 문제가 발생하고 있습니다.
(둘다 AotoDesk 인데!!!!!!!!!!!! ㅜㅜ)
그래서 저는 항상 도면 변환 후 도면내에 모든 다중행 문자를 선택해서
"정의된 폭"을 0 으로 바꾸는 노가다 작업을 항상 하고 있습니다.
LISP을 만드려고 해도 아무리 공부를해도… 도저히 풀리지 않는 숙제 내요…ㅜㅜ
혹시 가능하시다면 능력자 분들은 도면 내 여러줄(다중행) 문자를 모두 선택하여
"설정된 폭" 을 0(Zero)로 만드는 LISP 만들수 있을까요?
=추가=
도면 내 여러줄 문자만 선택하는 LISP 작성 시 TEXT로 하니까 DTEXT도 같이 선택되는데
이것도 해결 가능 할까요?
관련자료
뭐하남님의 댓글
이걸로 해보세요. (defun c:123 ( / ss acDoc i e) (if (setq ss (ssget "_:L" '((0 . "MTEXT")))) (progn (setq acDoc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark acDoc) (repeat (setq i (sslength ss)) (setq e (entget (ssname ss (setq i (1- i)))) e (subst '(41 . 0.0) (assoc 41 e) e) e (append e '((75 . 0))) ) (entmod e) ) (vla-endundomark acDoc) (vlax-release-object acDoc) ) ) (princ) ) (vl-load-com)