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

tiancao1001

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

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

wangdahu1980

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

忍不住

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

你是专门来灌水的。

lcy970128

看一下！！！！！！！！

lndl3282471

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