---

Hallo,

ich muss für ein Projekt ein Makro programmieren, das dem Anwender bestimmte Werte/Maße aus einem bestehenden CATProduct angibt.
Da ich ein kompletter Neuling in der Makroprogrammierung bin, weiss ich nicht einmal, wie man im Makro selber auf Catia zugreift und wie man Variablen definieren muss, damit diese Werte aus meinem product ausgelesen werden.
Könnte mir jemand die Grundstruktuer eines solchen Makros aufzeigen/erklären? Mit welcher Funktion lese ich Maße oder Werte aus?

Vielen Dank!

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

---

Servus,

als erstes würde ich dir mal diesen Link empfehlen, damit du eine Grundlage hast bzw. erlernen kannst.

Welche Werte bzw. Maße willst du den überhaupt auslesen?

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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

---

Hallo,

habe mich jetzt anhand der genannten Bücher etwas eingearbeitet. Im Prinzip brauche ich ein Makro, das mir gewisse Größen aus einem Catpart ausliest und über eine MsgBox ausgibt.
Habe hier mal schonmal angefangen:

Private Sub CommandButton1_Click()
Dim WingRefArea As Double
Dim part1 As Part
'Auflösungsscripts für Objekt: AIRBUSREFAREA
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("WingRefArea")
Set hybridBodies2 = hybridBody1.HybridBodies
Set hybridBody2 = hybridBodies2.Item("Airbus")
Set hybridShapes1 = hybridBody2.HybridShapes
Set hybridShapeFill1 = hybridShapes1.Item("Füllen.8")

WingRefArea = hybridShapeFill1.Area
MsgBox "Reference Wing Area:" & WingRefArea & "m²"
End Sub
Allerdings gibt mir der Debugger ein Problem bei "WingRefArea = hybridShapeFill1.Area" an. Die Method/Property stimmt nicht.Hat jemand eien Idee, wie ich den Wert der Fläche auslesen kann??
Ist wirklich dringend! Vielen Dank!

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

---

Servus,

schon mal die SuFu (Suchfunktion) verwendet und nach deinem Problem gesucht?

Dieser Link hier sollte dein Problem lösen.

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

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