Example of a JScript . Y; b( v$ h) I; R$ v
var vbOKCancel = 1; ; N" Z' ` k, i* |/ y6 ~; |
var vbCancel = 2; " U2 j; j1 a' w
var vbInformation = 64; : w, u7 w% u6 O$ L& Z" c" j% J5 Q
var Finished=false; , D3 ?! a; l3 _3 w( k
4 d( z& n) I2 g2 Kvar WSHShell = new ActiveXObject("WScript.Shell"); 3 C" a! s1 r8 {- F) f1 _
0 E7 |0 p+ h8 }6 k6 n
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); 8 ?7 l0 y# i S. M5 F, p! o1 E
9 e/ f, j+ f" B3 v0 Gsimple.SetLicenseType("Runtime");
4 t. `, G. y8 ^& | j( d
8 A2 v- M% \, I& ~. h8 T0 m! \& I+ wtry
, Z+ ~9 }; X8 ]9 N4 b4 c{ ) L* H: `( N7 R* _% T
// Enter the path to a model file! A( I F7 n7 j
simple.LoadModel("C:\\Models\\Test.spp"); h4 Q/ I. R* f, y9 k O
} 2 |- I. h8 h% J# k$ e4 A1 p
catch (e)
0 a3 P1 Q0 n7 G5 z. Y7 t{ ) H: a' q. ]8 c8 ~5 ?9 |: ]
WScript.Echo("Could not load Model!");
; N) `. S6 i2 a9 P$ y WScript.Quit();
1 ?. R0 y) K$ L3 s( m" c8 R4 C" Q# I; s}
$ h! r, `% |% y+ q6 p- ?. Z6 D [# Q' \6 I4 N2 Y7 u6 j: x
try
& ?; b( ]* n7 U3 m3 ?2 Q{ ' L, \( O& D: n1 ]3 h5 v
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { ; K. ?( O' F" g! R& R: K% X
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); : R* j" `. {, P( \' i
if (r == vbCancel)
! X( s' N8 R/ q. ? { & Y3 _4 M/ |2 I* }
simple.CloseModel();
4 V0 l* ]1 N! C( u' @1 o m WScript.Quit(); 5 d4 q& u% f# Y% k4 _( ?% u
}
/ @ l; S [. `+ h9 v/ |* A}
. N' V* J$ V. |( Q! [/ h
# D0 R; D; D0 _" V0 M+ Osimple.StartSimulation(".Models.Frame.EventController"); " N* ~0 R, Q+ R" W* G
6 e2 A% m' w0 x- A. Hif (simple.IsSimulationRunning()) 8 I# w& |+ C, _ [ \ |
WScript.Echo("Simulation is running!");
1 @2 B0 Z0 j1 V , f: K' c9 c/ s! |% @) y
// Wait until simulation is finished
l& |3 y o0 a, O. }while (!Finished) WScript.Sleep(2000); 8 ~, V3 g- l+ |- _
1 l* O' K, u; @. |7 ?7 }2 w+ w; y' e9 x
simple.CloseModel();
7 j: O1 q z8 G8 H9 n, i `2 usimple.Quit(); 8 {4 j4 ~- I; D' y/ w1 X: A4 E
WScript.Quit(); . V7 U& n$ d5 Z+ }
6 N- T ~5 `3 Q( u+ G0 Q/ O
- M( [2 M9 Y$ o$ B4 D
function RemoteControl_SimulationFinished()
4 y6 Z! _: z5 h- s7 @' y) W{
! |, X; ^& _5 I6 q7 l& } WScript.Echo("Simulation Finished!"); |