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

dyheng · 发表于 2005-6-2 18:32:00

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

雪山飞狐_lzh · 发表于 2005-6-2 20:55:00

DIMSCALE系统变量

dyheng · 发表于 2005-6-2 23:22:00

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

dyheng · 发表于 2005-6-3 08:59:00

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

tnt1095 · 发表于 2005-6-6 08:51:00

斑竹的意识是要获得ltscale系统变量的值吗，如是，可以这样：
      dim       d as double
      dim str as string
      str="LTSCALE"
d=getvarent(str)

linyiwq · 发表于 2005-6-6 15:40:00

我谈点看法。
1、DIMSCALE是指标注的全局比例因子
2、LTSCALE是指全局线型比例因子
3、不同的开发者设定的绘图比例因子储存位置很可能不同。比如有的会使用DIMSCALE系统变量作为全局绘图比例，有的就可能用系统提供的自定义变量USERR1、USERR2...等储存全局绘图比例。