안녕하십니까
치수작업시 dimaso off해서 전 작업을 많이 합니다..
아래 리습은 제가 off시 공차넣는 리습입니다
하지만 이제는 dimaso on시 공차를 넣고 싶은데 잘 안됩니다
공차를 text형태로 넣고 싶거던요..
ddim에서 넣은 그런 공차가 아니고요..
치수와 공차가 연관성이 없는 그냥 text형태로 넣고 싶습니다
근데 치수를 edit시 치수부분은 블럭화(음영처리) 되어 있어서 그 부분이 제어가 안됩니다
고수님들의 한수 부탁드립니다
수고하십시오
;;;;;공차 시작 +0.5
;;;;;; +0.3
(defun c:tu0503 (/ txt1 txt2 kk1 kk3 stl sw1)
(setvar “cmdecho” 0)
(prompt “n==>공차기입할 문자를 선택하시오(MTEXT만 해당)”)
(setq txt1 (ssget) tl1 (sslength txt1) i1 0)
(COMMAND “justifytext” txt1 “” “ml”)
(while (< i1 tl1)
(setq txt2 (entget (ssname txt1 i1))
kk1 (assoc 1 txt2) kk3 (cdr kk1)
)
(setq sw1 “{\H0.54x;\W0.9;\C7;\S+0.5^+0.3;}”)
(setq sss (strcat kk3 sw1)
txt2 (subst (cons 1 sss) kk1 txt2)) (entmod txt2)
(setq i1 (+ 1 i1)) )
(setq t2 nil t1 nil)
(princ)