Example of a JScript 3 i9 P9 C7 K" z. D7 m0 i1 E& |; h
var vbOKCancel = 1;
# j1 s: H. G, _var vbCancel = 2;
1 S$ e+ h) {7 Q2 p4 Hvar vbInformation = 64; : b3 {: Y! Q# a2 ]4 Q
var Finished=false; * G" f" D; m' W. [4 `6 J6 ?6 p
) i. b$ P2 }, D7 W/ X, P2 X$ I
var WSHShell = new ActiveXObject("WScript.Shell"); ~& }" p1 q8 L+ l( C" X. T. c
- v$ S* S( B3 u# N; {
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); 4 D1 u( Z% E2 H
. _: l1 N$ Q8 D: I9 Isimple.SetLicenseType("Runtime");
5 P" O9 I. w, `! X% O0 v% h8 | ; k, |+ D) [* o' ]
try 8 h ?8 t' k- D2 ?+ p* S- x
{ * f; E* |1 O' n3 H; r' }4 ^6 c
// Enter the path to a model file! 4 o9 P0 V C' q' Q1 f
simple.LoadModel("C:\\Models\\Test.spp"); 1 m7 n" s2 \( C( `+ Q
} . j0 L/ e1 J$ ?; f/ l
catch (e) ( {5 ?0 J. X* o; v. F
{
7 R1 K9 q+ P2 d! ?3 J6 W+ X WScript.Echo("Could not load Model!"); / s3 d R; ?# h
WScript.Quit();
% L) E5 t( w: z}
" R5 D1 H5 N9 _6 o# O3 l1 V ; ^7 R6 Q f4 {# x
try + ]4 q6 Q4 ~4 P) a% B* n
{ 7 N) _8 t0 m/ y+ e2 b
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { 2 [/ a+ S8 N6 l# [/ V4 K, n3 ]6 f7 V
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
, w' {3 W% j, `% K9 G if (r == vbCancel)
) w- |2 W T# | { 6 D$ l' C8 Z9 }
simple.CloseModel();
" I& f- d; F' J( e0 R9 m6 b9 i WScript.Quit(); : s+ G, j# ?7 \$ ~$ N0 d' L! i1 b
}
9 A. j! V( u7 ^/ D: J4 w# M0 \+ r}
' u/ J1 `4 W6 @) b+ `& s + M6 |1 X& _* l7 }$ l
simple.StartSimulation(".Models.Frame.EventController"); & \* I" v* Y% Y/ g4 \) G4 t
1 D, c7 M9 g- t+ d( E8 |if (simple.IsSimulationRunning()) & v# R! M- p b0 w* `% l
WScript.Echo("Simulation is running!"); + s1 f6 x l4 j: A" E
8 G9 S8 F! Q/ y* c8 I. V// Wait until simulation is finished
: O" q9 [1 |! d6 q. E2 @$ v, mwhile (!Finished) WScript.Sleep(2000); # `9 L2 x |' F F. K, Y
) S2 y) l: D0 s4 \" Lsimple.CloseModel();
" g6 o7 L; Y3 ?simple.Quit();
! b8 P" E$ ^: X- zWScript.Quit(); - F3 \2 e; ^$ T; B/ N0 ?! f
# D7 N' _) G2 |0 r) }
2 O+ Q/ ^2 y( J. O' X7 r
function RemoteControl_SimulationFinished() , s4 H3 m) ~5 [4 m9 d+ C2 @
{ / Q9 i9 t0 A; q0 O, T
WScript.Echo("Simulation Finished!"); |