---

Hallo zusammen,
ich habe das Problem, dass bei alten Baugruppen der Modellbrowser auf "Dateiname" steht, d.h. nach der Zeichnungsnummer erst die Endung kommt und dann das übliche ":1" etc.

Manuell würde ich die Funktion "Browser-Knoten umbenennen" im Reiter "Zusammenfügen" aufrufen und dort von "Dateiname" auf "Vorgabe" ändern. Dann verschwindet wie gewünscht die Dateiendung.

Wie bekomme ich das via VBA hin?
Ich habe mir das AssemblyDocument-Objekt bzw. die BrowserPanes angeschaut aber die richtige Stelle noch nicht gefunden.
Ich erwarte, eine Variable/Eigenschaft in der die aktuelle Einstellung gespeichert ist. Vermutlich über einen Integer mit Konstanten wie Inventor.kFilename, Inventor.kDafault etc.

Mit freundlichen Grüßen
DerBrain87

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

---

Moin

Es gibt keine zugängliche Variable in der das gespeichert ist. Ich vermute Inventor benutzt intern irgendeinen Cache dafür, den sie uns aber nicht offen legen.
Wenn der Displayname der Teile überschrieben wurde, sollte man den auch zurücksetzen. Der Displayname ist der Name der im Browser angezeigt wird, wenn das Teil in einem eigenen Fenster geöffnet wird. Der Displayname wird sonst wieder als Exemplarname eingetragen und das Makro ist scheinbar funktionslos.

Code:

---

Option Explicit

Private Sub ResetBNodes()

Dim oAssDoc As AssemblyDocument
Set oAssDoc = ThisApplication.ActiveDocument
oAssDoc.DisplayName = ""

Dim oRefedDoc As Document
Dim oOcc As ComponentOccurrence
For Each oRefedDoc In oAssDoc.AllReferencedDocuments
    On Error Resume Next
    oRefedDoc.DisplayName = ""
    Dim oRefedOccs As ComponentOccurrencesEnumerator
    Set oRefedOccs = oAssDoc.ComponentDefinition.Occurrences.AllReferencedOccurrences(oRefedDoc)
    For Each oOcc In oRefedOccs
        oOcc.Name = ""
    Next
Next

End Sub

---

------------------
MfG
Ralf

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