Example of a JScript " g. u3 H: X7 l: U- |
var vbOKCancel = 1; ! j) W9 X; w: i: K' X
var vbCancel = 2; ! z" ~, Q$ }& M- C/ [ Y2 w& C
var vbInformation = 64;
3 g g- i( {: A' N3 Ovar Finished=false;
9 s Q v# c, K% m4 @( ^; _ 6 B! J1 Y& \; s3 @0 d
var WSHShell = new ActiveXObject("WScript.Shell");
; i3 i& h6 V4 ?: s, Z/ k
Y! y) W# u4 e: ~# p. ]$ H7 O9 _var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); 3 T q) a! B) c/ ^# N- F; F
, L9 P A2 v& e; z& o. q& N
simple.SetLicenseType("Runtime");
- p4 F% O8 E( v' [4 w8 c) b 3 Z& m1 j+ m* J; K
try
" Q; N f0 Z9 |6 y: A- P{ & ^: s$ i$ Q! @% S9 ] X: J
// Enter the path to a model file! & d- _) I9 A8 ]) B) g4 o: j
simple.LoadModel("C:\\Models\\Test.spp");
' d7 G5 }" @3 `} 3 F- c( Y4 ?. j% ]
catch (e)
; T2 M, {0 Y9 K) ]{ 3 ~# w9 O- X; ^$ \! w4 Q
WScript.Echo("Could not load Model!");
: n* X* A" j: I WScript.Quit(); : Y( w* S: y& a1 {; B( |
} 1 O) S/ B( G! e0 `& M- s$ K
+ o" i5 K/ i& ]# ztry
- F, r% s1 t9 s{ ) f# S; P/ C8 d$ k# Z# [
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { ) d) H7 @8 C7 U: v \0 E4 F4 C0 ^4 C# O
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); ' Q) `) h4 |- W! x
if (r == vbCancel)
/ |9 V. T( l/ b* s { $ b- K; H+ y" j1 T7 x1 r5 r
simple.CloseModel(); 4 e2 P1 h3 X3 n
WScript.Quit();
" c4 ]: B4 b+ i6 l/ P } 4 k; n/ F0 B1 D$ y5 W" r2 q. ]" `9 X
}
( m( e3 i( P2 r% h' y
: B$ ?4 W4 `- f) V9 n! msimple.StartSimulation(".Models.Frame.EventController");
0 w, x8 v1 D7 |( q6 w6 N
# d& V/ k7 ~/ b; o; l! T# mif (simple.IsSimulationRunning()) & D' w, R" P! O9 Q
WScript.Echo("Simulation is running!"); # L. a {) ? z( I8 U/ {0 e
0 v% t6 X8 m% f- X. e; J% Y
// Wait until simulation is finished
0 f2 {' F3 {7 \0 O* i9 |+ twhile (!Finished) WScript.Sleep(2000);
! r1 W% ]+ J# ~$ @+ m7 Y0 m' B, d- K6 {( S
D x3 s B7 y, d2 d3 U. Ysimple.CloseModel();
" \5 L) ~# C. }) u+ J& ?1 fsimple.Quit(); 7 B5 y+ i8 x7 O, N( @
WScript.Quit();
3 j8 \- [( \- K6 ^/ Q5 ` : }+ d- u6 _/ j1 A) u4 N- L6 O' o
: v9 U% T( j7 l+ g- R1 dfunction RemoteControl_SimulationFinished() 0 n( O- ^! M0 y5 y3 R
{ ; k& o9 Z) U! s) n6 Y. `" o, M
WScript.Echo("Simulation Finished!"); |