안녕하세요.
리습 관련 초보여서 2~3시간 손 봐도 안되서 부끄럽지만 질문 드려요
(defun c:-005 (/ txt1 txt2 kk1 kk3 stl sw1 d)
(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 d (getvar “dimaso”))
(if (/= kk3 “”)
(setq sw1 “{\H0.54x;\W0.9;\C2;\S+0^-0.005;}”)
(setq sw1 “{<>\H0.54x;\W0.9;\C2;\S+0^-0.005;}”)
(setq sss (strcat kk3 sw1)
txt2 (subst (cons 1 sss) kk1 txt2))
(entmod txt2)
(setq i1 (+ 1 i1)) )
(setq t2 nil t1 nil)
(princ)
)
위에가 공차 넣는 리습인데요. 여기에다가
(defun c:dui(/ss dui @dec) ;명령어-DUI
(prompt “n치수를 선택하세요..”)
(setq @dec (getvar “dimdec”))
(setq ss (ssget (list (cons 0 “dimension”))))
(setq dec 3)
(if dec (progn (setvar “dimdec” dec) (command “dim1” “up” ss “”)))
(setvar “dimdec” @dec)
(princ)
) ;defun
소수점 변경 하는 리습 이것을 껴넣어서 명령어 하나로 실행되게 하고 싶은데요.
도중에 껴보고 해도 하나만 인식하는데 방법 없을까요?? 머리상으로는 그리 어렵지 않을꺼 같은데ㅠㅠ
답변 해주시면 감사드립니다!!