Example of a JScript
8 x; ?1 D1 b% h4 {var vbOKCancel = 1;
" g- `8 W. i8 Z: o; b1 R/ R0 ^var vbCancel = 2; * e1 D: I9 \# t! z* d* _
var vbInformation = 64;
) t k% T5 d! Q5 U% svar Finished=false;
. B: Y( ^) p8 B4 e; o8 U " P. N; O# z8 F6 r9 x$ @
var WSHShell = new ActiveXObject("WScript.Shell");
7 i# z0 ~0 e4 H5 r4 p
# J, U' V- q7 }' ~4 fvar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
7 Z/ y! A9 x/ ]# {
+ P2 `! x v3 h1 f/ ~) ` bsimple.SetLicenseType("Runtime"); . ~5 @) X' g8 q( Y
9 z( R x9 C2 l7 D
try ( h. Y: e' t1 g
{ 0 g+ n5 Q8 d' u7 p
// Enter the path to a model file!
1 k8 a- c/ d! z$ o3 N simple.LoadModel("C:\\Models\\Test.spp"); , O" k3 U5 n7 ^
} : M# `5 [9 K$ p; H8 M
catch (e) 2 a7 Q5 f* @' R& x' a) Z4 q$ m) b0 o
{ . Z! Z* y' {% M0 V* ~
WScript.Echo("Could not load Model!"); / z8 K+ b& N0 X6 M
WScript.Quit(); ( d1 X. @% \( Z% |
}
% j* O4 E! s% |- i" U7 J
& T# o5 C: I7 y/ t4 I: ]( O% `try # t7 d( o3 I& S0 s' F# M$ k! H G
{ / Y% Y0 C) h* i2 K: g
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { : z( Z, k& |' k1 }- a6 j: b ^
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
' B9 m, ?7 _/ U; o if (r == vbCancel)
C, r v1 I3 ]9 L. j8 g9 A {
9 B3 a( I! ~9 \ ^7 I simple.CloseModel();
+ T( Z; w/ j8 { WScript.Quit(); 5 d, B; z8 w G& m. ?8 d* u
}
4 ]. ` K* i+ F9 A- C}
+ Y4 o, H1 i2 @ c# r* r" T 8 N7 |; j0 D4 @7 ?( h; \$ o5 t7 o
simple.StartSimulation(".Models.Frame.EventController");
6 {5 ^% C( `1 j, w3 @" l $ b h! b5 C+ @6 Q9 ^
if (simple.IsSimulationRunning()) 9 r# P v! I' K$ [# F* V& K8 Q
WScript.Echo("Simulation is running!");
f7 X9 u% E5 T5 S7 |$ i
# B k$ _9 k1 ]// Wait until simulation is finished 8 I; Z8 }# d- p; p6 y$ V
while (!Finished) WScript.Sleep(2000); " G( b( R0 c0 J6 y# S9 w
/ g2 n$ ]- ? ?- K8 @" q m
simple.CloseModel(); " Q$ a5 b/ @# R1 Q. o$ i
simple.Quit();
+ d. Z3 P, Q* |* hWScript.Quit(); * b6 U; G, q/ J# \) @# i# z) R
/ M m3 m) p1 u" X/ q
: ?2 |3 L2 N% ^& P3 nfunction RemoteControl_SimulationFinished()
! ~8 }" T( M* b( C5 K{ - a Z6 M1 o3 c- d4 [. v( e+ @
WScript.Echo("Simulation Finished!"); |