Flags property example

Private Sub FlagsExample()

'This example returns the Flags property 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

               MsgBox "The Flags property for this 3dFace is: " & ent.Flags

          End Select

     Next ent

 

End Sub