---

Hallo,

gibt es eine Möglichkeit mit einem Makro die Masse und Oberfläche eines Parts zu ermitteln und dann in einer Datei auszugeben? Ich bin leider noch Anfänger in der Catia-Programmierung und unglücklicherweise lässt sich die Makroaufzeichnung dafür nicht verwenden. Daher habe ich nicht mal einen Anhaltspunkt habe wie man das lösen könnte.

MfG Kon

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

---

Hallo

Hast Du eine Lösung dafür finden können, da ich so etwas auch Suche.

Gruß
Hugo

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

---

Hi

das ist jetzt zwar schon ne ganze Weile her, aber ich glaube mit dem folgenden Makro ging es.
############################
Language="VBSCRIPT"

Sub CATMain()

CATIA.visible=False

Set documents1 = CATIA.Documents

Set productDocument1 = documents1.Open("C:\..\..\product_catia.CATProduct")

Set partDocument1 = documents1.Item("product_catia.CATPart")

Set part1 = partDocument1.Part

part1.Update

Set productDocument1 = CATIA.ActiveDocument

productDocument1.Save

'Messen

set Product = Catia.ActiveDocument.Product
mass  = Product.Analyze.Mass
area  = Product.Analyze.WetArea

verhaeltnis=mass/area

'Werte in Datei schreiben

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("verhaeltnis.txt", True)
'a.WriteLine "Oberfläche:"
'a.WriteLine area
'a.WriteLine "Masse:"
'a.WriteLine mass
'a.WriteLine "Verhaeltnis Oberfläche-Masse:"
a.WriteLine verhaeltnis

a.Close

Set productDocument1 = CATIA.ActiveDocument

productDocument1.Close

CATIA.Quit

End Sub
##################

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

---

Hallo

Ja so hab ich es auch irgendwie hinbekommen.
Für was berechnest du mit masse / area ?

Schönes Wochenende
Gruß
Hugo

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