Example of a JScript / o; L r/ C, ~$ h3 _3 s( i
var vbOKCancel = 1;
" S% h$ |* Q% o/ ]var vbCancel = 2; 4 F8 t8 A Z3 r# V$ ~ `
var vbInformation = 64;
8 \5 P9 R1 ?! Zvar Finished=false; 3 A5 V& _' x) q9 ?
$ \6 r: K; d+ {0 p/ Wvar WSHShell = new ActiveXObject("WScript.Shell");
0 M6 D: b; A7 W. G 0 q$ l3 p9 t9 E* I$ C
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
, s8 P% Z! ^) g4 M
Y% v* B9 I* ]! P4 O: Osimple.SetLicenseType("Runtime");
/ p' E. |2 X! {* p. m+ R6 C' u
1 C, C5 f# u6 itry 5 q9 Z$ U& @1 Q( l2 v
{ / F5 F2 X; J" ~+ t7 @+ d6 Z
// Enter the path to a model file! 3 o/ k0 ?9 @4 c1 ^: E; F) W) H/ s; A
simple.LoadModel("C:\\Models\\Test.spp"); 4 H- j9 Z$ S$ {- J
} 5 l* j- A4 u9 O, [; d
catch (e) 8 ~( e# M% X- A+ A. _/ \
{ / y; i+ ~' ?4 Q: E- F1 B; d- k& D
WScript.Echo("Could not load Model!");
( i- ~! j' z/ K( G WScript.Quit();
0 l; \, i6 M6 N: E9 m! m% _} 2 `' W' s$ [1 A& M6 ~- a" p
" P P) Q+ j- B/ z1 {' n& x$ btry " w8 H# S+ o7 P$ a
{ ) I' ]1 n) b9 V( G$ z( M
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
# _! f% D D% \& ] r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); ! P; B; z% X# I. S0 {9 ~
if (r == vbCancel) ' X" @8 E% S: O; U& {/ {1 |3 N i
{ ; Z- H( R3 a9 {- _! Y
simple.CloseModel(); : Y7 j" y; d* L* F& e
WScript.Quit();
" Y% | p" F1 c' Z! W( Q } 2 N8 _: z, i: U) {+ W+ M3 g" I
}
7 E( z' ?( e: `4 Y 9 N1 @5 Y& N7 M
simple.StartSimulation(".Models.Frame.EventController"); ( l. l, s/ b. B7 {! M$ E* n
, N: }* L, X1 K) l5 x1 Qif (simple.IsSimulationRunning()) 6 G. f9 l' p* ~
WScript.Echo("Simulation is running!"); 0 F' j# z# k& U: Y
9 l1 ?5 R1 o& `// Wait until simulation is finished
2 {) p+ C1 X6 m# l& Fwhile (!Finished) WScript.Sleep(2000); & j9 G' D& Y5 Z* S# o
7 ~ X! `8 X% u% i" I% o9 Csimple.CloseModel();
9 D4 P% `/ b7 p* L5 qsimple.Quit();
' p* D# E- d8 Y- W# U1 ZWScript.Quit();
n& q8 w) A# u' s n/ o
( p; ?" n5 k4 i
+ J) [ P2 z2 k9 Y: ?. ufunction RemoteControl_SimulationFinished()
* r% w0 y0 G# n1 {6 D/ V1 o{
9 O7 u1 g' p( C, |3 A6 S WScript.Echo("Simulation Finished!"); |