Example of a JScript
4 f' y, R) o7 D' N, ivar vbOKCancel = 1;
% r e0 _( Q) n- x; L' c9 u6 Svar vbCancel = 2; 8 v* j4 k0 ^% e9 C( V- P' v$ g
var vbInformation = 64;
, R( y& F$ U6 e3 ovar Finished=false;
* I4 x! d' @4 r$ B: Y & D7 w# G* z% U# _5 \" K( c
var WSHShell = new ActiveXObject("WScript.Shell"); ! z9 J8 {. Y* w
+ M3 P$ d% A) e5 m6 ~( I
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); 1 {6 H9 N% r7 V# k; P
4 @8 m$ \ A! [/ e" s. W
simple.SetLicenseType("Runtime"); 4 y/ `) o D) g. L" ~* a* n
, i) t6 O& b; B. t( H% X- ^ k
try : v q) G" T. ?2 y/ w$ u2 B) l
{ % d. O. H) ?, _8 T2 t( {: \9 ~
// Enter the path to a model file! , W; ~7 c I8 U- M2 T8 h
simple.LoadModel("C:\\Models\\Test.spp"); : R( j% a! ~2 i( E% ^* Y
} : p2 l' s8 l$ V; f
catch (e) 8 ?5 o/ n- ]" _
{ : {2 n' w7 N4 {& B# m- v3 k7 e- [
WScript.Echo("Could not load Model!");
7 R8 z5 T4 _: S8 y4 |* o& H. n' E WScript.Quit(); 1 _3 l9 m- V$ G, C2 q
}
( G6 L% l2 i# D3 N# K; \ 7 _% h+ T O8 R) g( F) X9 j! P( K
try 3 u2 O, H5 m& |/ ?
{ . ]( i( c" p5 z; ~. r- J
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
/ x4 P& _4 L9 `. x' f; U: v r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); 8 D9 Q& v+ J6 ^8 U2 ^; ]
if (r == vbCancel)
7 r% z! G/ j( d0 b: I5 s/ J; d { ( w6 V( \+ g* S# Y4 z
simple.CloseModel(); 7 q/ s5 h' b1 d* Q4 S. \0 V
WScript.Quit();
' e: I% I% v& a" m } ; v& z9 w5 ^. g" I4 a3 U2 w
}
/ e0 Q- W6 _+ v* O6 j) u + ~: n) ^, {. m' P# M$ N8 _
simple.StartSimulation(".Models.Frame.EventController");
8 ]# ?7 o8 f( z' n' J% {$ B
7 U9 v, f1 }" f& Uif (simple.IsSimulationRunning())
. S9 O$ E8 {9 {2 M5 i1 \# ]$ U7 ]9 S WScript.Echo("Simulation is running!"); 3 {0 l8 @/ I! L$ s0 P. c
1 P0 L @& J# F1 L5 [6 |* e0 r6 u# D// Wait until simulation is finished
; \' c& }+ {0 twhile (!Finished) WScript.Sleep(2000);
5 V/ s( X5 P$ C: ?# D* v
& a5 u6 c8 x) K3 Qsimple.CloseModel();
% V" e: z1 y4 X5 T/ H. gsimple.Quit();
% l) H, R0 x) IWScript.Quit(); L/ P" _: I; k" _1 [/ q
. _3 J( M" u# v
$ L5 e# ^2 G- t" I
function RemoteControl_SimulationFinished()
: t4 L2 `; \: c5 e{
( h r1 Y" n7 X& V) U: ]% q6 a WScript.Echo("Simulation Finished!"); |