---

Ausrichtung.CATPart Ausrichtung.png

Hallo,

ich möchte via VBA die Richtung einer Abstandsbedingung ändern.
Die Richtung der Bedingung Abstand soll, wie im Screeshot zu sehen, gedreht werden.
Mit manuellen klicken auf Position ändern für die Bedinung funktioniert es wunderbar.

In der Aufzeichung quasi wird alles in der Zeichung angefasst und Werte geändert, also nicht wirklich nützlich.

Relevante Funktionen laut Manual sind "Side" und "Orientation", wenn ich das recht verstehe, also folgendes Script erstellt:

Code:

---

Sub Test()

Dim part As part
Set part = CATIA.ActiveDocument.part

Dim Skizze As sketch
Set Skizze = part.MainBody.sketches.Item(1)
Dim Constr As Constraint
Set Constr = Skizze.Constraints.Item("Abstand")

part.Update
Stop

Constr.Side = catCstSidePositive
part.Update
Constr.Side = catCstSideOppositeToValue
part.Update
Constr.Orientation = catCstOrientSame
part.Update
Constr.Orientation = catCstOrientOpposite
part.Update

part.Update
End Sub

---

Leider passiert garnichts.
Zum Ausprobieren das Teil mit meiner Testskizze im Anhang, wäre schön wenn ihr mir helfen könntet.

Beste Grüße
kernrot

------------------
fa-b.de Dresden

[Diese Nachricht wurde von kernrot am 01. Aug. 2012 editiert.]

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

---

Habe gerade dazu noch diesen alten Faden gefunden, macht mir ja keine große Hoffnung  

Edit: Sollte jemand auch auf dieses Problem stoßen hier die Idee wie ich das Problem nun umgangen habe:

die Offsetbedingung .Deactivate
das Element welches an eine andere Stelle soll mit z.b. SetData(X,Y) für den Linienendpunkt in die gewünschte Richtung schieben
die Bedingung wieder .Activate

Klappt ganz hervorragen, ein bisschen umständlich ist es allerdings herrauszufinden wo der Endpunkt grob hin muss, aber das ist eine andere Baustelle.

Grüße
kernrot
------------------
fa-b.de Dresden

[Diese Nachricht wurde von kernrot am 02. Aug. 2012 editiert.]

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

---

Zitat:

---

Original erstellt von kernrot:
Hallo,

ich möchte via VBA die Richtung einer Abstandsbedingung ändern.
Die Richtung der Bedingung Abstand soll, wie im Screeshot zu sehen, gedreht werden.

---

kleiner Tip
nimm ein weiteres Maß + Hilfslinie das viel größer ist (z.B. 50mm)
und vermaße deine Linie auf die Hilfslinie mit 60 oder 40 dann kannste die das umklappen usw sparen!

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