Hallo,
danke für die Antworten auch in der PM.
Der Tip mit den ComponentOccurrences ist richtig, damit bekommt man die Anzahl der Teile hin. Man muß jedoch noch noch Schleifen programmieren, da jedes Teil mehrmals vorkommen kann.
Mein Problem ist noch den genauen Code herauszufinden, mit dem ich die *.ipt und *.iam ansprechen kann.
Mit dieser sub kann ich alle Teile auslesen
++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Private Sub AssyComps()
Dim oApp As Application
Set oApp = ThisApplication
Dim oDoc As AssemblyDocument
Set oDoc = oApp.ActiveDocument
Dim oCompOccs As ComponentOccurrences
Set oCompOccs = oDoc.ComponentDefinition.Occurrences
MsgBox oCompOccs.Count, , "Anzahl Occurances"
Dim oCompOcc As ComponentOccurrence
For Each oCompOcc In oCompOccs
MsgBox CompOcc.DefinitionReference.ReferencedFileDescriptor.FullFileName
'wie muß der Code für die Properties der *.ipt hier aussehen, damit ich z.B. Status von "InBearbeitung" in "Freigegeben" ändern kann ????????????????
'CompOcc...................
Next oCompOcc
End Sub
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
MFG
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP