---

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