Example of a JScript
1 u. u6 C' g' D0 G4 O& }3 [ ivar vbOKCancel = 1; / _! z! v- F& q6 R
var vbCancel = 2; - M1 n2 F1 P6 G2 Q4 ]0 A- F6 ~
var vbInformation = 64; * Y, I2 C6 _# Q$ B3 [( G
var Finished=false;
1 o' N! a$ P, {6 Q5 \* O9 u
; u- w. A. \6 w3 O. U' k& u8 ~4 jvar WSHShell = new ActiveXObject("WScript.Shell");
! o6 o9 J) c c) E7 D' C$ y 6 N7 C6 `, f- T. A3 `7 G! g
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); ; f5 [, [7 U; ]( H; ?% @% ]+ @
5 _+ b1 r2 N" ]) d1 y9 _simple.SetLicenseType("Runtime"); 5 L4 |" z# `) j2 ` s: g7 w! ~
8 y/ L& \7 f/ I: Q( E: @
try
0 E$ l9 d: G! R* j; X{
. U" o$ C$ s9 q( T' g) b% w // Enter the path to a model file! 8 }- z1 a0 p) R
simple.LoadModel("C:\\Models\\Test.spp"); - b8 G3 B6 x4 \! L' U& O& F
} 4 i/ R$ e$ X* J, O) v: U9 s6 q1 C
catch (e) ' `$ Y6 i' I( D* n0 l# Y1 [
{ & C" Y0 d: h7 v+ N
WScript.Echo("Could not load Model!");
" d4 a, I- p! ]! r WScript.Quit();
' B8 K2 S' g$ D2 }8 h( X} P) v5 B7 c( E; s2 b) F. _
. ]' x' O9 n/ X) i0 g6 ^
try ! m& u$ T# i0 S
{
& x: b, H* p* k( c! I simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
6 D* `5 D3 J) n f# _4 r& k r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
8 N b# S K( v/ i$ r# V4 D if (r == vbCancel)
, V5 p% t6 ?+ h! B {
* f; T; w0 |. i4 G1 E" X simple.CloseModel(); 9 J; n5 g7 _" N
WScript.Quit(); 1 j, S# T. E! V) b. K5 S
}
$ p, x* m+ l' F1 z8 ?}
, p4 |# D- q& q
9 y/ C4 b+ X! Ksimple.StartSimulation(".Models.Frame.EventController");
/ Z) F1 e4 U6 V8 J0 s6 o# _ ! b- V7 @7 Q. C% O& c" ~3 a
if (simple.IsSimulationRunning()) ) y( @' N- H5 Y7 i
WScript.Echo("Simulation is running!"); ' R; c- E: _1 Y5 Y A! _
: U8 a; P4 T$ M( Q- P" h2 M, `
// Wait until simulation is finished
0 s0 {' g8 s+ ~5 u" |while (!Finished) WScript.Sleep(2000); & c. z, q& C( Y) I- z' g4 ^. @
; Y* D F7 E0 m9 P9 Dsimple.CloseModel(); & X; H8 v4 O: m
simple.Quit();
: |, r3 v+ v; ]WScript.Quit(); ( f. f2 U8 w6 z5 k6 p Y7 i6 }
" B% X! t- I, e! D$ ?( A& f2 T $ P* v6 U# Y; o a7 K5 q
function RemoteControl_SimulationFinished() 2 |' \: U" {( S! X9 [& g
{
9 o3 @8 g8 v9 n" M9 _* ]' z WScript.Echo("Simulation Finished!"); |