Example of a JScript
; V- k$ G0 i& k5 Ivar vbOKCancel = 1;
: ]) s0 y6 o! L1 ~/ e& Y* Rvar vbCancel = 2; ; y! y. h N" r8 v0 I z; Q8 r
var vbInformation = 64; ) {2 D7 V u; |
var Finished=false; 2 }! D/ L! g n& ]% e
& T2 m0 c/ x7 o0 v& o
var WSHShell = new ActiveXObject("WScript.Shell");
+ F: ^, V4 m4 [8 Q* E% Q1 o
/ ^& a' @; k5 @3 G: I/ hvar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); 6 _4 E* b6 a3 o" m: w" o! c; Z
4 O/ t' v4 f5 h/ @2 v. U
simple.SetLicenseType("Runtime"); * d' r. Y4 ~* e8 w$ x6 M% U
+ o1 ?. y" z' g2 R0 c7 etry
' E) Q6 v2 @( V$ v{ , P! t) M* n) x
// Enter the path to a model file!
! _; c9 r1 H6 A7 m% m: F simple.LoadModel("C:\\Models\\Test.spp");
8 S5 n2 J% M0 B% ?} ! o( E( P( {2 s
catch (e) 4 o" q, }, b2 J+ \8 j
{
& T. d; `' a- P WScript.Echo("Could not load Model!"); 6 Q9 C1 ]" S" O, I6 ^
WScript.Quit();
# @! u: m3 \- p: k( L4 t: @}
5 ]: \1 k0 J; T* J2 B
) F# F- t: |: Stry
1 ]' `' a. U3 L{ : k" i2 k' F8 z5 T
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { / S$ i1 D9 F, Q- }! d
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); ( ~- ]8 w2 p2 M8 E& f
if (r == vbCancel)
9 @" | [* Z1 ~, R; Z1 i4 z8 [ N; m& T { / |1 O0 l. H- }# x0 r
simple.CloseModel(); 0 Z8 M P& T- f9 t
WScript.Quit(); * S- q5 f9 d5 [6 R7 ^" T: q
} $ H! e, [5 S# p: @; w
} . k7 f0 Y7 X% c- }( _9 y
9 }, W! v! V- T" k0 C S# H- Qsimple.StartSimulation(".Models.Frame.EventController");
7 V5 g( f: {8 @/ g$ I ) Z0 Z' J O( }( V$ j
if (simple.IsSimulationRunning()) 5 A6 b% [" j( ]; F8 c
WScript.Echo("Simulation is running!"); 7 J; w% @/ ]( M1 ?5 ]! E
" I: M6 z6 y! v4 T. z0 ]4 s// Wait until simulation is finished
8 b' R1 _5 S1 A+ u' W- T! j8 Ewhile (!Finished) WScript.Sleep(2000);
* R; H+ Y% ^# O! {
2 l/ |! ]5 R8 y+ U( [simple.CloseModel(); 7 ^1 w/ H4 C9 s" ^; m$ `
simple.Quit(); 1 I% A$ a( l9 F6 a7 M; ~; p" g
WScript.Quit(); $ W( B; N; H) j6 t
1 J: _3 T% `5 ]( X5 y
* C: R6 `, Z5 J! P) k o( _function RemoteControl_SimulationFinished()
: s7 C6 O, m7 k, a{ 9 p0 z8 Q- j% ?) [% F
WScript.Echo("Simulation Finished!"); |