下面的代码完全按照您（线程创建者）的意愿工作。但我不确定它是否解决了您的整体问题，因为我不清楚注释比例或暗比例的概念。
有一件事：您必须在命令提示下手动输入“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)
| 
