ActiveSpace Example

Using Programming Languages other than VBA

Sub Example_ActiveSpace()
	' This example toggles the ActiveSpace property from
	' paper space to model space.
	' Display the current setting for TILEMODE
	MsgBox "TILEMODE = " & ThisDrawing.ActiveSpace, vbInformation, "ActiveSpace Example"
	 
	' Changes active document to paper space
	ThisDrawing.ActiveSpace = acPaperSpace
	MsgBox "TILEMODE = " & ThisDrawing.ActiveSpace, vbInformation, "ActiveSpace Example"
   
	' Changes active document to model space
	ThisDrawing.ActiveSpace = acModelSpace
	MsgBox "TILEMODE = " & ThisDrawing.ActiveSpace, vbInformation, "ActiveSpace Example"
End Sub

 

   Comments?