Example of a JScript
9 e1 \; _# S! E! dvar vbOKCancel = 1;
4 e1 q4 T; }9 x+ `! K4 Y$ kvar vbCancel = 2; * j- z6 l; l4 G/ h1 b
var vbInformation = 64;
2 Y7 I# Q& {: \) ?) G6 rvar Finished=false; 8 l' L, g* g- Q& }* H
0 x* | H( Z: B% U" T5 d& vvar WSHShell = new ActiveXObject("WScript.Shell");
y8 Z, p M d- N& s+ ^& h
0 ]5 _5 @$ O+ {1 K1 Wvar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); 4 J0 h* Y; W- h
* ^# e3 a( d0 F* _# b, b& O( `
simple.SetLicenseType("Runtime"); . l9 O/ u! W# r$ H( ]
8 Q6 y0 g4 z" J) x9 }. j5 atry ; r! s$ ^% ]4 f9 e8 h! }3 \; L
{ ; u) B2 [7 N- [" k! M, q
// Enter the path to a model file!
. t8 V0 o) \ E$ o; F simple.LoadModel("C:\\Models\\Test.spp");
# F4 h$ ~( x1 D u/ d: u} 5 L! L% p3 s* S" l+ [4 e( d( l
catch (e) " n! p5 A* B& O& f
{
/ p2 j6 P! b1 A$ G WScript.Echo("Could not load Model!");
Q1 r$ ~/ k O WScript.Quit();
/ _8 C+ [( p9 e3 v1 o5 K}
6 R" }- p4 x! L) ?. ^# k: }
$ z( ], S2 [1 K% R; Ltry
! Z+ Y4 z% _( L9 ]# i- _{ # j ~4 j c; P |: C `
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { / L+ i8 y# l/ y3 Q Y/ c
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
: Y1 h' d9 y: Q$ @ q if (r == vbCancel) 4 g% @" c+ a- A
{ + Y$ e% f0 A. o5 ]5 l
simple.CloseModel();
& c# D+ k9 W/ T6 G: {; g WScript.Quit(); + t( r# [% h( N
}
! ^' ~ c1 W/ m) {} 4 C* b. J( g1 u
. M( U, P6 i9 [3 B5 ~4 dsimple.StartSimulation(".Models.Frame.EventController"); , o! F# _* Y7 X' I& {
3 X; Y9 H p4 [( {
if (simple.IsSimulationRunning())
, i8 w) o, Y. e! j WScript.Echo("Simulation is running!"); 9 a0 A# h7 O9 `& Q
; A' u5 ~+ X9 \! t( [/ Y' ^: w& H
// Wait until simulation is finished
5 z. {5 ?6 e- T5 l' w; Ywhile (!Finished) WScript.Sleep(2000); ' S' A( U' r* S L0 Y$ j
3 M5 t/ x e0 P& |+ ?3 W
simple.CloseModel(); 2 N* c) u# k, R8 S& J9 r% h
simple.Quit();
3 U9 d0 J( X- n& A$ OWScript.Quit();
" k3 {, y/ X0 X1 [/ @* c ) i, w, \* w# W* i5 I3 z3 l& R
# ?( b6 {; H7 ?/ P: R
function RemoteControl_SimulationFinished()
* L D% j, n K/ r; u1 y) h{ 2 E8 ~/ N- e/ j; Q: _
WScript.Echo("Simulation Finished!"); |