LayoutGrid3D Example

LayoutGrid3D Example

Examples:

l AecLayoutGrid3DNode

l AecLayoutGrid3DNodes

l AecLayoutGrid3DXNode

l AecLayoutGrid3DXNodes

l AecLayoutGrid3DYNode

l AecLayoutGrid3DYNodes

l AecLayoutGrid3DZNode

l AecLayoutGrid3DZNodes

---

Sub Example_LayoutGrid3D_AecLayoutGrid3DNode()

    'This example displays the index of a layout node
  
    Dim obj As Object
    Dim pt As Variant
    Dim grid As AecLayoutGrid3D
    Dim node As AecLayoutGrid3DNode
   
    ThisDrawing.Utility.GetEntity obj, pt, "Select a 3D Layout Grid"
  
    If TypeOf obj Is AecLayoutGrid3D Then
        Set grid = obj
        Set node = grid.XNodes.Item(0)
        MsgBox "Node LayoutGrid's Depth is: " & node.LayoutGrid3D.Depth, vbInformation, "LayoutGrid3D Example"
    Else
        MsgBox "Not a 3D Layout Grid", vbExclamation, "LayoutGrid3D Example"
    End If

End Sub

---

Sub Example_LayoutGrid3D_AecLayoutGrid3DNodes()

    'This example displays the index of a layout node
  
    Dim obj As Object
    Dim pt As Variant
    Dim grid As AecLayoutGrid3D
    Dim nodes As AecLayoutGrid3DNodes
   
    ThisDrawing.Utility.GetEntity obj, pt, "Select a 3D Layout Grid"
  
    If TypeOf obj Is AecLayoutGrid3D Then
        Set grid = obj
        Set nodes = grid.XNodes
        MsgBox "Node collection owner depth is: " & nodes.LayoutGrid3D.Depth, vbInformation, "LayoutGrid3D Example"
    Else
        MsgBox "Not a 3D Layout Grid", vbExclamation, "LayoutGrid3D Example"
    End If

End Sub

---

Sub Example_LayoutGrid3D_AecLayoutGrid3DXNode()

    'This example displays the depth of the owner grid of a layout xnode
  
    Dim obj As Object
    Dim pt As Variant
    Dim grid As AecLayoutGrid3D
    Dim node As AecLayoutGrid3DNode
   
    ThisDrawing.Utility.GetEntity obj, pt, "Select a 3D Layout Grid"
  
    If TypeOf obj Is AecLayoutGrid3D Then
        Set grid = obj
        Set node = grid.XNodes.Item(0)
        MsgBox "Owner Grid Depth is: " & node.LayoutGrid3D.Depth, vbInformation, "LayoutGrid3D Example"
    Else
        MsgBox "Not a 3D Layout Grid", vbExclamation, "LayoutGrid3D Example"
    End If

Sub Example_LayoutGrid3D_AecLayoutGrid3DXNodes()

    'This example displays the depth of the owner grid of a collection of layout Xnodes
  
    Dim obj As Object
    Dim pt As Variant
    Dim grid As AecLayoutGrid3D
    Dim nodes As AecLayoutGrid3DNodes
   
    ThisDrawing.Utility.GetEntity obj, pt, "Select a 3D Layout Grid"
  
    If TypeOf obj Is AecLayoutGrid3D Then
        Set grid = obj
        Set nodes = grid.XNodes
        MsgBox "Owner Grid Depth is: " & nodes.LayoutGrid3D.Depth, vbInformation, "LayoutGrid3D Example"
    Else
        MsgBox "Not a 3D Layout Grid", vbExclamation, "LayoutGrid3D Example"
    End If

End Sub

---

Sub Example_LayoutGrid3D_AecLayoutGrid3DYNode()

    'This example displays the depth of the owner grid of a layout Ynode
  
    Dim obj As Object
    Dim pt As Variant
    Dim grid As AecLayoutGrid3D
    Dim node As AecLayoutGrid3DNode
   
    ThisDrawing.Utility.GetEntity obj, pt, "Select a 3D Layout Grid"
  
    If TypeOf obj Is AecLayoutGrid3D Then
        Set grid = obj
        Set node = grid.YNodes.Item(0)
        MsgBox "Owner Grid Depth is: " & node.LayoutGrid3D.Depth, vbInformation, "LayoutGrid3D Example"
    Else
        MsgBox "Not a 3D Layout Grid", vbExclamation, "LayoutGrid3D Example"
    End If

End Sub

---

Sub Example_LayoutGrid3D_AecLayoutGrid3DYNodes()

    'This example displays the depth of the owner grid of a collection of layout Ynodes
  
    Dim obj As Object
    Dim pt As Variant
    Dim grid As AecLayoutGrid3D
    Dim nodes As AecLayoutGrid3DNodes
   
    ThisDrawing.Utility.GetEntity obj, pt, "Select a 3D Layout Grid"
  
    If TypeOf obj Is AecLayoutGrid3D Then
        Set grid = obj
        Set nodes = grid.YNodes
        MsgBox "Owner Grid Depth is: " & nodes.LayoutGrid3D.Depth, vbInformation, "LayoutGrid3D Example"
    Else
        MsgBox "Not a 3D Layout Grid", vbExclamation, "LayoutGrid3D Example"
    End If

End Sub

---

Sub Example_LayoutGrid3D_AecLayoutGrid3DZNode()

    'This example displays the depth of the owner grid of a layout Znode
  
    Dim obj As Object
    Dim pt As Variant
    Dim grid As AecLayoutGrid3D
    Dim node As AecLayoutGrid3DNode
   
    ThisDrawing.Utility.GetEntity obj, pt, "Select a 3D Layout Grid"
  
    If TypeOf obj Is AecLayoutGrid3D Then
        Set grid = obj
        Set node = grid.ZNodes.Item(0)
        MsgBox "Owner Grid Depth is: " & node.LayoutGrid3D.Depth, vbInformation, "LayoutGrid3D Example"
    Else
        MsgBox "Not a 3D Layout Grid", vbExclamation, "LayoutGrid3D Example"
    End If

End Sub

---

Sub Example_LayoutGrid3D_AecLayoutGrid3DZNodes()

    'This example displays the depth of the owner grid of a collection of layout Znodes
  
    Dim obj As Object
    Dim pt As Variant
    Dim grid As AecLayoutGrid3D
    Dim nodes As AecLayoutGrid3DNodes
   
    ThisDrawing.Utility.GetEntity obj, pt, "Select a 3D Layout Grid"
  
    If TypeOf obj Is AecLayoutGrid3D Then
        Set grid = obj
        Set nodes = grid.ZNodes
        MsgBox "Owner Grid Depth is: " & nodes.LayoutGrid3D.Depth, vbInformation, "LayoutGrid3D Example"
    Else
        MsgBox "Not a 3D Layout Grid", vbExclamation, "LayoutGrid3D Example"
    End If

End Sub

---