ElevationPaperSpace Example
Sub Example_ElevationPaperSpace() ' This example changes the paperspace elevation of the current drawing ' and then resets it to the original value again. Dim currElevation As Double currElevation = ThisDrawing.ElevationPaperSpace MsgBox "The current paper space elevation is " & ThisDrawing.ElevationPaperSpace, vbInformation, "ElevationpaperSpace Example" ' Change the elevation ThisDrawing.ElevationPaperSpace = currElevation + 2 MsgBox "The new paperspace elevation is " & ThisDrawing.ElevationPaperSpace, vbInformation, "ElevationpaperSpace Example" ' Reset the elevation to its original value ThisDrawing.ElevationPaperSpace = currElevation MsgBox "The paperspace elevation is reset to " & ThisDrawing.ElevationPaperSpace, vbInformation, "ElevationPaperSpace Example" End Sub