Subtract Example

AEC Auto

Normal Example

Sub Example_Normal  ()

    'This example displays the normal vector of an AEC Entity
  
    Dim obj As Object
    Dim pt As Variant
    Dim geo As AecGeo
   
    ThisDrawing.Utility.GetEntity obj, pt, "Select an AEC Entity"
  
    If TypeOf obj Is AecGeo Then
        Set geo = obj
        MsgBox "AEC Entity Normal: " & geo.Normal(0) & ", " & geo.Normal(1) & ", " & geo.Normal(2), vbInformation, "Normal Example"
    Else
        MsgBox "Not an AEC Entity", vbExclamation, "Normal Example"
    End If

End Sub