Example of a JScript
4 z) Y1 o8 `& e5 N. R/ V' N* gvar vbOKCancel = 1;
K, Y1 g W4 q+ svar vbCancel = 2;
& _6 d' M8 L; p6 }# b" W* M) ~2 F3 @# vvar vbInformation = 64;
5 |8 u( ^1 J( q; ]: T& q9 \! Q; A$ Uvar Finished=false; , f J% J' I, s
; r6 X$ z* _4 U0 f3 @var WSHShell = new ActiveXObject("WScript.Shell");
5 D' |+ }+ \ `1 W ' ^( L' T3 w7 j' j$ ?
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
) b7 `5 @0 Q' X" N0 J 1 U {, p6 X( K: l
simple.SetLicenseType("Runtime");
# r |6 K& I( f9 T
" f9 O0 _7 {2 r% T; Htry / M' {9 H6 r& @* L* q' n& f
{ % c" C$ n& j; Y" c/ q/ J
// Enter the path to a model file!
, e3 {7 S7 p- f simple.LoadModel("C:\\Models\\Test.spp"); % Q4 e5 t8 t' M Y
} % ?, ?1 D0 B2 O& T l
catch (e)
+ n( s) [$ U6 F{ ' i1 E2 z) f N E/ D
WScript.Echo("Could not load Model!");
) Y0 P( o, S- T1 S5 Q. m: _% v3 x WScript.Quit(); 2 I8 ~: h7 i* \. l) k' r
} # e @) @/ ?5 r& H: w8 r
2 g5 c/ U& N, @- D* W6 Utry
. ]) f) v( @+ G9 y/ r U{ 8 D3 K0 K7 Q4 s5 x/ Z- P
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { , u. V/ T9 X9 j- i- c, k
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
5 K" c4 B4 r5 r& G+ ~ if (r == vbCancel) & }0 V! c! P! _4 X1 b; \& j
{ + V- L; A. M& @- T3 x( g; l
simple.CloseModel(); # r# W# J. @* p" }( H* D
WScript.Quit();
& ~1 _, D* H: U+ w+ f: b! h }
; T" A( \7 [; i( E. f4 \6 b} 3 E5 \! s* ^* J1 G( i
) P4 \) S2 |7 p8 U; ~ R$ }# a
simple.StartSimulation(".Models.Frame.EventController"); ; n! F, O7 R6 R
, v. J! j! m2 N
if (simple.IsSimulationRunning()) 1 P, |- F4 H/ e: J) y5 X0 @
WScript.Echo("Simulation is running!"); 8 q' ~4 _7 T+ a
H4 \, s. ]+ l2 s" O
// Wait until simulation is finished
M( t4 C4 n' N1 m' [; Dwhile (!Finished) WScript.Sleep(2000);
6 V# G( S4 r0 d. l* o ; R) D) E& ~3 L, `3 B3 _
simple.CloseModel(); , I+ ~' T. e( ^5 a2 h
simple.Quit(); ! O {' k1 [; B1 ^9 ]3 m
WScript.Quit(); 3 L1 q; x) O0 A6 U1 |$ R( F2 y+ z
3 Z" o8 i* W2 B$ d$ M4 q
: X2 E3 P7 a8 O' F: m5 [/ ?9 b' u: s1 [) ~function RemoteControl_SimulationFinished()
2 G: U% Q1 @% _% ]8 q( f- C2 O; ]+ H{ # f. Y0 v6 v' M
WScript.Echo("Simulation Finished!"); |