ZType Example

ZType Example

Sub Example_ZType()

    'This example displays the Z type 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
      
        Select Case grid.ZType
        Case 0:
            MsgBox "Grid Z Type is: Manual Spacing", vbInformation, "ZType Example"
        Case 1:
            MsgBox "Grid Z Type is: Auto Spacing Even", vbInformation, "ZType Example"
        Case 2:
            MsgBox "Grid Z Type is: Auto Spacing Bay", vbInformation, "ZType Example"
        End Select
        
    Else
        MsgBox "Not a 3D Layout Grid", vbExclamation, "ZType Example"
    End If

End Sub