Hallo Experten,
auch wenn das Thema in ähnlicher Form schon behandelt wurde habe ich noch keine Lösung zu meinem Problem:
Ich habe ein Produkt mit diversen Unterprodukten und einer Menge von Parts.
Ich möchte nun für alle Parts jeweils die "Mechanical Properties" auslesen, am besten in Excel.
Die "Product Properties" bekomme ich problemlos mit folgendem Makro:
-------------------
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).ValueAsString
Next
sFileName = "C:\temp\test.xls"
oAWBook.SaveAs sFileName
objXL.Quit
End Sub
------------------------
Hat jemand eine Idee wie ich auch die "Mechanical Properties" ohne großen Aufwand auslesen kann?
Vielen Dank im Voraus,
RamOnline
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP