Hallo zusammen,
wie kann ich mir alle abgeleitete Komponenten und deren Verweis (Dateiname und Pfad) in einer Baugruppe auflisten lassen?
Für ein Bauteil habe ich es bereits:
Sub DerivedComponents()
Dim oDef As PartComponentDefinition
Set oDef = ThisApplication.ActiveDocument.ComponentDefinition
Dim oDerivedPartComp As DerivedPartComponent
For Each oDerivedPartComp In oDef.ReferenceComponents.DerivedPartComponents
If oDerivedPartComp.LinkedToFile Then
MsgBox "Referenced part document: " & _
oDerivedPartComp.ReferencedDocumentDescriptor.FullDocumentName
End If
Next
Dim oDerivedAssyComp As DerivedAssemblyComponent
For Each oDerivedAssyComp In oDef.ReferenceComponents.DerivedAssemblyComponents
If oDerivedAssyComp.LinkedToFile Then
MsgBox "Referenced assembly document: " & _
oDerivedAssyComp.ReferencedDocumentDescriptor.FullDocumentName
End If
Next
Leider bekomme ich es in der Baugruppe nicht zum laufen.
Vielen Dank
Georg
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP