---

properties.JPG

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

---

Servus
Schau mal hier findest du eine Lösung die du einbauen könntest.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank für den Tip, werde mal sehen wie sich das einbinden lässt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP