Example of a JScript 4 N# Z5 f0 Y; `4 ^
var vbOKCancel = 1; , n$ x( A& p' l: {6 T$ N2 G8 K& E
var vbCancel = 2; $ J( \- K: ~. y3 g; Z8 ]
var vbInformation = 64;
3 k; y1 S2 G {; o, K, _2 [+ ?# a" Rvar Finished=false; 7 ^6 {# @; \( o+ Q) B" a
( e# i8 Y8 r3 f4 @1 {. N
var WSHShell = new ActiveXObject("WScript.Shell"); / g. s; e& I F+ s% ~
7 ~, x D5 p' x! Rvar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); : Q+ C: M" U4 J; f# g
2 X# X# K$ U, K3 h
simple.SetLicenseType("Runtime");
1 B y' }$ N. s. t. b* I5 @ O# t! a& A
/ Y) _' E |, J) ~ otry " N4 d" \' f' l1 f5 a" r
{
( V/ g# W( n& t! P0 f. \# O" y // Enter the path to a model file! # c9 w8 q3 V/ [, n4 J3 J
simple.LoadModel("C:\\Models\\Test.spp");
( c. u# x8 c* I2 E6 ?8 n6 h3 K}
1 W+ g1 v% v) S8 k/ b6 h% Vcatch (e)
6 W5 }1 ?) D% N; ?6 a2 O{ ( d e6 O9 [+ P5 h! u% a
WScript.Echo("Could not load Model!"); 9 C; U7 D+ s, X7 f. D5 W/ c4 ]
WScript.Quit(); & {, d1 R8 T/ d# t, Y+ N, \
} ( b( q' n9 i' o$ J- D
+ c$ `/ x2 ], r& r. M& Y; Y1 @
try / {- [+ t( K1 r, u# u3 Y# L
{ * G5 F6 C$ k2 ?& [0 }
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
1 ? n% Q6 V4 r E; G0 ^ r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
/ o9 v0 w/ U5 R) l; C) l if (r == vbCancel)
7 P% \% K5 }9 q% ` {
& n% e' T% t- o simple.CloseModel(); 7 q2 { v7 U# ^7 L/ I
WScript.Quit();
. ~% t; c+ E! I" Y }
/ |! }5 ^" _2 C( ~! C c) |; C& R}
0 x {$ v1 z/ v
/ m4 k8 d( o9 Fsimple.StartSimulation(".Models.Frame.EventController"); % z7 }6 g) |/ E2 r8 f9 s; X: i
( @. h5 n/ R7 h; _' l0 v/ ?3 ]if (simple.IsSimulationRunning()) $ m+ L# Y7 u* E3 E6 B
WScript.Echo("Simulation is running!"); 4 a6 [; z! q5 @. o$ [
5 o' V- i/ h6 h// Wait until simulation is finished
# k* k: L8 V' Z, G; Iwhile (!Finished) WScript.Sleep(2000); * k* H2 l* ?7 n& @, s- c$ B
0 e5 V( m& H8 l% f7 v# Bsimple.CloseModel();
. E4 x1 ~% M- k2 jsimple.Quit(); ( e9 |& K0 `0 g$ [0 z( }
WScript.Quit(); ; [- \7 o5 J# O w( E/ N2 J( q
$ i+ `1 m( V: Q# @
3 O' f( Y8 i: B. Z) A0 yfunction RemoteControl_SimulationFinished() - G, T1 b% |% I0 h/ a( B
{ u: A) J" b3 L5 o
WScript.Echo("Simulation Finished!"); |