Hallo, ich wieder
Ich hänge gerade an der Stelle, dass ich mir den vollen Dateinamen incl. Pfad von jedem einzelnen Part im Produkt anzeigen lassen möchte.
Den Partnumber-Namen bzw Instance-Namen auszulesen, weiß ich, bloß der bringt mir in der Hinsicht ja nicht weiter.
Durch viele Veränderungen habe ich es versuch daraus mir was abzuleiten, aber Fehlanzeige.
Code:
Sub CATMain()
Set oRoot = CATIA.ActiveDocument
Set oProducts = oRoot.Product.Products
SUB_ProdScan oProducts
' oPath = oRoot.Path & "\"
' MsgBox oPath
' Am Ende sollen dann die einzelnen Part-Pfade mit dem oPath verglichen werden.
End SubSub SUB_ProdScan(oProducts)
For i = 1 To oProducts.Count
Dim product1 As Product
Set product1 = oProducts.Item(i)
MsgBox product1.Name, "64", "test"
Next
End Sub
Hier spuckt er mir die Instance-Namen der Parts aus. Mit PartNumber eben die Partnumber-Namen.
Nun habe ich versucht mit FullName bzw Path den Pfad rauszubekommen, jedoch geht das logischerweise nicht.
Daraufhin habe ich versucht "Item(i)" durch "File(i)" zu ersetzen und verschiedene Varianten auszuprobieren, jedoch will der VB-Editor nie wie ich möchte
Lustigerweise sucht man aber immer nach den Sachen, die man nirgends finden kann.
Gibt es dafür einen Befehl? Weil mit File klappt es leider nicht.
Sicherlich wüsstet ihr andere Wege (denke ich), jedoch bin ich noch relativ am Anfang, und verstehe eben diese längeren Codes noch nicht.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP