Example of a JScript
; k2 n! | {/ I. C8 d0 _* {var vbOKCancel = 1;
- x- y2 f9 G# x9 Pvar vbCancel = 2; : E4 F3 i6 W+ T7 A$ |# a( Z
var vbInformation = 64; , {: \5 Q: {( x5 v
var Finished=false;
, r5 x5 u( B0 p! s# y0 `
/ Y9 N& R6 ]1 n# Z( U" G& q1 E0 Hvar WSHShell = new ActiveXObject("WScript.Shell");
) m8 U6 H2 R! u4 ? " p1 b( E8 N ]2 F- u0 v d; u
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); 3 {% J0 Z3 Z/ y/ M7 C# v0 `5 N' Z
3 L6 q- M% D4 j/ B! Z/ z+ hsimple.SetLicenseType("Runtime"); ' a4 h2 y; f2 ~9 f! w; U: f
: L# q: _# n2 n' n8 Ftry
: m# E% R" I4 [8 M! k# G! o{
: v+ D) ^% y" Z/ L" H2 P // Enter the path to a model file! $ Z% b- m0 [* \( ~' R$ d
simple.LoadModel("C:\\Models\\Test.spp");
8 v% w4 }# O( A! _$ }. c}
9 |! R0 Y$ l/ \* z% S8 pcatch (e) , w3 g, V8 a" |% V# U9 X
{ 0 j" F9 f0 {: d4 `# E- @: L
WScript.Echo("Could not load Model!"); . ^5 K% n! _ z0 s$ j' B* N$ s
WScript.Quit(); 7 S$ E- d+ o6 C
}
2 D# ^+ n' x; A% a
; q O, L: I, Xtry ( g1 L f8 g% e
{ 5 G4 V! k2 [ u/ j# {( y
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
( W" ^' X& r V7 F& t r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); ! I% P. r* k9 k3 }+ P
if (r == vbCancel)
t/ ~9 H/ j, C# }, D7 q1 r { 3 c% X! ]+ C# i/ R. F
simple.CloseModel(); / R9 I6 {* _- U" g: y0 t" ^
WScript.Quit(); : J1 b1 ^. \5 Z7 P2 M# i1 b
} - ?7 ?, Z, V# Q' R% M
} , q- u! s( Z2 V/ U! {
: P# h$ q* p4 [; Q8 {; Wsimple.StartSimulation(".Models.Frame.EventController");
# c! x5 {! Q0 x/ M
+ V0 v% h8 L! _( s9 N( G2 rif (simple.IsSimulationRunning())
/ Z: L! t# w5 Y* B+ h WScript.Echo("Simulation is running!"); 8 `+ @; D& J& l, q" k
) I! ]6 @$ v% f; c// Wait until simulation is finished * k8 ~* X! p0 v, ^! v: J8 \8 x$ Q- I6 v
while (!Finished) WScript.Sleep(2000);
8 r6 [1 P1 [" E% W% `2 Y & x$ `# F5 c( a6 H/ Z" t8 ?' K, W
simple.CloseModel();
3 [9 K1 e3 O) msimple.Quit();
5 h9 N& E, ~9 C0 n, b) H! MWScript.Quit(); " D( `% O* v" C2 O3 R
4 `; ]- E& S0 j, H- g' E A
! j5 ]6 y G0 u- I( S$ Hfunction RemoteControl_SimulationFinished() 7 [5 q% b& f9 p6 K
{
; r0 T* I2 A8 M& e# E WScript.Echo("Simulation Finished!"); |