Hallo,
sorry für den wenig aussagekräftigen Titel, aber ich wusste nicht wie ich es formulieren soll..
Hier mal eine kurze Beschreibung, was ich machen will:
1) Alle Parts unter einem produkt ermitteln (nur erste Ebene) und in Dictionary schreiben
2) Ein bestimmtes Part als PartDocument setzen
Probleme:
1) Es kann vorkommen, dass die Parts entladen sind, deswegen folgende Routine:
Code:
For Each element In product1.Products
If product1.Products.Item(element).Parameters.Count = 0 Then
MsgBox element.Name 'Will am liebsten FullName
Else
MsgBox element.Name'Will am liebsten FullName
End If
Next
2) Um das PartDocument zu setzen brauche ich allerdings den Dateinamen (z.B. "Part1.CATPart"), ich habe aber nur den Exemplarnamen mit der obigen Routine erhalten (z.B. "Part1.1")..
Fragen:
1) Kann ich den FullName eines ungeladenen Parts auslesen?
2) Kann ich das PartDocument mit dem Exemplarnamen setzen?
3) Wie komme ich an den Exemplarnamen von den Parts wenn ich sie wie folgt durchlaufe:
Code:
For Each element In documents1 If TypeName(element) = "PartDocument" Then
Set partdocument1 = documents1.Item(element.Name)
Set product1 = partdocument1.product
MsgBox product1.PartNumber 'Will aber Exemplarname
End If
Next
Danke für eure Hilfe!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP