Width Example

Width Example

Examples:

l AecLayoutGrid2D

l AecLayoutGrid3D

l AecMassElement

---

Sub Example_Width_AecLayoutGrid2D()

  'This example displays the width of a 2D layout grid
  
  Dim obj As Object
  Dim pt As Variant
  Dim grid As AecLayoutGrid2D
  
  ThisDrawing.Utility.GetEntity obj, pt, "Select a 2D Layout Grid"
  
  If TypeOf obj Is AecLayoutGrid2D Then
      Set grid = obj
      MsgBox "Grid Width is: " & grid.Width, vbInformation, "Width Example"
  Else
      MsgBox "Not a 2D Layout Grid", vbExclamation, "Width Example"
  End If

End Sub

---

Sub Example_Width_AecLayoutGrid3D()

  'This example displays the width of 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 Width is: " & grid.Width, vbInformation, "Width Example"
  Else
      MsgBox "Not a 3D Layout Grid", vbExclamation, "Width Example"
  End If

End Sub

---

Sub Example_Width_AecMassElement()

'This example shows the size of the mass element in its relative X direction

    Dim obj As Object
    Dim pt As Variant
    Dim mass As AecMassElement
    
    ThisDrawing.Utility.GetEntity obj, pt, "Select Mass Element"

 
    
        If TypeOf obj Is AecMassElement Then<
            /font >   
            Set mass = 
                obj MsgBox "Mass Element Width is: " & mass.Width, vbInformation, "Width Example"
        Else
          MsgBox "No Mass Elements selected.", vbInformation, "Width Example"
    End If

End Sub