VBA Ist Das Feature geschlossen

In dem EspritCenter4CNCTools ist eine Routine integriert, welche automatisch dem Feature die Eigenschaft „IsClosed“ beifügt.

Sub IsFeatureClosed()

 ' dieses Makro gibt die Eigenschaft eines Kontur-Features ob diese geschlossen ist
   
   Dim FC As FeatureChain
   
   On Error GoTo ErrHandler
   
   Set FC = Document.GetAnyElement("Pic Feature", espFeatureChain)
   
   MsgBox FC.IsClosed

ErrHandler:

Set FC = Nothing

End Sub