Example of a JScript
8 H8 y* ]( A/ v, k* ivar vbOKCancel = 1;
; T" p. O# I( mvar vbCancel = 2;
( f. [' l! o; b, V: k+ |, @8 ?5 t( r% Vvar vbInformation = 64; 1 b) g* V" o3 T; \+ g
var Finished=false;
0 h- y" c# q+ f% w, `5 i% i. [- i: b
% u' p2 {5 h% ]: ~( r$ _6 M/ Evar WSHShell = new ActiveXObject("WScript.Shell");
# ~( z( S; ?( d : k+ ?2 W1 X( ]0 c
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); 5 R+ n, M s, f0 e( q& I3 R; S
; B2 [1 I( q$ }simple.SetLicenseType("Runtime"); 8 b6 I: L/ [! j
- Z U9 ~) K9 k! j: W1 Ptry
8 {% G- }$ d6 \! ^% x3 x% f" p{
5 C! X2 q$ T6 R$ F1 C$ C' Y // Enter the path to a model file!
4 n+ c: d4 C( \* ~8 f. T% o simple.LoadModel("C:\\Models\\Test.spp");
4 q' ?9 _2 N/ S; h( Z} % E6 K# ^: l$ C- |5 q/ S7 D' q
catch (e)
, K; {4 z8 L/ e$ }4 j0 P{ 1 d4 ]; `" w0 P3 d* Y) b1 f0 r4 |
WScript.Echo("Could not load Model!");
5 A5 T& _0 k: E. Z WScript.Quit();
0 e4 T! d* [4 O" q7 N- @% E} . r$ j. Q# _7 z6 J: v% F8 f% T
9 Z/ T$ ]- n; a$ W
try
+ i2 I- F; m. V) s' u* H0 ]' o{ 9 o" L; P s( w6 v
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
' j6 |; }+ g3 C4 k( W5 I0 t# p r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); 3 P, ]8 c" Y9 q: S% Z
if (r == vbCancel) 0 _2 y% P$ o7 w e! P
{ n# W* P: ]- R( P1 O
simple.CloseModel(); % [# I. g3 W8 p7 E6 Y# ~* b" W
WScript.Quit(); , ^! C' Z5 A6 H& S& h+ L& Z
} 9 [. Y2 t) |2 `1 `% D
}
7 A8 y1 |+ @2 [( t8 `
# q( B* k% i9 ]' E6 h3 Bsimple.StartSimulation(".Models.Frame.EventController");
$ q& u1 W# A1 L4 L
& Z7 I" u* n, [) S3 u' yif (simple.IsSimulationRunning()) ( } G; i, a# U, L9 G+ \
WScript.Echo("Simulation is running!");
1 C* B9 E1 Q9 L/ s ( l$ c; W8 y0 @5 P4 z4 K
// Wait until simulation is finished
; s2 A; m2 E' x! j% k( Dwhile (!Finished) WScript.Sleep(2000);
7 d/ R6 i2 G* P
2 X# q! N! r' t5 A9 Q l: C3 Hsimple.CloseModel(); 7 U0 M1 t, E: E. J& E
simple.Quit();
5 k+ w8 X7 X; |! {WScript.Quit(); 1 W+ M/ n8 L) R
, y8 ^3 m0 Z7 F8 ~3 z! H0 ~
3 V1 Y, E) P6 m' nfunction RemoteControl_SimulationFinished()
! J2 |$ a' m! g1 x$ F{ 0 u9 s7 I- q! [, F) M1 K* s
WScript.Echo("Simulation Finished!"); |