||||
케드마스도 그리나쁘지 않은데....//
쓰는거 하나올릴께요.

(defun c:TO()
(SETQ a (entsel "\nSelect: "))
(COMMAND "DIMTFAC" "0.8")
(setq tp (getvar "dimtol"))
(setvar "dimtol" 1)
(setvar "dimtzin" 8)
(setq tp (getreal " Enter DIMTP Values (+ tol)" ))
(setvar "dimtp" tp)
(setq tp (getreal " Enter DIMTM Values (- tol)" ))
(setq tp(* tp -1))
(setvar "dimtm" tp)
(command "dim1" "update" a "" "dimtol" "0")
(princ)
)
이 게시물을...