Ich habe nun eine Lösung für Punkt 3 gebaut, die für CATParts funktioniert. Punkt 2 geht offensichtlich nicht
Language="VBSCRIPT"
Sub CATMain()
Set productDocument1 = CATIA.ActiveDocument
Set product1 = productDocument1.Product
Set oInertia = product1.GetTechnologicalObject("Inertia")
Dim Traegheitsmatrix (8)
oInertia.GetInertiaMatrix Traegheitsmatrix
Dim ADensity
ADensity = oInertia.Density
Msgbox Traegheitsmatrix (1) ' ()-Werte von 0-8
Msgbox ADensity
End Sub
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP