能否在VBA中得到当前图形的比例因子？

dyheng

现在做一程序，但需得到图形的比例因子，以将用户输入的数值转换为图上的实际长度。请问有没有办法得到啊？

雪山飞狐_lzh

DIMSCALE系统变量

dyheng

Sub Test()
ret = ThisDrawing.GetVariable("dimscale")
MsgBox ret
End Sub 斑竹，为什么我把比例因子改为100后，ret值仍是1呢？

dyheng

斑竹，应该是由DIMLFAC系统变量控制的才对。

tnt1095

斑竹的意识是要获得ltscale系统变量的值吗，如是，可以这样：


         dim         d as double


         dim str as string


         str="LTSCALE"


d=getvarent(str)

linyiwq

我谈点看法。


1、DIMSCALE是指标注的全局比例因子


2、LTSCALE是指全局线型比例因子


3、不同的开发者设定的绘图比例因子储存位置很可能不同。比如有的会使用DIMSCALE系统变量作为全局绘图比例，有的就可能用系统提供的自定义变量USERR1、USERR2...等储存全局绘图比例。