인벤터로 1차 작업 후 CAD 도면으로 작업 하고있습니다.
그런데 한글을 쓰려다 보니 인벤터 폰트와 CAD 폰트가 상이하여
도면 변환 만 하면 인벤터에서는 1줄이었는데 CAD 에서는 두줄로
변경되는 문제가 발생하고 있습니다.
(둘다 AotoDesk 인데!!!!!!!!!!!! ㅜㅜ)
그래서 저는 항상 도면 변환 후 도면내에 모든 다중행 문자를 선택해서
“정의된 폭”을 0 으로 바꾸는 노가다 작업을 항상 하고 있습니다.
LISP을 만드려고 해도 아무리 공부를해도… 도저히 풀리지 않는 숙제 내요…ㅜㅜ
혹시 가능하시다면 능력자 분들은 도면 내 여러줄(다중행) 문자를 모두 선택하여
“설정된 폭” 을 0(Zero)로 만드는 LISP 만들수 있을까요?
=추가=
도면 내 여러줄 문자만 선택하는 LISP 작성 시 TEXT로 하니까 DTEXT도 같이 선택되는데
이것도 해결 가능 할까요?
내영혼의외침Lv.0
도면 내 여러줄(다중행) 문자를 모두 선택하여 “설정된 폭” 을 0(Zero)로 만드는 LISP 만들수 있을까요?
공유
*TEXT 로 하지마시고 TEXT로만 하면
DTEXT 나 MTEXT는 선택이 되지 않습니다.
이걸로 해보세요.
(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)
우왓!! 감사 합니다. 일단 댓글 적고 TEST 후 결과 올리겠습니다.
좋은 리습 감사합니다. 그런데 혹시 선택한 객체의 값을 변경하도록 해주셨는데
범위를 선택하지 않고 도면 전체의 다중행 문자를 변경하는 방법이 있을까요?
그 정돈 조금만 공부하셨어도 아실텐데… (ssget “x” ‘((0 . “MTEXT”)))
ㅠㅠ 공부를 한다는게 다른 사람들 만들어 논걸로 분석 하는 수준이라.. ㅜ ㅜ