---

STPDatensatz.jpg

Guten Abend liebe CAD Gemeinde,

ich habe da folgendes Problem! Wenn ich eine STP Datei mir runterlade, wird der Name immer, wie im Anhang zu sehen, die Datei so benannt. Wenn ich das Teil nun in eine Baugruppe lade, wird im Inventor Explorer, in dem BSP, Verschlussstopfen (iProperties vom Teil unter Reiter Explorer Name Verschlussstopfen:1) angezeigt.
Jetzt komme ich zur Frage:

wenn ich nun wie im Bild zu sehen, in der Kategorie einen Ausdruck schreibe, und den, wie im Bild (Pfeil) dargestellt den Namen ersetzen möchte, geht das wie?
Geht das eventuell über VBA, und wenn ja, wer kann mir da helfen?

Danke für eure Unterstützung.

VG
Enric

------------------
Konstruktion

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

---

Ich check da die Frage nicht. Willst du in den iProperties das Feld "Kategorie" per VBA überschreiben oder den Namen im linken Baum der Baugruppe?
Wenn du den Namen der aktuell geöffneten Datei ändern willst dann hier:

Code:

---

Public Sub EditDisplayName(newName As String)
    Dim invDoc As Document
    Set invDoc = ThisApplication.ActiveDocument
    invDoc.DisplayName = newName
End Sub

---

Wenn du den Namen eines Bauteils in dem linken Baum einer Baugruppe ändern willst dann hier:

Code:

---

Public Sub EditDisplayName(oldName As String, newName As String)
    Dim invDoc As Document
    Set invDoc = ThisApplication.ActiveDocument
    For i = 1 To invDoc.ReferencedDocuments.Count
        'If invDoc.ReferencedDocuments.Item(i).DisplayName = oldName Then
        If InStr(1, invDoc.ReferencedDocuments.Item(i).DisplayName, oldName) <> 0 Then
            invDoc.ReferencedDocuments.Item(i).DisplayNameOverridden = True
            invDoc.ReferencedDocuments.Item(i).DisplayName = newName
        End If
    Next i
End Sub

---

In dem Beispiel hast du zwei Möglichkeiten nach dem alten Namen zu suchen. Auskommentiert ist die Variante wenn du den exakten Namen(da kommt noch ".ipt" dahinter) suchst.
Im nicht auskommentiertem Beispiel wird nach einem Teil des Namens gesucht.

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

---

Hallo insidERR,

also ich meinen das so:
der Wert der im IV Explorer steht, möchte ich durch den Wert in der Kategorie ersetzen.

VG
Enric

------------------
Konstruktion

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

---

Asooo...

Versuch ma damit.

Code:

---

Private Sub Write_Category_2_IV_Explorer()
Dim oTrans As Inventor.Transaction
Dim oApp As Inventor.Application: Set oApp = ThisApplication
Set oTrans = ThisApplication.TransactionManager.StartTransaction(oApp.ActiveDocument, "Massenumbenennung")
   
Dim invDoc As Document
Set invDoc = ThisApplication.ActiveDocument
On Error Resume Next
   
    For i = 1 To invDoc.ReferencedDocuments.Count
        For refProperties = 1 To invDoc.ReferencedDocuments.Item(i).PropertySets.Count
            If invDoc.ReferencedDocuments.Item(i).PropertySets(refProperties).Name = "Inventor Document Summary Information" Then
                For refSets = 1 To invDoc.ReferencedDocuments.Item(i).PropertySets(refProperties).Count
                    If invDoc.ReferencedDocuments.Item(i).PropertySets(refProperties).Item(refSets).Name = "Category" Then
                        invDoc.ReferencedDocuments.Item(i).DisplayNameOverridden = True 'muss sein
                        invDoc.ReferencedDocuments.Item(i).DisplayName = invDoc.ReferencedDocuments.Item(i).PropertySets(refProperties).Item(refSets).Value 'neuer Wert
                    End If
                Next refSets
            End If
        Next refProperties
    Next i
   
oTrans.End
End Sub

---

Der Code geht durch alle Teile in der Baugruppe und ersetzt deren "DisplayName" im Explorer durch den Wert der, in der "Kategorie" jenes Bauteiles steht.
Fehler werden ignoriert und leere Werte gibt es nicht. Siehste schon was passiert, wenn das Feld Kategorie leer ist oder nicht umbenannt werden kann.

[Diese Nachricht wurde von insidERR am 29. Jul. 2021 editiert.]

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

---

Hallo insidERR

Danke

------------------
Konstruktion

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