Example of a JScript
$ V! N' z2 b0 ^1 ^* _var vbOKCancel = 1;
- T+ \! D3 c% V/ Q& @4 q* r; |- wvar vbCancel = 2; . u5 x' ]1 a8 { x+ \6 c% _! h W
var vbInformation = 64;
) y7 c: j5 S0 u0 Uvar Finished=false;
1 |' ]! e0 b! \6 l7 S ; l! H3 Q9 ^, t; M+ J, i
var WSHShell = new ActiveXObject("WScript.Shell"); 3 H$ ~: C n/ e( S& Q- q
# f& l/ R# Q, b' v/ r- ]
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); + [, |9 L, w b/ b, G, I
+ f% H/ {# i" Q! e
simple.SetLicenseType("Runtime");
$ ~6 e/ M/ {! i+ {/ e4 I& F$ X5 k" B
5 v! p/ |$ E9 }7 M. q Atry " ^4 ?' ~- A9 l2 T0 _* z/ Y6 _
{
( ]: Z4 D! `' {* r. T# D z // Enter the path to a model file! ( `5 n9 K2 H# m/ j( J
simple.LoadModel("C:\\Models\\Test.spp");
* C0 F: K6 y h; O1 g}
- v. U: n9 n4 f, o- X0 Ycatch (e)
. S$ t$ {( f0 H/ s+ Z{
, n) u) I. e5 Y" W: o WScript.Echo("Could not load Model!"); / h X6 o# d* X5 M+ r
WScript.Quit(); " r) S' \4 U" Y/ `, f' l# J
} % R4 N) E0 t" p% ?7 V- ^/ R: w! @
7 j5 W" d/ i% V( g
try & ?- x2 D0 K# X9 w2 J- z& a
{ ' L4 t, C7 N" {8 s% v g* C
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
$ N) ]9 F: W; t) j% {% f* }* G r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); ! i: N, o \) i& C4 s% D
if (r == vbCancel) o! _4 S/ R R A" u; X! G
{
% P' d: O( s0 ^3 Q simple.CloseModel();
1 s' r3 i8 D( B+ ~ WScript.Quit(); : t9 @' X/ b+ }. W
} , @& b _3 v/ M4 \8 U! O1 d5 p
}
* h3 I( e4 `, v4 O' k. _- Y) R Z% R f. k- Q/ ]
simple.StartSimulation(".Models.Frame.EventController");
! s5 l7 P, J3 q) m$ f3 i 2 ?' o. P: N/ X1 ]" T, J4 j
if (simple.IsSimulationRunning())
& H0 ]/ m( D9 @; K* q- l/ E3 { WScript.Echo("Simulation is running!"); 8 Q, f" B$ a7 n+ C w
6 R& l) ^+ R# @% ` M6 p// Wait until simulation is finished , v) n8 K; V( i3 W* W: U
while (!Finished) WScript.Sleep(2000);
8 s* P |- S- v6 G
' r6 n, D& p) [+ d- Nsimple.CloseModel(); _; w9 t! `; L; c' k( k
simple.Quit(); 9 @7 g% b, _3 d+ Y
WScript.Quit(); & e) j' j3 I. c% s9 ^/ n' L
* G3 o/ X2 g% g$ B - r+ s$ A8 F8 H; O
function RemoteControl_SimulationFinished()
4 T* u1 I& |; X$ o7 K{
7 [% w/ g2 I& h3 {* t! F WScript.Echo("Simulation Finished!"); |