Views Example

Using Programming Languages other than VBA

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 Example"
End Sub

 

   Comments?