Hallo @c.becherer
du kannst das gut mit iLogic machen.
Da könntest du neben dem Dateinamen, das deine Nummer darstellt, dann zum Beispiel die Beschreibung einfügen.
Als Beispiel könnte das so aussehen.
oDoc = ThisApplication.ActiveDocument
oDoc.DisplayName = iProperties.Value("Project", "Part Number") & " - " & iProperties.Value("Project", "Description")
MessageBox.Show("Displayname = " & oDoc.DisplayName, "iLogic")
Wenn du das auf der ganzen Baugruppe anwenden möchtest könntest du das mit folgendem Code probieren.
Public Sub Main()
Dim oAsmDoc As AssemblyDocument
oAsmDoc = ThisApplication.ActiveDocument
' Change the name for the assembly.
oAsmDoc.DisplayName = BuildName(oAsmDoc)
' Change the name in every referenced document.
Dim oDoc As Document
For Each oDoc In oAsmDoc.AllReferencedDocuments
oDoc.DisplayName = BuildName(oDoc)
Next
End Sub
Private Function BuildName(doc As Document) As String
Dim oName As String
Dim designTrackProps As PropertySet
designTrackProps = doc.PropertySets.Item("Design Tracking Properties")
oName = designTrackProps.Item("Part Number").Value
BuildName = oName
End Function
Ich hoffe es hilf dir weiter.
Jörg Weber
CAD Systemtechniker für AutoCAD, Inventor, Vault