MTEXT 일괄수정 관련 문의드립니다.
지적도를 받았는데 MTEXT입니다.
이 mtext를 일괄적으로 크기 및 글씨 속성을 변경하고싶습니다.
아래와 같이 여러방법을 해봤지만… 별다른 방법을 못찾아 문의드립니다.
1. 문자 같은경우 보통은 일괄로 여러개 잡고 속성창에서 글씨모양이라던지 크기를 수정해주면 한번에 바뀌어지는데 여러줄문자 같은경우는 적용이 안됨..
2. mtext를 블록 폭파하듯이 x를 눌러보니 ‘123대’ 라고 표현되어 있는 부분인 ‘123’ / ‘대’ 이렇게 두가지로 나누어져서 폭파가 되더라구요.
(한두개도 아니고…. 몇백개씩 되는 문자가 …저렇게 되면… 글씨크기를 줄이게 되면 각자 따로 따로 놀아서..정리하는 것도.큰일 입니다. ㅜㅜ)
어떤 좋은 방법으로 번거롭지 않게 MTEXT를 일괄적으로 수정할수 있을까요?
도와주세용
쩡쩡잉Lv.0
MTEXT 일괄수정 관련 문의드립니다.
공유
위에 작성해 주신대로 명령어 창에 붙여넣으면 되는건가욤?
혹시나 해서 바로 붙여넣어 놓고 엔터를 쳐봤지만 아무런 반응이…없어서…
어지 사용하는것인가요?
(defun c:test()
(setq ts(ssget “_:L” (list (cons 0 “*text”))))
(setq l(sslength ts))
(setq sz(getreal”n Text Size : “))
(setq i 0)
(setq l1(- l 1))
(while (<= i l1)
(setq t1(ssname ts i))
(setq t2(entget t1))
(setq t0(cdr (assoc 0 t2)))
(cond ((or (= “MTEXT” t0) (= “TEXT” t0))
(setq h sz)
(setq t2(subst (cons 40 h)(assoc 40 t2) t2))
(entmod t2))
(t nill)
)
(setq i(+ i 1))
)
)
리습을 사용하세요