Example of a JScript
5 \, N9 a/ x* `! T* g! e k5 Kvar vbOKCancel = 1; 8 X( C8 z5 q+ o, T) b9 |; H
var vbCancel = 2;
% n+ f7 x5 L* X% `+ dvar vbInformation = 64; ! c0 `' m1 ^+ P
var Finished=false;
+ c: j; {* v; l7 R6 e4 P: s ' Z1 V( I3 i3 w
var WSHShell = new ActiveXObject("WScript.Shell"); ; f8 y0 f+ i& }. k! d7 {
* ~( N* l" r) D+ _
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); ] j @- e1 N7 L! G; [3 q) f- y
0 X$ U8 G: e. l7 r' c# m* J0 X" J- ?simple.SetLicenseType("Runtime"); ! G: P7 L! U1 g- s4 {0 |. {( _" a
; T' Z k% h! ]! N6 u
try / d, e+ j3 u3 N% S5 m7 @8 V
{ 8 J. y( r o# E: t0 Z2 |
// Enter the path to a model file! ) U+ y5 T* F& f2 ~ S: u8 f
simple.LoadModel("C:\\Models\\Test.spp"); % {4 x$ K+ G& Z2 Q
}
! B; `9 a) U, Y; r/ L4 Ocatch (e)
. T* z, C Q7 O& q0 X0 W{ 9 X- C) b% O/ B( i; J- r H
WScript.Echo("Could not load Model!"); ' \" B3 x5 l1 g- A Y$ d
WScript.Quit(); & N U8 \& ]9 X: R: `3 a
} % e+ N! t+ b* c9 W5 e1 K! \% O
- M- D7 @6 p* J
try
/ a: B# P$ U7 k$ i{ . L8 Q- h7 E2 Y# R0 I( R8 P
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
- H: a" t; [$ x6 Z6 k O6 v r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
2 z- `2 q& `1 F. r if (r == vbCancel) 7 u& p+ P7 D0 P$ ]9 k+ T
{
% @9 {! \" z; b8 f: Z6 F; g simple.CloseModel(); ) W% P# ~5 e9 W8 h5 q0 y
WScript.Quit(); ' T( l3 o5 P$ y4 j8 C2 U$ k, d
}
6 n0 y9 i! E& K3 J}
! ?1 s: Y1 |4 p6 Z* ]* H ; q0 P( M" D5 J6 j% H
simple.StartSimulation(".Models.Frame.EventController"); 9 d- z6 t& Z7 q) l9 C$ V" H
( t9 a4 J; U& t* ?! b. {
if (simple.IsSimulationRunning()) - ?2 W, A/ {4 D+ }1 ?) o/ p$ K' @
WScript.Echo("Simulation is running!"); 4 H2 D0 l8 N+ O* v) w6 D8 }2 P
4 T: S6 c5 y# Z/ K+ b// Wait until simulation is finished ; h) A: h# i; i7 l! e; g
while (!Finished) WScript.Sleep(2000); , {5 e& s; a$ |( @; b
! A1 X, Y: P9 L! ?: w0 U1 w+ K
simple.CloseModel(); 6 Q. U" @: [% y) Q% }5 ]. @
simple.Quit(); . N. |# j1 Q( Y' K7 `. _3 w! r
WScript.Quit(); ) A4 w- z2 j7 p6 h6 ~
' S+ r& o8 s2 N7 t- f( y6 _
" w! ^' \! Z8 Y9 bfunction RemoteControl_SimulationFinished() & ]0 h/ ~. K4 S4 q! ~7 ~4 M% O
{
" x+ t$ m; X4 _( j WScript.Echo("Simulation Finished!"); |