Example of a JScript
[1 O8 R" D7 m5 xvar vbOKCancel = 1;
* u5 @2 _; _ uvar vbCancel = 2;
7 l( A4 \2 I# W9 E' bvar vbInformation = 64; ( X: |% N+ ?+ U# M* Q
var Finished=false;
( @# ?+ ~$ j5 K, I * P( o1 h' v( u
var WSHShell = new ActiveXObject("WScript.Shell"); - V% @. @1 f p2 L9 a
2 A8 S+ `) V8 s0 G+ U- |
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
0 o7 D" P8 L- C* N& l) }* c3 r
& Q3 M6 Y4 N4 N8 ~$ Y- B1 D3 ksimple.SetLicenseType("Runtime"); . I1 m5 J. [8 n
8 A( K( H: y/ s; stry
$ ]! I+ c% ~/ ]+ s$ B$ ^0 X{ + q" k2 O& I; c
// Enter the path to a model file! - S$ c8 g6 |4 @, U* x7 g# M
simple.LoadModel("C:\\Models\\Test.spp");
; G ?& E5 a/ e1 w5 B0 s} - p* X! X) S. ~/ J/ z% J
catch (e)
h1 K. D2 @6 v+ N/ ^5 j' F{ / L1 ~* N7 H/ v4 W, X& I
WScript.Echo("Could not load Model!"); . d9 ~, t+ x2 d: Y% e
WScript.Quit();
d$ R- _ p/ u* e8 W& H} ' X c- i9 H9 n
+ d; M- z7 k. @; s W% g! Ctry . B( y3 |( ] v3 T w
{ ' M k1 k0 H" l5 y' _8 p; Y
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { 7 B* |' I! g( v8 f* O
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
: u) Q& d. k9 I! M if (r == vbCancel) H# `0 v: ~. e% [# n2 d& X
{ " W, J* W9 Y+ @
simple.CloseModel(); ) U8 V9 `* m C5 A4 b O0 y8 _7 i
WScript.Quit(); 5 b, C( x5 r+ M; j! F
} 3 Z, G( T! s9 H& I, z8 \ a
} 4 s+ z r) m- G5 \; _6 t
9 V2 O. q9 ?1 L( w3 U( ^simple.StartSimulation(".Models.Frame.EventController"); . p7 [, J" J: y( ^
% `8 r; ]& a J- P9 n: T9 o
if (simple.IsSimulationRunning())
" a c8 K1 U1 \( U4 u5 N* q WScript.Echo("Simulation is running!"); : E" [1 F& G) K. I
+ Q- ~8 e# z7 r5 u* ?5 c( e" `
// Wait until simulation is finished 0 z O% `5 a& Q/ F4 x/ w' {
while (!Finished) WScript.Sleep(2000);
" U3 e1 V/ m; ]4 S) m# Z
6 }& {/ U% w+ n) i0 \7 M* _* `simple.CloseModel();
4 p. f: D a8 s- X& s4 jsimple.Quit();
6 I6 u+ w# S4 G3 `/ c& _; WWScript.Quit(); & e# k- ?" X1 ]4 ]! v
) a! l9 t' R$ B1 G. [9 ~+ d1 d b& `; ?
: a& @9 H4 r9 S+ D3 Mfunction RemoteControl_SimulationFinished()
! o# s" C0 z; m/ X0 ]4 u H{ : M) N8 J, W( j2 J- {3 Z, I& |0 F
WScript.Echo("Simulation Finished!"); |