Hallo Zusammen!
Ich lese nun schon ein paar Tage alle Artikel die ich zu dem Thema finden konnte und habe mich auch mithilfe des Buches "CATIA V5 automatisieren" schon ein wenig eingearbeitet, komme aber einfach nicht so richtig hinter die Lösung meines Problems. Vielleicht könnt ihr mir ja weiterhelfen!
Nun zur Aufgabenstellung:
Ich habe ein Produkt, das aus Unterprodukten und Parts besteht. Nun haben alle Parts einen Parameter den ich auslesen möchte und zusammen mit der Teilenummer in einer Excel ablegen möchte.
Das Auslesen der Teilenummer klappt auch soweit, das des Parameters jedoch nicht!
Ich habe schon alles mögliche versucht, ich komme einfach nicht an die Parameter dran... Vielleicht habe ich die Grundlegende Struktur einfach noch nicht verstanden...
Es wäre toll wenn mir irgendjemand dabei weiterhelfen könnte!
Code:
'### Prüfen um welchen Dokumenttyp es sich handelt ###
Set activedoc = CATIA.ActiveDocument
If (Right(activedoc.Name, 10) <> "CATProduct") Then
MsgBox "Aktives Dokument ist keine Baugruppe", 16, makroname +" "+ version
Exit Sub
End If
'### Excel initialisiseren ###
Set excel1=CreateObject("Excel.Application")
excel1.Application.Visible=True
Set newwb=excel1.Workbooks.Add
Set Products1 = CATIA.ActiveDocument.Product.Products
Dim Partnumber1, Filename
For i=1 to CATIA.Documents.Count
If (Right(CATIA.Documents.Item(i).Name, 7) = "CATPart") Then
Partnumber1 = CATIA.Documents.Item(i).Product.Partnumber
Parameters1 = CATIA.Documents.Item(i).Product.Parameters
excel1.Cells(i+1, 1).Value = Partnumber1
excel1.Cells(i+1, 2).Value = Parameters1.Item("Material").Value
End If
Next
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP