Example of a JScript
" y" [! {; s7 _' N; t8 u! nvar vbOKCancel = 1;
' R: a* p N' G5 C' Qvar vbCancel = 2;
& y/ N6 T* [% F& x' A2 I1 jvar vbInformation = 64; # X4 [8 h0 G! ]( z$ B% g1 N
var Finished=false; ) S1 P/ w, M5 |& q/ W
" ^& G& m# n8 x% I; f A
var WSHShell = new ActiveXObject("WScript.Shell");
* X( ^/ {6 Z0 W* h' X5 J5 l
8 n. a1 Q6 g) y i/ Evar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); + D7 N x+ U: d2 ?
- c: W: g0 d3 _: O$ k+ Y W6 b0 q s
simple.SetLicenseType("Runtime");
0 c7 E0 W/ S R$ [
) `. b7 v) u- Y% S/ z. U3 u9 Ntry
2 q, z8 ?% X `* e$ y9 |/ I9 N& [$ x{
5 r7 n4 v! P! ?8 j5 Q // Enter the path to a model file!
/ g+ H# ?/ b5 W9 M simple.LoadModel("C:\\Models\\Test.spp"); : j/ q+ o# B% D- H1 D0 F" U4 Q
} ; S1 Y% j# `; z# j2 X$ G
catch (e) 5 r* G- h( z' y, V' {2 T2 l2 ^0 J" r$ @6 e
{ 2 W0 @, `; h1 l. ]; A
WScript.Echo("Could not load Model!");
: u" d0 [* e& Z8 L! v" Z4 w0 @6 d, ` WScript.Quit();
: z* Z3 e( W- g3 `9 \$ Y& ~& K R}
2 d( W! d: q3 I/ b ( `# |+ u/ Q" I- c
try
5 v( ~4 f' u8 f* A; m8 p# D{ - L1 M( B6 O. g$ F
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
) Q8 s: W# O' B& Z) s r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
" O6 }* X6 t/ J9 W if (r == vbCancel)
& k: u/ ?7 {2 @2 R" w' Q; [; M {
. ~% e* E+ X: j6 }$ ?9 f6 q! d simple.CloseModel(); ! W0 q' a- G$ I% n# X
WScript.Quit();
7 Y3 C( X; z2 s4 w% H V; B } ) z; y4 ] p. y$ H! j% F
}
" g1 g- C2 n- F5 C
3 h6 F6 K4 Y6 K1 k- isimple.StartSimulation(".Models.Frame.EventController");
( ?5 d5 o7 D; Y- B
# Q. w# W2 q4 D; Tif (simple.IsSimulationRunning())
3 o4 o4 {$ X8 o WScript.Echo("Simulation is running!");
% H, |4 c5 W( B1 X8 w1 p9 Z8 y 2 P9 S5 @- Z" t* \# U
// Wait until simulation is finished 0 I( r9 f; h& e$ @* F) r0 f
while (!Finished) WScript.Sleep(2000);
% | s3 u! b1 R0 q2 a5 P9 t - a7 E6 ^9 @5 G* ]0 H
simple.CloseModel(); : n' \5 Y/ D V1 T
simple.Quit(); 1 W1 s: q# }9 ?7 Z" H- ^
WScript.Quit();
9 E" b1 t$ B( J& ^4 I2 }
# v7 K$ N. Z! x8 [- f" I8 H
1 I0 E2 h7 a& `* rfunction RemoteControl_SimulationFinished() ]% j0 O; r5 @- L; q ], e
{ $ _6 A( c" t. L. h
WScript.Echo("Simulation Finished!"); |