Example of a JScript
l- O9 F: K, A1 o& ]var vbOKCancel = 1; 0 d4 U3 g5 t8 w( _' w. T
var vbCancel = 2;
8 ^( k- u- T) U4 U, tvar vbInformation = 64; O7 y3 e9 n' u4 H. L9 J' l6 G3 e
var Finished=false;
( I% E i$ q) \) z5 M
- G, w# b0 {, \: r: I) tvar WSHShell = new ActiveXObject("WScript.Shell"); , O) x1 o7 \, a5 g4 L
& ~8 y& K( ^" x5 i+ N/ \1 y! s+ U1 [
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); 0 @6 @# J/ v+ |+ C [. K
% Z' C( f/ k3 i! ~3 t# n6 f) }simple.SetLicenseType("Runtime");
1 f! R. V/ B; `; \ - J8 B& P% E5 }8 T! J) C
try
& B0 m# Y, K# P9 e7 C, L{ ( b1 t, {, T+ L( k7 m' l( I6 t9 y
// Enter the path to a model file!
1 i/ u* `- B- ?, W simple.LoadModel("C:\\Models\\Test.spp");
% \" L& X1 O9 j! ]! P+ o}
! t) F6 @; w; `* q/ Hcatch (e)
% `0 s0 Q" [6 i: |( @: G{ . j5 |$ }7 M: e1 j/ c
WScript.Echo("Could not load Model!");
2 ?. x" h% A3 C) p6 l3 [3 N* u. g) O WScript.Quit();
6 b; K) x: |. s( T) O$ ?} 2 I f$ Z& b7 x9 y# O" ]: H+ O
5 G) L& W; O+ k$ L& B6 T* f/ x1 Q
try + U6 n# N# n* X F7 v$ {0 W
{ # J+ {% ^5 U0 y
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { 1 l0 j' S* n0 Y
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); " Y, S: N6 k6 E' ^% U/ n% S. f
if (r == vbCancel) ( H! B6 k( e7 H9 L* Z
{
8 f0 s; g/ r, x: `" U/ ~# j m simple.CloseModel(); ' k! P0 @% @3 R8 C
WScript.Quit(); . I1 a. p2 P. H+ D
}
! F1 N/ B( c: X}
" }4 l3 {0 g1 u9 |2 t7 c 4 k9 j3 m1 f. N/ ^. u
simple.StartSimulation(".Models.Frame.EventController"); : I" h9 P7 f5 |+ f$ W2 }' I2 U! m
6 L; T2 ^9 G2 i- M; t N8 pif (simple.IsSimulationRunning()) $ P1 R; r# `8 }! S/ i. z1 B
WScript.Echo("Simulation is running!");
& A a% h6 ~8 R. n; c* J @3 [ 1 w% o( K( \$ T' O
// Wait until simulation is finished 1 c0 ]+ V k. e" Y* @# v; v6 O
while (!Finished) WScript.Sleep(2000);
& d4 t. O' g* z* L7 P
* V! ?( r$ T* }simple.CloseModel();
/ L" t0 I |9 y( O9 N: O' psimple.Quit();
' e2 W7 `! T9 |3 M& y2 @5 j8 X% AWScript.Quit();
0 v3 A7 E2 s9 U( W: P4 M* E; j " I$ W" A6 b+ r$ L# B
! C9 F- k( d/ W9 m( h* Tfunction RemoteControl_SimulationFinished()
! v/ p3 {. R1 Q# B! \; Y{ 7 ?- H v, [& d4 G* @
WScript.Echo("Simulation Finished!"); |