[分享]：获得当前VIEWPORT的宽度

XDSoft

How to get the width of the current viewport using VBA  
ID    65624  
Applies to:    AutoCAD 2000
AutoCAD 2000I
AutoCAD 2002

Date    7/23/2002  

This document is part of   Viewport   VBA   


Question
Is there a way to get the current viewport width? I see that VIEWSIZE returns
the height, but I do not see a variable that will return the width.
Answer
You can get the viewports width/height aspect ratio from the SCREENSIZE system
variable, which stores the current viewport size in pixels (X and Y).  Then,
you can get the width from the equation (X/Y * VIEWSIZE).  Here is a VBA procedure
that prints the width of the current viewport in the 'Immediate' window. (Ctrl+G
in the VBA IDE)


Public Sub getCurrVpWidth()


   Dim vpHeight As Double
   Dim scrSize As Variant
   Dim vpWidth As Double
   Dim x As Double
   Dim y As Double


   vpHeight = ThisDrawing.GetVariable("Viewsize")
   scrSize = ThisDrawing.GetVariable("Screensize")


   x = scrSize(0)
   y = scrSize(1)
   vpWidth = (x / y * vpHeight)


   Debug.Print vpWidth


End Sub