Example of a JScript
7 t8 B1 M% S7 ?var vbOKCancel = 1; ; f8 r: u2 H4 a+ n1 b
var vbCancel = 2; % `8 h3 r# R3 Z
var vbInformation = 64;
# e" O7 ?3 i1 o+ Q/ U$ t+ bvar Finished=false;
3 Z8 c( T* R P1 t. d: ^ 5 W! h; l1 y/ y' }4 e+ Z8 W" M
var WSHShell = new ActiveXObject("WScript.Shell");
% Y( Z# K0 _' H; j, U7 M& F$ W+ I ! Y, ~: e5 n' Q7 E) i+ _( O3 D
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
2 j" W% a- t$ N# o0 \/ ?" T
8 ^5 ]5 t# P* w$ L ?7 I# jsimple.SetLicenseType("Runtime"); + f8 Q2 v( `( j+ M- [( q
- E" T( _& r- K3 n4 rtry
0 C% c& ^1 g6 V2 X! {{
, q3 o, l- R% s // Enter the path to a model file!
! f+ @" J" {+ p/ n8 {% N simple.LoadModel("C:\\Models\\Test.spp"); $ X5 W! n3 ?- ?# x p- n
}
( p: k0 h5 H: A4 Z+ h& Ccatch (e)
. P: V$ d7 Y' h/ H{
" S& Z) M) |! t: N+ C WScript.Echo("Could not load Model!"); 5 u; Q0 r* M- y l
WScript.Quit();
3 h' |/ q1 A9 X. n7 H% U' J} 6 l' E" v2 \0 \6 d8 K! F
( J. `( G4 F( qtry
/ e* D( b9 I! j% _{
/ N e) M" G) L simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { 2 u$ g1 C, t9 G8 i7 B
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
9 |. y* s( Y) U4 @$ N& N/ S* w if (r == vbCancel)
' R V# M2 D- {6 j6 H. H7 I { , ], C$ H/ N' n: G" u+ l* y
simple.CloseModel();
) K3 g# g: g( M Y WScript.Quit();
( b# d5 Z. I# ]6 y6 u3 @6 N# |0 L }
5 H" S% X" a# p; [& P2 {}
2 Z' f) Z8 a; K0 b+ C- I2 {1 b
; }: y( T6 {8 T6 }2 }simple.StartSimulation(".Models.Frame.EventController");
( k! f4 `; @$ K6 Z9 A/ l5 G
2 o- j2 L) h: Z. R0 Iif (simple.IsSimulationRunning())
7 m" _" |2 G& P+ c% V5 |3 ^ p W WScript.Echo("Simulation is running!");
4 F; `0 d* e6 e* |7 V/ ]& E. H
9 _9 ]1 A9 k2 k# N& G0 s// Wait until simulation is finished
7 Z7 E2 k8 {+ Z/ hwhile (!Finished) WScript.Sleep(2000);
7 A% m( \0 v6 o( k5 Q' [
: g) C. F, |& w8 N1 Q$ Wsimple.CloseModel();
, \' ?7 C1 |; M7 m; osimple.Quit(); 9 q0 v. f! j* T8 e
WScript.Quit(); 8 U3 E2 S+ s1 q( G! v3 h
: T3 z3 {9 o1 t 1 {: _0 D- S( `/ p; p+ Y6 B6 `
function RemoteControl_SimulationFinished() " G( }* N$ X# @$ f4 r
{
" c. Y' m- V4 t9 k WScript.Echo("Simulation Finished!"); |