Example of a JScript
. B& y$ k+ @$ r3 @var vbOKCancel = 1; 4 W* k0 _3 K& M% T5 o+ D% m' Z; \ B
var vbCancel = 2; : q8 j5 T; L7 T) t) x1 f
var vbInformation = 64; - ~% f5 K' Y. H( O2 ?& n8 H
var Finished=false; 0 W2 z% `5 P( L" ^0 X0 v4 u
# a" l/ i2 ]/ k' o' Cvar WSHShell = new ActiveXObject("WScript.Shell");
9 j) {, |, [6 \1 P( v 5 w+ H* A+ l- C9 K6 m3 ]7 ~& M8 K
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); $ _0 f( D3 r, `6 B2 E! y6 p" U P
: h+ P( H4 `" K1 \simple.SetLicenseType("Runtime"); 5 f$ [- x( t( K* d* v9 i
/ K6 N( a% D- a0 _
try * v/ b3 }( b% _9 M7 N- ]# V! |
{
3 b1 {) W" H( G4 y6 u& o // Enter the path to a model file!
5 _% k2 D5 y/ {- q simple.LoadModel("C:\\Models\\Test.spp"); ( T0 g9 g' g" A' e( {
} $ }8 H/ L& d: A2 b, r7 r! n
catch (e) 3 w U: f1 X; Z3 d! a: U3 M
{
8 N/ M' \, I$ E. x! z+ {( ^* ` WScript.Echo("Could not load Model!");
; k, T' ~* z' S m WScript.Quit();
' X1 O; F# R. l) [4 t} ! A0 K( {; y" j; T, S
2 @2 j8 x7 N. _2 V9 J
try ; w* ]2 ^+ ~) R! g8 }9 x
{ 8 Y U4 j1 e, d3 }9 @! T, z* j1 f
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { 3 F$ g! Q$ K5 M/ J; B6 H) s
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); ( R( `0 N7 z2 h% X: p
if (r == vbCancel) ! ~) g( V9 V6 _
{ 1 \- l8 H) ?: A8 P: I$ K
simple.CloseModel();
" [% Y' U6 l; P) I: r- l WScript.Quit();
: W$ L1 f* P+ G) E9 m }
1 K4 q5 _! U* C0 t6 d/ T} & O; M( ]8 P/ d7 K3 K
& ]/ o9 l; _7 e# M. b/ U7 y. Y- Tsimple.StartSimulation(".Models.Frame.EventController"); 1 b ~* S5 ^$ b$ d8 Y! ?, l, u! d
) Y3 @$ ]# G; C% J! Z: P5 @; u
if (simple.IsSimulationRunning()) 9 K. a& X* B+ Z
WScript.Echo("Simulation is running!"); 7 q" h0 T5 _. h5 p
% ^: w" F: g5 [// Wait until simulation is finished $ W4 { E7 x: [4 P/ y. `
while (!Finished) WScript.Sleep(2000); + B' H% w- n& w8 ]2 _3 b9 }/ B9 r
( c, Y" M4 ?8 F% H5 P8 ysimple.CloseModel();
' q, \' ^0 b1 q A- o; psimple.Quit();
# |6 t8 C6 H J% |# P7 |( B9 CWScript.Quit();
$ x6 y8 Y5 \+ ~- e9 W5 v
* t- l5 E3 \5 l( w' m1 f$ q : s( H# v* t( w+ e, d# z v1 c6 j& S4 {
function RemoteControl_SimulationFinished()
( L- |; @6 I# k5 ^/ B{
, Q# V3 i3 D8 a9 D WScript.Echo("Simulation Finished!"); |