Hallo Bernd
Danke für den Link. An dem script habe ich mich auch schon versucht und bin leider gescheitert...
Hallo Daniel
Vielen Dank für das Script! An dem versuche ich mich gleich mal.
Nebenbei: Schön, noch mir bekannte "Gesichter" zu sehen ;-)
Es ist ja langsam schon etwas her, dass ich hier richtig aktiv war.
Im moment helfe ich mir wie folgt:
Aus einem anderen Beitrag habe ich folgenden code kopiert:
Sub CATMain()
Dim i As Integer
Dim prod As Product
Set prod = CATIA.ActiveDocument.Product
Set objXL = CreateObject("Excel.Application")
objXL.Visible = True
Set oAWBook = objXL.Workbooks.Add
For i = 1 To prod.Parameters.Count
objXL.Cells(i, 1).Value = prod.Parameters.Item(i).Name
objXL.Cells(i, 2).Value = prod.Parameters.Item(i).Value
Next
End Sub
Das Makro läuft, stürzt bei mir aber nach ca. 25 Parameters ab.
Das hilft mir, weil die Parameter, die ich gerne auslesen möchte, die ersten 14 sind
Insofern ist das Ergebnis FAST genau das, was ich möchte.
Etwas sehr behelfsmässig, aber man muss ja auch mal Glück haben ;-)
So, jetzt schaue ich mal in den code von Daniel!
Ahoi!
Christoph
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP