---

Hallo Leute,
ich hoffe dass Sie mir weiterhilfen können
ich habe folgendes Macro erstellt ,und möchte dass rule 1 erst dann aktiviert wird  wenn die Optimierung zu Ende ist.Leider beim starten des Macros und bevor die Optimierung zu Ende ist wird rule 1 aktiviert 

Language="VBSCRIPT"

Sub CATMain()
Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim relations1 As Relations
Set relations1 = part1.Relations
Dim rule1 As Relation
Set rule1 = relations1.Item("Abweichung_Message")
rule1.Deactivate

Dim optimizations1 As Optimizations
Set optimizations1 = relations1.Optimizations
Dim optimization1 As AnyObject
Set optimization1 = optimizations1.Item("Optimierung.1")
optimization1.Run True

rule1.Activate

End Sub

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

---

Hallo Lasdi,

hier ein Auszug aus der Hilfe:

Zitat:

---

WARNING : if argument is TRUE, the optimization is launched asynchronously, and you can not run several optimizations in this mode

---

Setze den Parameter auf False, dann sollte die Rule erst nach Abschluss der Optimierung aktiviert werden.
Gruß
CAMiCADse

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

---

Danke für Ihre Antwort
Leider habe ich nicht verstanden welchen Parameter Sie meinen .Meinen Sie vielleicht das Argument  auf false setzten

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

---

Sorry,
meinte natürlich Argument nicht Parameter. Die Zeile muß dann so aussehen:

Code:

---

optimization1.Run False

---

Gruß
CAMiCADse

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

---

Hallo CAMICADse

danke für die Information ,
hat funktionert 

gruß
Lasdi

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