Example of a JScript # L5 D+ a6 {( V( p8 J
var vbOKCancel = 1;
: o; m% d7 v7 {" W$ Z% i, f5 T# Tvar vbCancel = 2;
$ \6 a& f g v( r; V- z! Zvar vbInformation = 64;
9 a: m! p+ \' o9 ~# Rvar Finished=false; 6 v$ K2 k* ~, I+ J' X$ d
l+ {* ?9 S. O. ?7 [; M; p1 H' Tvar WSHShell = new ActiveXObject("WScript.Shell");
' U+ U) w8 I/ c( [! n
5 H% U! u1 E7 V0 W$ Z# E6 Evar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
7 z# W' h; |( m2 |5 G$ ^) r* {
6 d# C1 h; B# b6 Q# w8 Fsimple.SetLicenseType("Runtime");
3 Z; m, g D7 o& @8 a! W ' @' A$ W" N$ R6 n2 {+ p
try 4 X& b3 b1 y# g% n) b# L8 l
{ ' b5 w" a+ H4 f6 m* x) L
// Enter the path to a model file!
" E5 o! J l" r% J- F7 u simple.LoadModel("C:\\Models\\Test.spp"); * v% o. W" {+ n- S7 X6 o
}
8 c' W# o7 D7 u2 fcatch (e)
- |! ~) v) h7 g3 }: T% M9 s{
" g( p' z" I; Q+ w5 \; l n WScript.Echo("Could not load Model!"); ) ?! B1 G& o( ~9 r3 W- @ [
WScript.Quit();
6 n, |) W; {" B- v( b- c, n}
# f2 y' U. t, M3 R& g
. a& S2 x: p$ ztry % X& U, s4 f: a" S7 u) |. a8 k, o' E
{ - I1 Z" I$ T/ N1 J( z5 p/ t
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
3 {/ t9 V3 _9 s. D9 H+ c8 Y5 P; ^, Z$ d r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
3 x6 t, z3 C3 o8 ]6 n* U: ~ if (r == vbCancel)
* A5 D# f X' |+ l- ^4 e4 d; h { : v$ Z8 f R" ?& p7 i! v1 K
simple.CloseModel();
1 J6 V9 |: C w% U% ` WScript.Quit();
, M0 f8 o6 K! b% b }
+ m7 T. V# @$ f3 O H}
' Y- j. L' p0 H! r9 I5 j
+ I/ A, Y M, _3 O! ~8 |# s( Q; W. fsimple.StartSimulation(".Models.Frame.EventController");
" W" E0 W. v, n$ [+ \
$ i. m, |+ t# j1 lif (simple.IsSimulationRunning()) 1 B- W! D* ~. ^9 a5 S
WScript.Echo("Simulation is running!");
6 N( r7 v' u0 ] 2 \! h: Z1 \( {/ k4 c
// Wait until simulation is finished
# M: P* M y' ]0 uwhile (!Finished) WScript.Sleep(2000); * a. V8 p. e7 Z( G
$ H$ {+ [& _0 W
simple.CloseModel(); 0 H8 k' y7 L' Y( K# f* |4 c/ l
simple.Quit();
; @* B" W7 ~ N6 s! Q7 `$ w1 zWScript.Quit(); & \& U* i# v) S$ V6 i
3 d6 e1 W* Z+ P. C8 w
: ]8 j9 {" [3 v; K& r4 D& j& |function RemoteControl_SimulationFinished() & C' A2 y8 P2 b1 W# x G" r
{ 6 ]/ [4 {; l( h# J2 P1 L9 m
WScript.Echo("Simulation Finished!"); |