YEndOffset Example

YEndOffset Example

Examples:

l AecLayoutGrid2D

l AecLayoutGrid3D

---

Sub Example_YEndOffset_AecLayoutGrid2D()

    'This example displays the Y end offset for 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 Y End Offset is: " & grid.YEndOffset, vbInformation, "YEndOffset Example"
    Else
        MsgBox "Not a 2D Layout Grid", vbExclamation, "YEndOffset Example"
    End If

End Sub

---

Sub Example_YEndOffset_AecLayoutGrid3D()

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

End Sub

---