Example of a JScript ( B/ c1 l6 i" s" ]$ B5 D
var vbOKCancel = 1;
, J/ i! p0 _+ ^' w2 ~/ Y# R0 zvar vbCancel = 2; ! G9 h% ?# o4 w( w6 G
var vbInformation = 64;
( w: F1 [6 R, C5 x* I P+ c ]var Finished=false; 8 t- J) s5 z; W0 i
" V; {0 ` A! [7 U0 }
var WSHShell = new ActiveXObject("WScript.Shell"); . j* @% d+ C, B0 N5 t8 I( u( e
! g$ Y* T. _- G" } H
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
0 n; s8 X9 ~. _5 w/ [+ K : @* ]+ a% o4 P' F1 T
simple.SetLicenseType("Runtime"); 5 i* g Y( m1 {$ F% R
+ i2 G- s" r5 B+ {4 ktry ( T, S. E9 e& q8 C; j6 ]
{ 3 R2 n# k2 u+ B( H
// Enter the path to a model file!
1 J$ Q d2 m8 m. u% f1 x. d0 k, f! w simple.LoadModel("C:\\Models\\Test.spp");
4 u3 C9 i0 A1 ^& K: V2 j; u} ( Z% {( l: t# z) _9 Z- M7 m
catch (e)
+ t7 d1 d" b, Z{
( w, u' p \( ]! Z" x" i0 @ WScript.Echo("Could not load Model!"); $ }# Q* w1 i2 e- c
WScript.Quit();
5 N% P# O) a: b} 7 y3 |* V3 A& M5 E+ v. h1 _; C' X
( O9 _8 k1 m0 N
try
% k& T, x8 Q, T3 N- K A& h{
W0 i3 V3 n0 D7 @/ S simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { ; V) B Q$ i) H" b
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); : R' d* p* {0 r
if (r == vbCancel) ! i' w: w. k. `. _3 {( S
{
% a% y& x, w5 k' Y( y! E simple.CloseModel(); 8 M2 O; ~* Y5 O" ~( K
WScript.Quit();
- ~7 x& U8 ?4 c8 y8 m. V }
2 X5 e8 G; c$ F} 1 ^3 N( d( T W+ Z5 G
) B9 v; I: g* E- }" Y: asimple.StartSimulation(".Models.Frame.EventController"); 5 r& e' \) q6 Q0 S
; ^1 S( S8 o( }" T6 G
if (simple.IsSimulationRunning())
6 O, I& [, R5 X- {# P' b WScript.Echo("Simulation is running!"); , h, \) J' Z' q, U j9 w5 E
# n# @0 Y2 F9 N7 X: g. A
// Wait until simulation is finished 8 G) |) ~" M' V' o
while (!Finished) WScript.Sleep(2000); 8 ?# M u1 W' _( \
% m# f B" X: [0 D
simple.CloseModel();
! \3 V4 o% ^1 |* v% w W+ b, B; Lsimple.Quit();
5 l' o1 G/ n# V2 g' TWScript.Quit();
: M5 x1 |- r! k2 E: H9 N. d* I$ | 4 e9 W$ q' f0 J9 D! y
$ s! P0 ]( ~- k9 R% f5 X4 ?( F
function RemoteControl_SimulationFinished() . t0 `! w* c. Q" q X
{ , I' g4 Q/ M9 n9 h# `5 C+ ~
WScript.Echo("Simulation Finished!"); |