Example of a JScript
7 T* O, J. O% z, L# X: S8 Jvar vbOKCancel = 1; , ?, c/ d" Y- Z
var vbCancel = 2; ( N' U" F F! W- a+ T
var vbInformation = 64;
, ^- O; ^: N5 S& Z5 Qvar Finished=false; - ~. ]$ e" k8 w/ K( P, |# ~
- u9 q/ |9 y9 K( r5 f, Nvar WSHShell = new ActiveXObject("WScript.Shell"); * w) r9 H+ G% U$ D, j& N
, Z' | A6 k9 b" O& ?! x; I8 Evar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); ' s; ^* o) v9 D% s# v6 ~7 w N
6 I: b' u% e8 w5 y! @
simple.SetLicenseType("Runtime");
( \' o% m$ m; i6 V! H 6 ~: L5 ~- W6 u
try * D2 Q/ A" k- w! d$ Q
{
9 X% L( E/ V% k7 X. u // Enter the path to a model file!
. i M( X: Z9 `# |! r, \ i5 W simple.LoadModel("C:\\Models\\Test.spp");
5 s9 W" L, B4 ]/ r! f2 ]9 F}
. p W- C7 G: G$ t+ H; ]* lcatch (e)
+ @2 B4 _2 o0 U9 b4 i e{
9 _ ^# J5 a8 c WScript.Echo("Could not load Model!"); n& O* i" {. G, d v$ {
WScript.Quit();
h9 n! D& v. T, a" S* B* h; b6 F}
$ }: Y4 i9 _" X( t3 [: R% S
6 z' R: D* v1 \6 x8 Xtry
' \/ m8 z4 W: b9 }{
# c8 ]' n9 S( m4 j3 |% o simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { % Z) X. ~7 J( T( J ?/ y
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
% S0 N Y3 N* f1 D% w9 C) }& j if (r == vbCancel)
! `( Q' j; [ z7 s" @; R { $ z- |# i8 j, P. n( Z/ D
simple.CloseModel();
! P) W/ c: m' l; B! \ WScript.Quit();
- x- u0 p7 `4 y O. e0 V }
' U/ W( ]) c' ^, i} I6 g( Y% V4 V0 X6 ^0 D
$ Y V' |$ ?1 R+ l- r
simple.StartSimulation(".Models.Frame.EventController");
9 J9 a' ~) F3 X( m$ s . v6 S0 J- ^: p' U$ X
if (simple.IsSimulationRunning()) 9 K0 w# J, O& E" U1 Z( @7 o
WScript.Echo("Simulation is running!"); $ g1 ^0 @; E6 s! O
+ h) k& @, Y- w; s- { C% K, G
// Wait until simulation is finished
' q, ^ C- H: `( n' Fwhile (!Finished) WScript.Sleep(2000);
1 V3 l i9 C. G8 } ~ m: U* `, s: B2 r. B# p8 g
simple.CloseModel(); 6 k' P7 z+ N2 I9 D
simple.Quit();
. D/ J8 J1 R5 f; ^! S3 dWScript.Quit(); ' T2 f) f3 b! z% r9 F& M3 X
|" U/ I" P( [) d& r/ F
. G7 _8 q% K: _1 k. p% f
function RemoteControl_SimulationFinished()
7 ^2 U4 g+ f7 m( F. i* a5 D* [* A' B{ 3 g! \. v- @$ t2 O
WScript.Echo("Simulation Finished!"); |