Example of a JScript
- i8 Y! `/ Z3 J4 u/ ?% Ovar vbOKCancel = 1; 2 j! w0 q) U1 t x- c
var vbCancel = 2;
4 G( V' |9 o3 f( n! fvar vbInformation = 64;
% r) I5 S! n! _; f7 Q5 c0 `var Finished=false; 4 o$ ?/ j/ j- K' A; D; [* G
1 {- l9 F: @' i6 ~var WSHShell = new ActiveXObject("WScript.Shell"); . f# b& l7 D1 z: S6 I0 P( C* n* F
3 }- J9 v+ V" n. f vvar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); * }7 m! B# a0 s/ v0 }$ A) k8 k
* I. d7 z% w- Q$ _+ J3 dsimple.SetLicenseType("Runtime");
1 w. ^% z$ S2 I8 J! b/ T' ? 0 I$ ?9 J: i; ^. Q
try " S% h* {- y" Q0 ^5 B+ y
{ 1 P. Z& c8 V9 M% z; D* o
// Enter the path to a model file!
# `, @; r) E0 b; `7 N6 S0 @8 ? simple.LoadModel("C:\\Models\\Test.spp"); + I. b1 I9 Z. X; L! G" S! V6 q
} ! i6 K: V8 O7 u
catch (e) / p- D0 k$ i) e0 @7 u0 D. f, U d
{ 2 Y {% L" a D$ l. m$ _& h! l
WScript.Echo("Could not load Model!");
5 C" S4 h: l4 E5 P3 |8 U9 j( d1 S WScript.Quit();
/ A i4 e, K" N+ p4 l/ Z4 M- X}
3 S- l) Y# s" v6 z ( ]: t* @$ |4 X. X/ W
try
+ u0 G# K+ ?8 b9 v8 m- i{ 6 n0 e8 D* K% A1 S7 x( ?
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { 6 @+ _- y! [6 _6 ^
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
( }' e3 ]. I2 ] if (r == vbCancel)
; E! a0 P: \5 ~+ Z; C5 j {
. b( k( p; O/ l5 N simple.CloseModel(); 0 k. T8 S9 H) ~
WScript.Quit();
+ ~) A( `/ K# a( ]; u } 4 t3 w! r, T- A! C! f+ q' F. z( M6 s
}
; g1 i9 V5 v7 V0 |( Z# D - @/ X* g" b9 X( v( P8 V
simple.StartSimulation(".Models.Frame.EventController"); * S/ d, _# a4 I" s, H8 M+ Y& A9 X
, ?8 Z9 |( _5 q6 r' Eif (simple.IsSimulationRunning())
: f5 }, A y& Z( X WScript.Echo("Simulation is running!"); 3 i4 ^$ s) b/ u4 P
. G* [% {) v% H" D. c6 p4 ?
// Wait until simulation is finished
! n+ ?! }4 `. D/ N1 z! d( { L: y3 hwhile (!Finished) WScript.Sleep(2000); # @3 |* w+ r' ?3 x( U1 P# F
) Q0 k; h$ d, T0 ^+ f5 |simple.CloseModel(); - P4 N/ W% G4 b. f9 _7 d
simple.Quit();
/ M; b R- u9 _WScript.Quit(); . y9 F% b7 V* J4 q. f$ o! j
% F/ c4 E h8 C+ R; E+ N: p0 [! ~
& F' p/ }% O7 n) e; H& w+ G
function RemoteControl_SimulationFinished() 7 ?( C& Z$ M+ \ ]
{ + t% D, C# i& C* \# Z4 p
WScript.Echo("Simulation Finished!"); |