Example of a JScript
6 l+ h1 ~$ E4 V9 ^4 i$ c3 w2 pvar vbOKCancel = 1; / g* z- [0 G9 f
var vbCancel = 2;
* _' I% p) e$ T2 \: Ovar vbInformation = 64;
& `: }6 z; W. p* F3 c; Wvar Finished=false;
* _& f! n) W3 @9 P7 a L
$ ?1 w& X3 R/ P1 cvar WSHShell = new ActiveXObject("WScript.Shell"); 7 o) g( ?0 O% w V5 R/ s
. a9 g7 b* s9 t* f; H5 yvar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
- F) b4 n o6 e* W 9 ?4 I- P! b% G7 l. \
simple.SetLicenseType("Runtime");
+ E& j- _3 ^+ _! {! Q7 @% \ + J w* f, v% {7 X0 j' |/ D
try / x" [) J5 K# r% w4 B
{ ' B$ u8 j# g% s0 n! ?; u! P
// Enter the path to a model file!
' g% w0 u& u8 w, Y: q! f& W" Z simple.LoadModel("C:\\Models\\Test.spp");
2 j5 o1 L5 P3 s; c. L7 X}
3 X% |! {9 C% Q8 B- ycatch (e)
5 j: c, q j! n( q9 r{ 9 M$ r! z2 E" a
WScript.Echo("Could not load Model!");
! X$ ^! N& ^9 d2 q/ ]0 O WScript.Quit();
( f5 x: M" E& ]+ k$ S: p} / s" s" M" T( M. N" g9 O
( _: e- F( a9 F" n+ b" \3 o5 Ttry
/ i8 S! b' ~8 I& q9 v{ & {) |& d. v- f) F
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
0 G$ L, w; e7 K7 [# Z r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); 0 K) _+ T/ A& `9 z
if (r == vbCancel) % u: G ~+ e( T( @. Z/ a
{
# V. O7 z* i e, k, W9 g4 @ simple.CloseModel();
6 W! T$ I0 p- \) C1 k WScript.Quit();
+ e" S0 b6 R% z g/ m( L }
* \% c1 ?& b5 B& `2 U} 7 Y R, F- d3 O: Z
X ]: C' p3 R9 H( ^' asimple.StartSimulation(".Models.Frame.EventController"); : T- D6 ~' f/ z
3 N1 b) j9 X) S8 y' iif (simple.IsSimulationRunning())
( Y, ?. A* D" v WScript.Echo("Simulation is running!"); h' P3 f ?( {4 z) x0 ?
( t3 A* q9 E; N& X0 Y2 G
// Wait until simulation is finished
+ a( [ N3 B6 |0 F" c, Swhile (!Finished) WScript.Sleep(2000); / U+ H0 H# f, T! _- @* x
$ N/ u# _3 b4 R" P+ {- bsimple.CloseModel(); . T$ A+ E# A7 c. Q* p
simple.Quit(); - | h% p9 D1 S) |
WScript.Quit();
/ H$ j" ^) C' F" c 8 K5 _( v. }5 \9 Y
0 o. h# R8 w1 j3 O. {. f
function RemoteControl_SimulationFinished()
& D3 X1 f4 p9 ]{ / R: u/ p5 w" p, `1 ?# G @
WScript.Echo("Simulation Finished!"); |