使用.Net控制AutoCAD ScreenSize环境变量

XDSoft

问题：

Control the AutoCAD SCREENSIZE environment variable in AutoCAD using .NET

解答：

The SCREENSIZE system variable is a read-only system variable that stores the current viewport size in pixels.

However, we might feel the need some times to adjust the SCREENSIZE. For instance, so you you might want to export the model space to WMF format at a specific size and aspect ratio.

One easy way to change the SCREENSIZE is to just change the active document size:

1. <CommandMethod("ChangeScreenSize")> _
   
2.     Public Sub changeScreenSize()
   
3.         Dim doc As Document = Application.DocumentManager.
   
4.         MdiActiveDocument
   
5.         Dim docWindow As Window = doc.Window
   
6.         Dim size As Size = docWindow.Size
   
7. 
   
8.         Dim ed As Editor = doc.Editor
   
9.         ed.WriteMessage(vbCrLf + "Document Size:" + vbCrLf +
   
10.           size.ToString() + vbCrLf)
    
11. 
    
12.         docWindow.WindowState = Window.State.Normal
    
13. 
    
14.         docWindow.Size = New Size(500, 500)
    
15. 
    
16.     End Sub
    

<CommandMethod("ChangeScreenSize")> _<br />     Public Sub changeScreenSize()<br />         Dim doc As Document = Application.DocumentManager.<br />         MdiActiveDocument<br />         Dim docWindow As Window = doc.Window<br />         Dim size As Size = docWindow.Size<br /> <br />         Dim ed As Editor = doc.Editor<br />         ed.WriteMessage(vbCrLf + "Document Size:" + vbCrLf +<br />           size.ToString() + vbCrLf)<br /> <br />         docWindow.WindowState = Window.State.Normal<br /> <br />         docWindow.Size = New Size(500, 500)<br /> <br />     End Sub<br />

Please not that the document window size and the screen size are not exactly the same. the document window tends to be slightly bigger due to the additional non-editor parts of the drawing document window. So you will have to experiment with it a little bit to set it to the right screen size you need.