(defun c:dimscl(/ scl ss)
(vl-load-com)
(if (and (setq scl (getreal "\nSpecify Scale Factor: "))
(setq ss (ssget '((0 . "DIMENSION")))))
(foreach x(mapcar 'vlax-ename->vla-object
(vl-remove-if 'listp
(mapcar 'cadr (ssnamex ss))))
(vla-put-TextOverride x
(strcat
(vla-get-TextPrefix x)
(rtos
(vla-get-Measurement x)
(vla-get-UnitsFormat x)
(vla-get-PrimaryUnitsPrecision x))
(vla-get-TextSuffix x)))
(vla-ScaleEntity x
(vla-get-ExtLine1Point x) scl))
(princ "\n<< Nothing Selected >>"))
(princ))
参数约束将随着对象大小的变化而改变标注内容，或者可以通过改变标注来改变对象。
无论比例如何，注释性文字和标注都将以相同的大小（如您所设置）打印。
每个打印输出的比例应在版面（图纸空间）内完成，每个版面可以包含多个视口，每个视口的比例不同。
有时很难把所有这些事情都想清楚，所以如果这无助于澄清你需要什么回复，我们会尽力帮助你。如果我错过了什么，肯定会有人抱怨。
页:
1
[2]