Private Sub GetCornerExample()
' This example gets the corner data for any 3dFace objects.
Dim ents As IntelliCAD.Entities
Dim ent As Object
Dim FaceCorner As Point
Set ents = ActiveDocument.Entities
For Each ent In ents
Select Case ent.EntityType
Case Icad3dFace
Set FaceCorner = ent.GetCorner(3)
MsgBox "The coordinates for the third corner are: " & Chr(13) & "x = " & FaceCorner.x & Chr(13) & "y = " & FaceCorner.y & Chr(13) & "z = " & FaceCorner.z
End Select
Next ent
End Sub