Example of a JScript 3 @. R6 q' H5 r0 k# a
var vbOKCancel = 1;
: c( |. p8 C/ {' i+ k: Evar vbCancel = 2;
. v) M) k5 b4 _var vbInformation = 64; 9 E- U4 d+ p' y+ W6 c5 Q0 n5 \, ~" ^
var Finished=false; % ?3 I ^% Z s1 T8 e Q8 O7 {
8 ]0 u7 B9 T/ {- D' N' l/ F- N* Yvar WSHShell = new ActiveXObject("WScript.Shell"); , x7 W% x1 I+ J, i' \' A" O
( w) E1 Z8 }5 Y& p& y% fvar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); . e- Q+ {5 h0 y0 U
# S! C) V, F( T4 R0 N
simple.SetLicenseType("Runtime"); u- |0 Y4 U- u
; d" B. I' t, D
try
8 m( a4 \' ?* `. b/ b{
7 _# t d. ~* x% Z8 A! s6 r. S4 \ // Enter the path to a model file!
8 V0 f3 L# }5 [8 K simple.LoadModel("C:\\Models\\Test.spp"); 8 H. D( n8 @" b |! ?
} 5 H f% E: s7 ~$ `) g4 B
catch (e) ) K- r( M. ?* d' m7 y k
{ ) v6 K0 D; C/ I, r. ~: M- P
WScript.Echo("Could not load Model!");
) x! a0 R9 r6 D: ` f, w WScript.Quit(); - {1 O1 M* O$ R3 i" z, V! I
}
5 F( r# ^9 u% C, n" U' `
6 z7 T7 ~' [2 S; ftry 6 f! Y2 q* P1 O$ p
{ ! w: }9 }" m( f6 j9 P$ Q
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { & r/ B' {% j8 K+ Q4 G" z; _0 I* Z" s
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); ; ~0 E7 ^) i2 g; [
if (r == vbCancel)
! ]' c: g9 R8 o- f {
) \% S+ O4 A+ z simple.CloseModel();
" r9 G/ l5 v& r5 j& a% X WScript.Quit();
, g, ?- v3 y/ q. ~ } 4 `: w, V& Q! C8 }; d
} - R$ ?9 {. j. d0 |' D6 ?9 R4 ]( E5 t
. v/ Y+ q% E) g' W! e
simple.StartSimulation(".Models.Frame.EventController"); % t$ O. D+ e3 k8 e+ I1 p9 g' }6 u
, N8 ]/ f* h" f, M* v7 C( a
if (simple.IsSimulationRunning())
! p( y: D4 J, l$ j WScript.Echo("Simulation is running!"); / S; V; B5 Y: g: m
- x# c) Q& }' F& u+ {- S! z" E- X g// Wait until simulation is finished
0 w0 d# E, e3 ^while (!Finished) WScript.Sleep(2000);
9 w8 ^* G/ {' K2 b* L! } ) i; @9 b. t5 t1 O6 h
simple.CloseModel(); : k, Z- l5 |8 o
simple.Quit(); $ G& m6 m% m# n# b' m1 \
WScript.Quit(); 2 [* A; q5 O; _5 {. M$ J) B
" q, `% O" v5 L( }( e% J
& e0 e! n# v7 s& G0 A, Zfunction RemoteControl_SimulationFinished()
5 k8 E) I& s' B1 ], M0 Q7 g{ d; e9 |+ Y; N9 t) s0 Q
WScript.Echo("Simulation Finished!"); |