Example of a JScript
( m1 K+ E- Z6 Q8 Uvar vbOKCancel = 1;
9 q- y. V1 N, L5 e4 e- avar vbCancel = 2;
q8 M. M+ }# yvar vbInformation = 64;
. A' M# \( K' k" X, d& p4 Tvar Finished=false;
4 l @) v( @) g
: N. k5 L/ ~0 M0 b. v* I2 Avar WSHShell = new ActiveXObject("WScript.Shell");
. ~8 g# [ l: p M2 O% ^# M
3 O, o2 H+ X3 K" mvar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); U+ W* b1 G6 M' J, V6 z/ B- o
/ Z2 |. \( K2 d/ A7 O3 _5 |
simple.SetLicenseType("Runtime"); % W G, _3 w' i! z2 z
( ^( z7 g2 Y/ z+ @+ J! f3 Wtry . k. ^8 Z! v6 @2 W7 X x4 I, z
{ K) u0 y+ G7 B" l, o9 N
// Enter the path to a model file! % k: D( |( K" E8 o
simple.LoadModel("C:\\Models\\Test.spp"); 4 G I3 p( a2 w# c" O+ s: e6 F
} + Z1 ]& T% d) u
catch (e) 1 @2 k1 k4 u1 g3 b. o# C
{ 2 ?: w b0 ~) F. M# @. _1 l
WScript.Echo("Could not load Model!"); ' f A( x- O0 i* j- u+ ~
WScript.Quit(); _( q7 [& X$ ]/ c6 q( e3 P: `1 S' g
} , l4 q, M& S. T" m L3 L* Q8 H/ Q
1 s' Y4 s# f3 t' I. O+ K
try
1 u5 Y2 m$ U+ x/ `7 ?1 Q{
: i. o9 D# d3 x/ r& C% e! m, K simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
- z; C; }, _4 m/ _& O J- l: O r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
# H% a3 b c. a9 b' h if (r == vbCancel) 9 l4 ]0 G' \# ~0 F7 X
{ 9 w5 X* o. {1 a( N! G7 C; l
simple.CloseModel();
" x& e; J2 v! E4 x% H) A WScript.Quit(); $ l6 H$ l* T. [ x1 b; z0 J+ ]
}
R/ j( x3 }* _1 G+ t/ a9 h}
1 U6 |4 [7 |9 Z; b% u& V8 {, j 5 t# [6 E' Z4 B9 R. E
simple.StartSimulation(".Models.Frame.EventController"); " L. `6 u- ], {0 j, A6 Y! m
8 i9 w% R% T, v3 W* W9 x+ V# W
if (simple.IsSimulationRunning())
% P$ ^8 V$ |* R WScript.Echo("Simulation is running!"); ; l! g! q4 a0 F, ]8 q
, k2 h4 _6 ]9 P/ K: f3 ` A6 Y" O: V// Wait until simulation is finished
; R$ {9 d+ T( q. r c W, `6 O Jwhile (!Finished) WScript.Sleep(2000); ( W% I4 V, n! a; x7 R6 p6 q; |" k
* [! G; }8 i8 V4 ~, \simple.CloseModel(); ) V: v' h% Y1 k$ ~" [$ ?
simple.Quit(); ! X! h% W" A2 O& s- u
WScript.Quit();
- i; C% Z: ]' z
{- d1 g7 E4 u& U" w1 M$ m
$ D3 J& p1 x5 K( K/ V7 Ffunction RemoteControl_SimulationFinished() 4 o) c+ ~" T# ^# E2 G# x
{ / ?. `( E+ J" S7 I/ j' t
WScript.Echo("Simulation Finished!"); |