---

Hallo,

ich bin VBA-Anfänger und will die iFeatures in meinem Bauteil zählen (und in die benutzerdefnierten iProperties schreiben).

Immerhin komme ich jetzt an die Anzahl. Aber er zählt mir nicht die iFeatures, die in einem Muster stecken. Muss ich in einer Schleife alle Muster auf iFeatures prüfen? Oder komme ich auch einfacher an die im Muster angeordneten iFeatures?

Code:

---

Public Sub countfeatures()
    Dim oPDoc As PartDocument
    Set oPDoc = ThisApplication.ActiveDocument
    Dim oFeats As iFeatures
    Set oFeats = oPDoc.ComponentDefinition.Features.iFeatures
    Dim NumOfiFeats As Integer
    NumOfiFeats = oFeats.count    ' Anzahl der iFeatures
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP