---

Hallo an Alle!

Habe das Problem das ich es nicht schaffe eingefügte iFeatures über VBA um zu benennen...!
Irgendwie ist der Zugriff auf das Label gesperrt, jedoch kann ich es manuell ja auch, also muss es doch einen Weg geben wie man das kann!!!
Kann mir irgendwer weiterhelfen???

Vielen Dank im Voraus

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

---

Moin,

mit folgendem Code kann ich alle Features umbenennen, egal ob Extrution oder iFeature.

Private Sub getLenght3D()
    Dim oApp As Inventor.Application
    Set oApp = ThisApplication
    Dim oDoc As PartDocument
    Set oDoc = oApp.ActiveDocument
    Dim i As Integer
    For i = 1 To oDoc.ComponentDefinition.Features.Count
      oDoc.ComponentDefinition.Features.Item(i).Name = "Mein_Feature" & i
    Next
End Sub

Gruß
Marco

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