Example of a JScript
( E! |/ q# e5 e* @var vbOKCancel = 1;
6 d0 F+ v" I( Z: K7 Yvar vbCancel = 2;
) c' d3 K# h0 T2 n& p( gvar vbInformation = 64; " @' z9 j' O1 ]7 d3 r* j* B: ^( n
var Finished=false;
! }( z6 ]! F' [& J+ |4 R$ {
3 T% h: w' u4 V4 f5 Tvar WSHShell = new ActiveXObject("WScript.Shell");
1 r _9 C2 t3 h# u$ n" u3 b8 |: P6 V $ ?/ h$ O0 R( b! |- E' m
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
7 Q) y$ z( R# G' ]8 }$ @6 ]4 e # _# {1 W' O9 F, [
simple.SetLicenseType("Runtime");
( p/ W2 z. e6 C$ U# F1 H - B" i, v7 N3 [/ v/ W2 w I
try & L8 T" \3 H2 k8 q
{ ! X! x+ f2 o$ z3 ^" @
// Enter the path to a model file!
3 z7 \2 V, R$ ?1 O simple.LoadModel("C:\\Models\\Test.spp");
. |) I5 G. q+ n* ~& s( ]2 k} 6 S2 i, P! A) A1 R" \- y$ N! p
catch (e)
' y& E2 o; y- w( a{
: B A; j2 v, `8 Y- _+ A' R WScript.Echo("Could not load Model!");
& z! C" {. l7 V& V# H* y WScript.Quit(); 0 r' c. _! j: l9 c% B1 L/ O( G& `. s3 t
}
& P1 J+ C8 ~# q9 C
' i) r. N! p- S& ^7 w7 Q( Itry
0 K' v' F- X6 a( @: r) ?{
# _. f) y/ }/ J$ |- n$ N& q6 x simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { ; b# D2 @# {; J9 p' B
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); 4 D5 E8 c# s$ k0 ~- w, o# ?, d2 K
if (r == vbCancel) ' ~# g4 Z# z2 w; J) b
{
2 O/ Q! ]; l! [* c simple.CloseModel();
& v8 P$ e! b/ v2 r, a9 F6 w WScript.Quit(); - i4 `( ^# w2 w: a0 K
} % d' n H% u! F, }& w& d6 d
}
" C$ h7 S- Z/ p2 H6 A Y
8 H# {0 s( M0 D, _' r* ksimple.StartSimulation(".Models.Frame.EventController");
/ p$ X/ l0 K& z+ v- i- B5 [
4 f4 {. T' B) b- e+ W( s4 rif (simple.IsSimulationRunning())
, M1 s& I( ]! W9 I% z7 T3 x% j! m WScript.Echo("Simulation is running!"); & R) `% m; g3 a
9 n8 m$ A7 I' d S4 p! l// Wait until simulation is finished
3 w3 q5 e# p% s* O+ E7 bwhile (!Finished) WScript.Sleep(2000);
% `! D+ i9 U- L
4 w+ V7 K6 Y9 J* Z" wsimple.CloseModel(); ( ]) b7 H8 |' }4 t) I
simple.Quit(); 7 ~0 \4 ?. U2 u6 I; a3 H4 W2 A
WScript.Quit(); 1 v! c" z: J" R7 [
x! Q( U3 V, X# K
: L- N! C S3 ?& e% @+ l; rfunction RemoteControl_SimulationFinished() 1 q2 `5 g! \2 o% ?2 S- S
{ ( l y' z& ?$ r" v- a/ _% G
WScript.Echo("Simulation Finished!"); |