Hallo Zusammen,
Nachdem ich eine gültige Optimierung per Skript erstellt habe, wollte ich diese mit dem Befehl Run auch vom Skript ausfüren lassen. In der Doku steht:
Methods
o Sub Run(boolean iWithStopDialog)
Runs the optimization as it is defined.
The stop dialog appears if argument is TRUE
Before running, a check is made to ensure that the optimization feature contains enough information to run the optimization.
In the case where some information is missing, this method returns E_FAIL
WARNING : if argument is TRUE, the optimization is launched asynchronously, and you can not run several optimizations in this mode.
Mein Skript ist:
_____________________________________________________________________
Private Sub CBT_Opt_Click()
Set CAD = GetObject("", "CATIA.Application")
Set mydoc = CAD.ActiveDocument
Set myPart = mydoc.Part
Set parameterList = myPart.Parameters
LBL_1.Caption = mydoc.fullname
'ändern eines der Werte
parameterList.Item("Segment_1\W_deg").ValuateFromString ("10deg")
mydoc.Part.Update
'Optimierung
Set Opts = myPart.Relations.Optimizations
Set Opt_1 = Opts.CreateOptimization
Opt_1.AlgorithmType = 1
Opt_1.OptimizationType = 2
Opt_1.FreeParameters.AddFreeParameter (parameterList.Item("Segment_1\Geometrie\Ebene.3\Offset"))
Opt_1.ObjectiveParameter = (parameterList.Item("Segment_1\Fuellvolumen\Volumen"))
Opt_1.TargetValue.Value = parameterList.Item("Segment_1\FV_Target").Value
End Sub
_____________________________________________________________________
Wie läuft es jetzt mit Run, weiß das jemand?
Folgendes habe ich schon ausprobiert:
Sub Run(Opt_1)
End Sub
Opt_1.Run()
mydoc.Run(Opt_1) bzw. mypart.Run(Opt_1)
... leider kommt immer eine Fehlermeldung ...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP