Example of a JScript
, I0 o* C3 `. `% W& W, W: Evar vbOKCancel = 1;
, d: Q7 |2 O+ P1 Mvar vbCancel = 2;
4 X& x; W/ }2 m7 Vvar vbInformation = 64; ) y5 G2 K _% e* @
var Finished=false; 4 n& U7 s( n4 D6 Y
/ M. |, U0 z4 |$ f% v1 Qvar WSHShell = new ActiveXObject("WScript.Shell");
4 R( B# G6 b, O3 w
( b+ R9 f( x; A! {# ivar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
8 @1 y: l5 h6 L; _: {$ v" o% u
1 g" \) A/ V5 Z! _9 qsimple.SetLicenseType("Runtime");
; x! C3 X% d' n4 x* ^/ H! K7 C. i ( j3 Y; y; y. s3 O# o8 K
try @7 u# P; }9 U. H- Z- C" R( q
{ , E0 n% Z$ b$ ]( ^# d+ o
// Enter the path to a model file!
# o! i4 D; t" @0 |7 k4 ^ simple.LoadModel("C:\\Models\\Test.spp");
+ a, n( s5 g8 z6 C}
! y1 e2 U0 `: u9 Y, y5 x0 Vcatch (e)
; w& u$ r* M- C. b4 o: N{
: C1 [4 r! X) q& t WScript.Echo("Could not load Model!");
3 H: M: X# |( N% Y J: K WScript.Quit(); & q' _9 d! C) R0 D7 ]) p, y
} , h) _+ v. s2 j+ ?: {6 Y: l
8 y4 m( f; a- ~try . {7 d. ^* j& s8 J5 e; Y
{
8 \+ P5 k- x: N1 s simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
$ S2 i. l& {: T) F+ j' |" f r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
0 \# l2 F( b* r$ u" \$ p if (r == vbCancel) & K3 A& S3 _6 p. Z
{ 2 C( |: X7 u o. V5 e( J
simple.CloseModel();
; e: T* n% C) f( t WScript.Quit(); ) p" K! }# n6 y5 C9 a
}
* x6 t2 M' A& M4 ?. J$ N' l n$ ^}
; R. M6 i- O D
9 e7 V1 M2 Q+ l; s$ G8 ~simple.StartSimulation(".Models.Frame.EventController"); ' g U1 S( M% s: a
: [ v0 h4 D- T: y! pif (simple.IsSimulationRunning()) ' [) `! o |7 y) p3 ?. b
WScript.Echo("Simulation is running!"); ! q- O% J+ o8 O
. p- e9 W! V9 k- w- L) B+ K// Wait until simulation is finished & x4 P2 p7 m: m/ `0 Q
while (!Finished) WScript.Sleep(2000); & _5 ?7 l5 \& t2 W6 f$ P
0 o6 j+ X! C4 o0 T& G: p6 i0 F1 y5 N
simple.CloseModel(); % p" p. r4 [) [, h. e+ Q
simple.Quit(); x/ p$ { u* C+ D
WScript.Quit();
8 Y7 W. s+ Y4 p8 k3 y ) r2 X+ |- g3 X9 c9 ?( T/ V
7 u2 s0 p! q1 r6 d% I
function RemoteControl_SimulationFinished()
! l; N' E" G" V& |( x{
) l0 |* f. d$ Z k" | WScript.Echo("Simulation Finished!"); |