Example of a JScript
]# o0 E& b) y4 ]var vbOKCancel = 1;
+ J" u) f) w2 l" x9 {: Fvar vbCancel = 2;
3 Y1 j$ y8 }+ z) T( x! |var vbInformation = 64;
, P1 \8 i; m' f# \% [2 Q1 Kvar Finished=false;
0 k" ^. ?. N7 Q0 e7 }6 s" r7 v% C
* w6 Y6 z( E: Ovar WSHShell = new ActiveXObject("WScript.Shell");
, O$ d+ F: h7 x9 g: m( F3 ~
, ^) p! d4 c( m5 _9 [' Y _' }var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
% d3 p/ y) D# m" e T) A) y # P' W3 ^+ [4 |" D, `" w. y: Y
simple.SetLicenseType("Runtime"); % b7 q& Y1 z- j4 ]: s( U
: C; Q/ z P: G( u" @- S( Htry
& n4 w5 j! F" u' ?9 y* n{
/ c9 ~9 }# \! K s- O% y // Enter the path to a model file! # q% X6 l- i1 {: u
simple.LoadModel("C:\\Models\\Test.spp");
8 A; U/ O* j! B# O9 V4 n, k7 J1 Q0 \}
5 N7 w. d0 z1 T, Fcatch (e)
8 x; R' S% U* t7 \; v) i8 _) O N{
2 i- T- k8 U( d _ WScript.Echo("Could not load Model!"); [, {" A# o/ m; c" f3 l' V
WScript.Quit(); : b2 S/ z" j& P* k9 N% p
} % p7 [, R6 k( O7 d8 c
+ {. P3 G7 O9 k! y2 @
try
3 S1 ?5 H. v; Z: H/ w) D4 r( b{ , I/ ?4 v7 }, a, A n2 l7 ?& {
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { 5 s4 Q5 O) e6 D4 f |* y% F/ ^
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); 0 S; l+ k( P/ y: \, j6 p8 f T
if (r == vbCancel) + H' e) p9 H6 n$ N* L; p0 A
{ & m4 ^- S8 B/ d9 f* y+ Q0 U
simple.CloseModel();
) x5 D5 E: V; d4 i% q WScript.Quit(); ( y+ ^( X5 e3 A. h6 z$ q. ?2 `
} 1 U, J4 U- v F9 L7 E8 q5 \$ ~
} ; y7 L) H& f1 j
5 {+ ^5 W5 C! H. Usimple.StartSimulation(".Models.Frame.EventController"); ) q9 M+ P% n; v6 k
! D) S& o: H& h/ Pif (simple.IsSimulationRunning()) . @& j2 a# ?7 {) n5 Z
WScript.Echo("Simulation is running!"); 6 f. J# L7 q4 h9 c9 x
% W/ h. Y5 i$ o4 `* r* y
// Wait until simulation is finished 2 o8 a/ E5 q9 u8 R
while (!Finished) WScript.Sleep(2000); 4 u+ a S3 H0 @4 }& {! V$ G! _$ ]
& E) U$ y0 m) usimple.CloseModel(); ; {( w( W# C& h; h7 }2 P- k: Y
simple.Quit(); $ p; @" Q" w. C, }+ e! Z1 B6 U9 G
WScript.Quit();
1 J3 t, t1 Y7 J2 I G $ m! A( e/ p+ I% c: ~& F
$ M3 s, d/ d! c% {5 v$ X3 y
function RemoteControl_SimulationFinished() & ^2 N. C/ Q* w
{
% W7 K# b/ o' {2 q( u! _& ?. U$ M WScript.Echo("Simulation Finished!"); |