Example of a JScript : h4 y$ f& F3 ]( V3 f, S& Y
var vbOKCancel = 1; $ }) x. o* V# f1 K5 g- B
var vbCancel = 2; , m$ U; E/ a. ^/ H9 S) D0 n
var vbInformation = 64; " I6 v5 `( ^' V
var Finished=false; 9 S" d' A# o6 J& H- {8 X% q
& _3 _3 q/ N0 n1 D& V/ e9 ]7 {
var WSHShell = new ActiveXObject("WScript.Shell");
5 t1 v/ p$ I# x% Q
+ b8 T W) X8 X5 O& b; Mvar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
. j+ a( \# P4 y" C: B8 Q
+ h% n; J1 U s+ Y; T* E! v/ Esimple.SetLicenseType("Runtime");
4 R0 A4 ^) b# e1 e
) A% M; h- n& Utry 4 S$ O5 n; [6 p& o3 Z7 Y6 x0 R
{
/ R; p. F* ^1 c$ N# N // Enter the path to a model file!
5 q* X0 ?. T4 P/ Q% g) z simple.LoadModel("C:\\Models\\Test.spp"); & u! Q t: d* Y& l" A& [
}
- \# r0 n! Z+ p) }7 V! Ecatch (e)
0 U( N8 ^9 g n3 H) H) U{
: @6 Z G1 Z) _) x8 S3 Y4 i WScript.Echo("Could not load Model!"); - N4 u4 H9 y! l+ e
WScript.Quit(); 3 o% Z" L9 |% D, n5 H1 a5 o5 @
} + n$ }$ P( _' J1 m) s3 n
S9 o0 r0 ]" D; [. otry ! Q/ A/ o( M, H0 ^3 ^8 Q. `' n1 X
{ 8 j8 Q+ [3 [! B2 Z% @. {& ^. f3 e
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { 5 h5 p! n: X) r0 F& [: W* b! y
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); $ _* e' D+ p" [
if (r == vbCancel)
* M7 O; F; c' ?6 k( M% s { + ^% P0 b& H, h! S0 R
simple.CloseModel();
, O" o/ g; v9 P6 I$ t7 T1 x8 |9 l WScript.Quit(); ) D% ^- l0 n8 r
} , r+ f. n8 T0 R. k. S
}
% i* q' P; y8 O- O
4 R; ]/ C. D! B6 Asimple.StartSimulation(".Models.Frame.EventController"); - E+ s1 n- K5 p% Q( S
2 j( ^# E8 x2 e6 I2 Y: x1 jif (simple.IsSimulationRunning()) # b/ K. r2 h5 Y3 C* t& u) m* ?! }
WScript.Echo("Simulation is running!");
' C" K( O% ^: R4 E% {" Q2 c! t. s+ L
) }) {6 S: R7 z// Wait until simulation is finished 8 l! q T- {4 D. a$ }0 {" `
while (!Finished) WScript.Sleep(2000); ' w( a! d5 f4 W7 k0 a
P- ], i! @' T& h# S4 esimple.CloseModel();
; u; c/ u" E [- `: I. v- ` hsimple.Quit();
4 E0 Z4 x; Z6 iWScript.Quit(); 4 |9 v( z/ T, R
- e( w5 K8 c& K. d" M
3 i4 `& X' F$ Y7 v3 P( Yfunction RemoteControl_SimulationFinished() / @! a& N5 y# M& m9 t0 M0 b) g% O
{ : G0 \8 T" Y# C' _" s& M: |9 M5 d# f
WScript.Echo("Simulation Finished!"); |