ZValueExample
Sub Example_ZValue() 'This example displays the Z value for a 3D layout grid Dim obj As Object Dim pt As Variant Dim grid As AecLayoutGrid3D ThisDrawing.Utility.GetEntity obj, pt, "Select a 3D Layout Grid" If TypeOf obj Is AecLayoutGrid3D Then Set grid = obj MsgBox "Grid Z Value is: " & grid.ZValue, vbInformation, "ZValue Example" Else MsgBox "Not a 3D Layout Grid", vbExclamation, "ZValue Example" End If
End Sub