---

Hallo,

wenn ich eine Gerade in einer Skizze bemaße habe ich die Möglichkeit dieses Maß als Reference anzugeben (Kontrollkästchen), so dass ich die Gerade trotzdem per Maus ändern kann wie ich will.
Wie kann ich per Makro dieses Kontrollkästchen ansprechen? Der Recorder zeichnet diesen Schritt nicht auf!

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

---

Servus
Gemäß Doku sollte es über: ".Mode = catCstModeDrivenDimension" gehen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

ich kann diesen Befehl in der Doku gar nicht finden !?
wie lautet denn das Gegenteil, wenn ich die Reference entfernen möchte?

Vielen Dank!

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

---

mode = catcstmodedrivendimension

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

---

Hallo ThomasJay,

Das Makro habe ich in gebrauch und funzt soweit.
Masse mutiselektieren und Makro ausführen.

Wenn du noch Optimierungen daran machst, bin ich nicht böse wenn du es mir zukommen läst.
Bin nämlich nicht der Programmierprofi.

Schönes Wochenende

Code:

---

Sub CATMain()

Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim selection1 As Selection
Set selection1 = productDocument1.Selection

Dim MyConstraint As Constraint

For i = 1 To selection1.Count
    Set MyConstraint = selection1.Item2(i).Value

    If MyConstraint.Mode = catCstModeDrivenDimension Then

        MyConstraint.Mode = catCstModeDrivingDimension

    Else

        MyConstraint.Mode = catCstModeDrivenDimension

    End If

Next

End Sub

---

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!      

[Diese Nachricht wurde von moppesle am 18. Jan. 2013 editiert.]

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