;;;修改标注比例 (defun c:DW () setq oldscl (getvar "dimscale")) (progn (command "dim" "dimscale" pause "Updat" (princ "\n请选取尺寸来修改 标注全局比例") pause ) (setvar "dimscale" (getvar oldscl)))) 1.程序执行中并没有出现提示 2.程序执行后并没有退出DIM 3..并没有退出DIM 4.最重要的是没有返回原来的dimscale, 恳请高手指点迷津! |