有关标注全局比例的修改(已解决）
本帖最后由 AMTONNY 于 2011-5-15 15:41 编辑程序运行要求是：
标注里面有标注一位精度的，有标注两位精度的，当运行结束后所有的标注精度不能改变，改变的只是标注全局比例而已。但这个结果不能用切换标注样式来实现，而是使用修改标注全局比例来实现
试试我的
(defun C:XY_dsc(/ mm msg dimsc habak ssdim)
(setvar "cmdecho" 0)
(setq dimsc(getvar "dimscale"))
(if (= haa nil)
(setq habak (getvar "dimscale"))
(setq habak haa)
)
(setq mm (rtos habak))
(princ "\n************标注比例缩放 -- 调整标注全局比例>*****************")
(setq msg (strcat "\n指定标注缩放比例值:" "<" mm ">"))
(setq haa (Getreal msg))
(if (null haa)
(setq haa habak)
)
(setq ssdim (ssget '((0 . "DIMENSION"))))
(if (not ssdim) (exit))
(command "_dimoverride" "dimscale" haa "" ssdim "")
(setvar "dimscale" dimsc)
(princ)
) 谢谢二楼的程序，达到了我的要求，现在我还想加入一个功能，在修改标注比例时把单行文本和多行文本也一起按比例修改高度就更好了，不知能不能实现 下来试用下怎样先，支持下 hawnn 发表于 2011-5-13 00:18
试试我的
(defun C:XY_dsc(/ mm msg dimsc habak ssdim)
大哥，来啊，继续优化，辛苦一下
页:
[1]