Example of a JScript 1 w1 [6 _" ~1 G3 p. s# i' p
var vbOKCancel = 1;
3 N$ O4 _% n2 u* J* Cvar vbCancel = 2; ! a6 i! {& Z/ A4 \1 @3 ], a# w
var vbInformation = 64; : W- C2 E0 L8 B& y5 \" n
var Finished=false; ! [. C( n- L& v' Y Y$ ~1 C7 l/ o
. v! A( |/ y. s1 a3 v
var WSHShell = new ActiveXObject("WScript.Shell");
- k& G H0 T$ ^1 ?) p. e( V4 v% q
% C$ y' h, O, ?! `. i5 evar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); . a% O: t" @5 M. V) Y( A
- v, j. ~% J4 L+ j/ l
simple.SetLicenseType("Runtime");
. B' C9 Q$ s1 Q0 w/ P8 e- w( E 0 ~1 k2 o' _# G3 w. U/ c
try
* r) P8 ?/ s5 s; ?3 H{
v |0 U8 q; t; ` // Enter the path to a model file!
7 w. |2 P% j. x! U" o simple.LoadModel("C:\\Models\\Test.spp"); 9 j ?+ h% A- W& r+ k. \" A
} & G* I9 X0 l* e0 U* U+ R. l
catch (e)
7 z% |8 s, e5 F4 J. }# |{ ( V5 r) H9 v) R
WScript.Echo("Could not load Model!"); ' z/ i$ k& v/ k5 W
WScript.Quit();
* ? R1 M# f. x% L} " ^# u2 C, e3 t' O) p% L
/ M2 X9 A) i3 M9 F, g+ gtry
( s7 X" u1 B& _1 P{ - f& V2 i4 a5 z4 q3 Q1 ]& X
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { ! n m. C! i* y" \1 D
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); ( O3 V( w! j: ]* Y5 A& @
if (r == vbCancel)
# M& a- t- O! R% I/ B {
/ A- W5 o3 b# l simple.CloseModel();
* c8 D0 W& ]/ s [( _5 `0 ^% A WScript.Quit();
9 I" t8 T: m" H2 ?; s8 C1 v) _" K }
) _7 T/ I6 t& v% z; x! m, O} `/ o0 O+ E4 V; ?5 A/ c; A
! Q! `2 C: D9 v1 y Rsimple.StartSimulation(".Models.Frame.EventController");
( G1 p1 p6 \5 K- ^# Q 8 V' k `/ ^! \9 x' V9 R4 P9 E
if (simple.IsSimulationRunning())
7 |: }, d2 t# G5 W: g& x# Q% U WScript.Echo("Simulation is running!");
' H' [6 G$ A) w
: N4 E# {7 I! Z- C// Wait until simulation is finished 6 N/ C8 g H$ P4 ?- E
while (!Finished) WScript.Sleep(2000);
+ @+ L ~1 f x ^5 K ) n) Q/ G ]0 }
simple.CloseModel(); / o9 o- j8 {' ^# [
simple.Quit(); . u! {2 ?9 B+ P4 |# q% V( r) C
WScript.Quit(); " Q9 I0 m4 }% p+ w" S! r2 C$ }& c
. e9 V; M9 o" [$ I, n( x" g
5 \% d! Z# `4 Hfunction RemoteControl_SimulationFinished() $ V* E O: ], ?/ Y2 \4 r V
{ 4 j# V _( [' j3 ]3 m
WScript.Echo("Simulation Finished!"); |