Example of a JScript ' A; Q8 B7 j: l
var vbOKCancel = 1;
# t* g, E9 c9 I( @ wvar vbCancel = 2;
* B& H8 M3 P# ]& I3 a0 p7 gvar vbInformation = 64; 6 b b/ L9 k; V+ y
var Finished=false; 2 @7 N. g8 r9 p) I6 w3 g" X
$ C. p4 N& a1 z' {
var WSHShell = new ActiveXObject("WScript.Shell");
. W. g7 }. g E7 V , @4 ?6 i( l5 D; m
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
+ v5 g$ T) C9 \# D3 |6 a( L 2 @1 j$ e0 r, `/ x0 q
simple.SetLicenseType("Runtime"); , H: }5 Q3 Y- f+ G( t
( O! V( ?7 b( ~ W
try
- s, }8 |4 t3 v{ 5 a* u3 E7 F% n" c& x$ J
// Enter the path to a model file!
# f; N% k( s# X simple.LoadModel("C:\\Models\\Test.spp");
9 F) B# ^' k. o7 S! A; E$ {0 f}
6 c1 M0 e' X$ S7 P9 n; P: [catch (e)
( N6 Y! C6 T6 C9 _5 D{
9 u0 d8 d) F4 s) m4 ]) x WScript.Echo("Could not load Model!");
3 p+ f5 ?. k9 O" p9 J WScript.Quit();
' ]: C: V+ N* G" p; Y5 d7 ?9 d}
3 D8 w2 b9 h' C % q3 `/ y5 L% y
try
0 b* H0 l. E! `5 C5 \9 P5 F- C1 ]{
4 Q& x! z' i) ?) \ simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
: K" R! _6 O' J2 ^# S% h! P2 f r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); g$ b7 v1 k/ A6 [+ T& d
if (r == vbCancel) : n0 K9 _7 _" F3 N
{ " t2 Q2 L7 @0 M
simple.CloseModel(); $ C0 D+ K" Z+ c% {
WScript.Quit(); , b' i' d5 z& g0 }6 X# b
} 4 C1 Q- J9 Z/ x3 {+ y
}
; F2 y7 R4 b% i& x/ O ' n; j& P+ R$ q
simple.StartSimulation(".Models.Frame.EventController"); + L' L! B' C/ E" `
% ^# ~( ^% K, d+ Jif (simple.IsSimulationRunning()) # ~/ j. E9 n/ ^, U- B' Z
WScript.Echo("Simulation is running!"); $ [2 T# f6 r i5 w% [
$ u9 d! I4 c( U* }; R// Wait until simulation is finished ) W, d P+ g$ H- X$ J! E! z. L( M3 M5 j
while (!Finished) WScript.Sleep(2000);
* e7 u7 x8 g# Q6 Q: l
" Z9 n& C% b0 k/ g5 c( osimple.CloseModel(); ! \7 W9 N2 u4 }% ?1 j. _ @
simple.Quit();
4 |3 X) Z7 f4 q; e. pWScript.Quit(); c% h+ x+ p n* S( I& z* _; `
/ ~, V- j8 m8 |4 F# Q5 L' C, z
6 z3 q# j/ \' @' \& tfunction RemoteControl_SimulationFinished() 7 H* h/ N- }, f! \6 R6 |/ g9 o
{
- z4 L1 A1 n% y3 s; N" [ WScript.Echo("Simulation Finished!"); |