论坛 › VBA/ActiveX 函数库 › [VBA函数]：'获取CAD坐标系统和屏幕像素的比值

tiancao1001 发表于 2007-12-2 14:16:44

[VBA函数]：'获取CAD坐标系统和屏幕像素的比值

'获取CAD坐标系统和屏幕像素的比值
Function ViewScreen() As Double
    Dim ScreenSize As Variant
    ScreenSize = ThisDrawing.GetVariable("screensize") '当前视口的屏幕宽度和高度
    Dim H As Variant
    H = ThisDrawing.GetVariable("viewsize") '当前视图图形的实际高度
    ViewScreen = Abs(H / ScreenSize(1))
End Function

wangdahu1980 发表于 2008-12-31 11:45:22

正想学VBA，下点源代码看看门道，谢了，如果附上思路对初学者就更有益啦

忍不住 发表于 2009-1-1 13:32:21

最初由 wangdahu1980 发布
正想学VBA，下点源代码看看门道，谢了，如果附上思路对初学者就更有益啦

你是专门来灌水的。

lcy970128 发表于 2009-12-30 15:35:39

看一下！！！！！！！！

lndl3282471 发表于 2010-2-18 03:54:39

多谢楼主，多看代码对初学者很有好处！！

查看完整版本: [VBA函数]：'获取CAD坐标系统和屏幕像素的比值