Hallo Leute!
Ich möchte mit einem Makro Masse, Volumen und Oberfläche auslesen.
Wie das geht hab ich bereits rausgefunden.
Mein Problem ist, dass die Analyse bei großen Bauteilen lange dauert.
Viel länger als mit "Measure Inertia" (15s).
Meine Vermutung ist, dass Catia für jeden Wert den ich auslese eine eigene Analyse startet, denn das Makro brauch 45s.
Wie muss ich den Code ändern, damit mir eine Analyse alle 3 Werte liefert?
Hier der Code:
Code:
Sub CATMain() Dim myAnalyze As Object
Set myAnalyze = CATIA.ActiveDocument.Product.Analyze
Dim dMasse As Double
Dim dVolumen As Double
Dim dFlaeche As Double
dMasse = myAnalyze.Mass
dVolumen = myAnalyze.Volume
dFlaeche = myAnalyze.WetArea
MsgBox CStr(dMasse) & "kg; " & CStr(dVolumen) & "mm³; " & CStr(dFlaeche) & "mm²"
End Sub
Mfg
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP