안녕하십니까
아래 리습은 dimaso off시 text지름을 넣는 리습입니다
하지만 dimaso on시 제어가 잘 안됩니다
답변좀 부탁드립니다
수고하십시오
(defun c:piadd ()
(setvar “cmdecho” 0)
(command “explode” txt1)
(prompt “nSelect text to add pi “)
(setq txt1 (ssget) tl1 (sslength txt1) i1 0)
(while (< i1 tl1)
(setq txt2 (entget (ssname txt1 i1))
kk1 (assoc 1 txt2) kk3 (cdr kk1)
stl (cdr (assoc 7 txt2)) )
(cond ((or (= stl “HN”) (= stl “MDH”)) (setq sw1 “%%131”))
(T (setq sw1 “%%c”)))
(setq sss (strcat sw1 kk3)
txt2 (subst (cons 1 sss) kk1 txt2)) (entmod txt2)
(setq i1 (+ 1 i1)) )
(setq t2 nil t1 nil)
(prin1))