Example of a JScript . \1 D6 h, ?8 u; V! K
var vbOKCancel = 1;
8 A* }7 M3 l; e9 C5 ~4 q* Uvar vbCancel = 2;
& h4 E1 J* O* ^+ v0 ^. C: K3 gvar vbInformation = 64;
' M, Q. h( \/ |5 Z# gvar Finished=false; , f6 h" L. e' b3 S" m
. q( H d1 w% C( {var WSHShell = new ActiveXObject("WScript.Shell");
$ f5 Q) H- j& r5 j, x( I2 c6 w4 i
8 f h2 \1 B5 `+ J0 @3 Uvar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
% l- b0 u2 `) C3 h) ~$ V + L2 W5 B q" U2 y" y
simple.SetLicenseType("Runtime"); / E! B* j2 O5 N6 l. L7 M# l
+ z: j+ O' V8 i' G+ ~1 \; u3 i0 L
try - G5 b) q' G! ^. ^+ c2 b0 G
{ 9 R6 o1 J" K- r. `# z8 L# \0 A
// Enter the path to a model file! # }- e9 n2 E# U( `% q
simple.LoadModel("C:\\Models\\Test.spp"); ; B. F, c4 m' N W* k
}
0 i8 M5 p9 {+ ]- _: o+ D2 m( Vcatch (e) 0 R! K2 P9 p V8 C5 C$ @2 n$ |- I
{
' B4 b% w; ^3 G' U+ j WScript.Echo("Could not load Model!");
6 O% ?9 m0 t L7 h9 k- L WScript.Quit(); - V* e% c6 q- T5 [( w$ o$ Z
}
4 E& M" U5 z5 W- ^ " r# ]' |; \4 j) C
try
4 X( D' D4 f6 l- V8 T0 E{ ( C- M" _% a9 {- h) \
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
$ o" V4 o% e( ? r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
% }; ]( d% g7 K5 r" L1 r- D+ |2 R& ^ if (r == vbCancel)
6 W4 w' r o& A3 j1 ~ {
, _% H" n9 ?7 I1 b" k4 k simple.CloseModel(); 7 t2 e0 S2 l! G! G* J Y/ F
WScript.Quit();
7 v& [9 Z; s0 v2 z1 r( G } , q$ V- X% R" A) ?6 e
} ' D& E0 [$ K$ N8 C: Z+ |/ |; s
, V% \/ r- i+ d1 G3 l# Zsimple.StartSimulation(".Models.Frame.EventController"); " v/ R" v2 I! v! k! D6 X: |1 f
( j& p9 F1 {/ o6 G" [: lif (simple.IsSimulationRunning()) 0 ]) A* K ?. \* L, k* K( g/ }
WScript.Echo("Simulation is running!"); : K1 m1 F3 a; Y
% o3 Z# h4 Z4 V" G3 v7 @/ p7 _0 g
// Wait until simulation is finished 5 Y" Z/ u) Q0 B9 }" l* P9 o' ?
while (!Finished) WScript.Sleep(2000); 4 Y; |: J( H7 E9 K& _
$ }' ?- s6 T6 T. B8 j- x# Zsimple.CloseModel();
. F+ o4 o$ \3 {/ m1 E2 }simple.Quit();
9 M/ o5 U7 M' `4 D- {3 {WScript.Quit(); ; D; P3 ], E; E5 j' y
4 J5 U! j; ^# v1 @: t
5 [2 {/ K" j/ p9 o; ^function RemoteControl_SimulationFinished() 2 M8 g7 t) t$ u; {- r
{ & Z% {5 |) ~% ?( T3 I2 q+ G0 W
WScript.Echo("Simulation Finished!"); |