Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Run Optimization VBS

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Run Optimization VBS (399 mal gelesen)
Chaos_23
Mitglied
Student

Sehen Sie sich das Profil von Chaos_23 an!   Senden Sie eine Private Message an Chaos_23  Schreiben Sie einen Gästebucheintrag für Chaos_23

Beiträge: 8
Registriert: 06.04.2006

erstellt am: 01. Jun. 2006 14:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Tapani.
Mitglied



Sehen Sie sich das Profil von Tapani. an!   Senden Sie eine Private Message an Tapani.  Schreiben Sie einen Gästebucheintrag für Tapani.

Beiträge: 56
Registriert: 12.05.2006

erstellt am: 01. Jun. 2006 14:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Chaos_23 10 Unities + Antwort hilfreich

Moin Chaos_23,

der Aufruf erfolgt über
optim1.Run True

z.B.
set o1 = CATIA.ActiveDocument.Product.Relations.Optimizations.Item(1)
o1.Run True


CUSee You
    Tapani

------------------
Don't take life so seriously....
it's not a permanent  condition

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz