有一件事：您必须在命令提示下手动输入“TEST”以相应地设置DIMSCALE。
(defun C:TEST () ; replace "TEST" to a suitable name
(if (or (= (getvar "insunits") 4) (= (getvar "insunits") 6))
(progn
(if (= (getvar "insunits") 4)
(setvar "dimscale" (/ 1.0 (getvar "CANNOSCALEVALUE")))
(setvar "dimscale" (/ 0.001 (getvar "CANNOSCALEVALUE")))
)
)
(princ "\nYour drawing units need to be set to metres or millimetres.")
)
(princ)
)
(princ "\nUse TEST to auotomatically set DIMSCALE") ; replace "TEST" here also ;D
(princ)
页:
1
[2]