AutoCAD视图播放系统功能

Sub Example_SetView()

    ' This examplecreates a new view.

    ' It thenchanges the active viewport to

    ' the newlycreated view.

   

    ' First, open asample drawing.

   ThisDrawing.Application.Documents.Open"C:\AutoCAD\Sample\campus.dwg"

   

    ' Create a newview

    Dim viewObj AsAcadView

    Set viewObj =ThisDrawing.Views.Add("TESTVIEW")

   

    ' Set the viewcharacteristics

   viewObj.center(0) = 374: viewObj.center(1) = 313

    viewObj.width =450

    viewObj.height= 354

   

    ' Get thecurrent active viewport

    Dim viewportObjAs AcadViewport

    Set viewportObj= ThisDrawing.ActiveViewport

    MsgBox"Change to the saved view.", , "SetView 示例"

      

    ' Set the viewin the viewport

   viewportObj.SetView viewObj

   ThisDrawing.ActiveViewport = viewportObj

       

   ThisDrawing.Regen True

   

End Sub

 

Sub Example_Views()
    ' This example finds the current views collection and
    ' adds a new view to that collection.
    
    Dim viewColl As AcadViews
    Set viewColl = ThisDrawing.Views
    
    ' Create a view named "TEST" in the current drawing
    Dim viewObj As AcadView
    Set viewObj = viewColl.Add("TEST")
    MsgBox "A new view called " & viewObj.name & " has been added to the views collection.", vbInformation, "Views 示例"
End Sub