Example of a JScript ! m) X0 a$ V( ^3 {( Q% Z
var vbOKCancel = 1; ! b$ g# Y; }1 `+ m! p
var vbCancel = 2; " V3 ^2 y0 @' @8 K" n
var vbInformation = 64;
- Q! x: s& m* J3 Zvar Finished=false;
. b$ g% D4 k+ L8 [1 r* D 0 ?6 t1 U& y4 t6 g8 x" U
var WSHShell = new ActiveXObject("WScript.Shell"); ( f3 S, N1 w) [/ l. P
' z+ [9 ^ l- U& t5 c- E7 a
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); # M0 k' W; ~ `. l }1 M ], W
1 U/ f% G2 x$ U- J5 B( ~& K
simple.SetLicenseType("Runtime"); " f6 D5 o$ D {, Q; x8 R. j2 _, A
0 ]' q" W/ V% ?+ ?. C+ m1 Z( T8 Htry
5 y4 c* R$ R# n{ / ]) q( z& s7 n; [" l
// Enter the path to a model file!
8 S8 M6 n* F% o/ x& K. v' H simple.LoadModel("C:\\Models\\Test.spp");
, E% `& k2 ^ t4 {' G7 ^} 9 d. P, E2 |. O) f, Y
catch (e) - |4 l. u' F2 [& r$ y% `
{ ) e& X/ `8 Q: L& r P& @% A
WScript.Echo("Could not load Model!"); " S2 W" {/ y- s5 I
WScript.Quit();
- ?" E) L& C' H9 X$ V9 ]}
( U8 b; h2 o( F- b) L
* C+ l3 B' t+ ^# R0 W8 b, f( J5 Stry 8 r6 o- D7 V) ^% ^
{ 1 V8 A1 P2 k! g
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
. Y) s; S2 d; F% J6 s: B7 t0 i r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); V% U Z. `6 B m- F7 G9 Z; N
if (r == vbCancel) % U# P+ j% V4 b' n. p; Y: @
{
4 H7 k% h+ I0 j2 K \4 j$ B1 q simple.CloseModel();
# d2 V+ A, ~( z b* q' H) L- @9 W WScript.Quit(); & P& Q& U4 \ q
} + ^5 i. \" i" p- Y y: o
} / H4 } R% I/ j! P [
8 C' g& R! R; |& w8 Z7 D; _
simple.StartSimulation(".Models.Frame.EventController"); / \5 w7 g5 ^/ ^7 S& ]. f; e
; l2 _5 \: l( T4 S. q" z: K: |if (simple.IsSimulationRunning())
; i7 z! L! Q& `8 l$ ~ WScript.Echo("Simulation is running!");
- D3 N$ Q8 `" }. `6 F* t& U/ O9 o
3 P( d8 ?. n$ c3 o4 l* X9 ^2 t// Wait until simulation is finished ' p9 F" ]. z' K. U; |
while (!Finished) WScript.Sleep(2000);
) ^( i8 N. y9 {/ g! y $ }, S2 P' V5 e2 h
simple.CloseModel(); ) A* ^ ~$ K+ Z" Z$ |: C: H; P
simple.Quit(); 0 u- A, X( ]9 A- p! o5 a5 ]! o
WScript.Quit();
: f+ ^3 R3 ^- f/ Q' v/ k% G 4 \8 o) j6 Z1 t7 y% ?- ?
0 |4 ^6 Q4 e D H
function RemoteControl_SimulationFinished()
; t. }" { Y& N8 J) |( o8 T5 o{ . Z+ {3 |7 @$ U6 l( \8 ?2 |
WScript.Echo("Simulation Finished!"); |