Example of a JScript 9 I5 E/ a0 P& Z9 d' E% Y7 l! Z2 I
var vbOKCancel = 1;
+ X* A% i9 ~! T( W zvar vbCancel = 2;
2 Q! B4 z1 H( v+ r* @% J, t4 b6 Lvar vbInformation = 64;
1 o2 T4 r2 f% G( L' @var Finished=false;
& k9 h( K4 `: |; T' L. {8 ~
. t+ R& T8 Y; t& Jvar WSHShell = new ActiveXObject("WScript.Shell");
. m2 u# }8 E5 `% M& f) H ' w6 ?0 U* Q: Y$ v; ~4 y, b
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); - T% U* A% S+ c: s( v4 o8 \
1 ^$ D- l9 I ~ ssimple.SetLicenseType("Runtime"); : b( _) Q/ I3 v- n3 ]
2 P& V- F$ e: ~# I% F) @; H
try
. J0 t( _: v! x! p$ f2 ]! F3 |{
. L* W* {1 {$ Y% U // Enter the path to a model file! 3 M$ P$ H) S" V: _% |3 e
simple.LoadModel("C:\\Models\\Test.spp");
5 T' ~& |6 m# w( [4 H} , i# q+ {3 m) k: j7 X
catch (e)
# C- s r% K2 o. ?7 e7 z{ / M7 E4 ]- M0 z% V) x* L h: o4 n
WScript.Echo("Could not load Model!");
0 X5 H' |7 d6 ~+ z$ B5 Q ] WScript.Quit(); # p* N, z+ \$ s8 f
} ) C* I# V' i$ U3 A
: f1 I# K4 U! j7 o" Z
try 3 m, u( Y* l" E8 `% n' S
{ ~9 E% p" D& n) e0 F8 u; m
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
# J2 _- Q8 D1 m% ?( ~5 w r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
* W# P( a& o6 j' J if (r == vbCancel)
/ `& ^ O) v; T8 r+ j$ `# J0 C {
/ d' ~5 f0 b; o: \5 k simple.CloseModel(); 8 K' n( Q, ~' L( v* K9 [
WScript.Quit();
+ Z+ q( M0 D* [$ ~ }
$ L/ k. q. O7 U1 E4 R' N# Q j! [% C} 7 Y2 Q3 ]# Z" n" U
! F- {) P3 W8 O) l0 \( ] A0 usimple.StartSimulation(".Models.Frame.EventController"); * s- E: ?- i! z- u
2 _6 Y E M+ a& U$ O( Z& Cif (simple.IsSimulationRunning()) ; f+ L3 V/ l5 J& g
WScript.Echo("Simulation is running!"); : T. y" `5 z& i8 y4 ]8 m
4 ?# ?( m- C% ?4 ]
// Wait until simulation is finished
5 b- p8 T) T& }6 O' h- Zwhile (!Finished) WScript.Sleep(2000); 2 |: a, Q/ ^6 J8 I
/ B" F& T: N2 f: C! S6 l6 Nsimple.CloseModel();
4 W% v1 }( c9 G# Dsimple.Quit();
: Z6 }3 L% C6 \/ t/ R& F- LWScript.Quit(); 6 {9 c! h6 R8 g( m1 r
9 y1 O' R& T6 Q. g
( A% f) {; N! A0 r( D! T' Afunction RemoteControl_SimulationFinished()
4 I( ?, I- g1 @9 U{ - R4 `4 S- |# C% f- h; A
WScript.Echo("Simulation Finished!"); |