Example of a JScript ; j( b: b5 H( Q4 s" c
var vbOKCancel = 1;
4 H) {) j1 Y9 Y2 I7 O) G! }var vbCancel = 2; . S7 v6 K" e: }. @8 }& }# m% Y
var vbInformation = 64; " ~9 I. s& G4 j! c6 t
var Finished=false; , N/ G0 Z5 \# ?) @5 n" ^3 W
O3 |3 t* o/ l. r" `var WSHShell = new ActiveXObject("WScript.Shell"); ! q2 q& V$ ]- A+ P7 W( |
. e+ F4 l" K. O0 Z/ {' e
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); # z7 c9 m7 I, R' _3 G6 Q6 \ U5 _
9 p: \* V5 A$ w N# G/ D
simple.SetLicenseType("Runtime");
9 R8 x# `. X8 j( {( s/ n0 [! f6 h
4 K( ]9 `6 |( ^0 X" Wtry ! c- z3 W( w+ b7 g$ g& l6 {
{
0 A* ?2 H, `6 W // Enter the path to a model file! - l3 Y8 H% F9 \) ^
simple.LoadModel("C:\\Models\\Test.spp"); ! d3 r2 |- J8 G# M4 q
} , t% J8 \& o: p4 g# w P
catch (e)
7 M" ^9 I0 e2 k# e1 D# x{ " L5 a' X( ]$ D, l( j4 X
WScript.Echo("Could not load Model!");
5 v% ^) J) q+ J" [$ K WScript.Quit(); " O/ M" G, {/ q( R( S) q' n
} " Q# g/ \$ q0 `9 @
+ F2 W% @5 o4 f4 E
try f' C/ a5 {+ b4 u3 j
{
/ I3 q( V0 G z: X+ \% m; ^. U4 V" a* o simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
4 {9 k6 ?2 {1 P8 l8 Y5 t! _8 z0 C r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); 7 r" N% i s0 Y1 y0 i4 Y& V- N
if (r == vbCancel) * ^! k0 ~: o9 {
{
9 D' Y9 G+ t* l simple.CloseModel(); * P2 G" t* a, r9 @1 H. O( \ J
WScript.Quit();
5 k/ e6 k3 o4 O5 n! O }
! q; g2 S3 ^8 l) `} , f! L8 z7 _/ q* Y0 e2 i0 k) V9 X
9 a& S+ v i& F) Q
simple.StartSimulation(".Models.Frame.EventController");
% z% `+ Q6 M5 L# q ; G8 ?- u: {2 S. b% _0 G
if (simple.IsSimulationRunning()) & L$ `* G: y! G' t$ w, z
WScript.Echo("Simulation is running!"); ! l7 }% g7 X2 j' {, F' f& I* k
/ _( t8 `7 C$ Q6 e1 R4 H6 ?- F
// Wait until simulation is finished & ^* M0 y1 [, x8 {
while (!Finished) WScript.Sleep(2000); 6 |) M% ~" S/ w- h5 d6 W9 u
* G) ^$ W9 t# d: ]simple.CloseModel(); - I2 i3 Z: p5 |* e: B- l! Z% Y
simple.Quit(); $ F$ I% F* `' h, j2 G& j5 B" a
WScript.Quit();
9 s4 O' n0 c5 `) b . c" n9 Z1 l7 x- F* B* z! z
4 v/ B" K0 i2 Efunction RemoteControl_SimulationFinished()
9 V. g7 R6 ?5 W{
- ~7 n, z* _- T0 [8 m& G; H( A5 ?9 [ WScript.Echo("Simulation Finished!"); |