---

Liebe CAD.DE- Gemeinde,

ich hab ein Problem bei der Macroprogrammierung. Ich möchte ein Geometrisches Set in einem Part via Macro aktivieren und deaktivieren (wie ich das auch händisch mit Selektion-rechteMaustaste-Deactivate/Activate tun könnte). Ich finde aber leider nicht den richtigen Befehl/Methode (was natürlich auch daran liegen kann, daß ich ein Anfänger bin...)

Vielen Dank im Voraus und beste Grüße,

Alexander

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

---

Hallo AlexanderDG,

willkommen im Forum!

Zuerst einmal eine Anmerkung: Laut meiner Tests lässt sich ein normales "GeoSet" nicht aktivieren/deaktiveren, sondern nur die Elemente darin.
Und auch noch eine Hilfe: Wenn Du Dich mit dem Code noch nicht so richtig auskennst, nutze doch die Makro-Aufzeichnung und die "V5Automation.chm", die in jeder CATIA-Installation dabei ist.

Der Makro-Rekorder hätte Dir für ein GeoSet "Geöffneter Körper.1" z.B. folgendes aufgezeichnet:

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geöffneter Körper.1")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShapePointCoord1 As HybridShapePointCoord
Set hybridShapePointCoord1 = hybridShapes1.Item("Point.1")

part1.Inactivate hybridShapePointCoord1

Dim hybridShapePlaneOffsetPt1 As HybridShapePlaneOffsetPt
Set hybridShapePlaneOffsetPt1 = hybridShapes1.Item("Plane.1")

part1.Inactivate hybridShapePlaneOffsetPt1

End Sub

---

Wenn Du das Ganze dann etwas bearbeitest, könnte folgendes daraus werden:

Code:

---

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Geöffneter Körper.1")

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

Dim hybridShape1 As HybridShape
For Each hybridShape1 In hybridShapes1
    If part1.IsInactive(hybridShape1) Then
        part1.Activate hybridShape1
    Else
        part1.Inactivate hybridShape1
    End If
Next

End Sub

---

Hier werden die Elemente im GeoSet aktiviert, wenn sie deaktiviert sind und umgekehrt.

mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

Besten Dank- funktioniert ausgezeichnet!

Alexander

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