Example of a JScript
6 z3 `' f- K4 C A6 d6 X& |var vbOKCancel = 1;
7 I9 n/ O$ ~9 F; P" G$ Dvar vbCancel = 2; ( A. }2 {5 Y+ h: U8 g
var vbInformation = 64; & M- u1 r% G8 H4 j" r- {
var Finished=false;
8 d p- O. b- ^& y3 F
3 {# O' Z, w) P& m( {var WSHShell = new ActiveXObject("WScript.Shell"); ' j9 r5 v6 R1 d& F/ i# T* L
( H+ k- P5 x2 e( r( K
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
0 N3 c3 B" X% W% x& @ 6 s+ t. X6 F0 a0 q0 T
simple.SetLicenseType("Runtime");
; p+ h5 B: {& S0 D' t * J3 o! L: {/ |! o
try
* ]* J* V; B# a2 D{
$ t% _$ Q8 q! b3 u) t$ Z" l! ? // Enter the path to a model file!
$ Y: J& W K9 { simple.LoadModel("C:\\Models\\Test.spp"); + k& l8 c, F; u# [, Y" u, {, @
} $ b/ H0 \5 L* i7 k8 h1 S
catch (e)
0 ~% U0 \' X% r/ I, P0 L+ l0 ?{ # R" y' b8 n4 Y! k; `0 A
WScript.Echo("Could not load Model!");
/ ] @* O0 v6 x" F9 V9 A- K WScript.Quit();
" O& c6 [3 A! v5 i" ^}
E' [: \3 I+ K$ X* Z: b! f
3 O3 K0 a" j$ R# ztry
5 w& q$ l7 ~1 g{
, I/ r! z$ a& w' F$ L& T# u1 b$ h7 r simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
$ A( I0 E J; J% d& [2 s7 S2 A r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); 0 F( R' a' E2 X4 y
if (r == vbCancel) # N3 G$ V; F9 P9 W/ l
{
! L! F! A/ c% K' V" m simple.CloseModel(); I# d1 U+ t) h+ l0 {+ g: u$ h
WScript.Quit(); : c8 w+ X1 A; C7 t8 d, |- C
} * [" M6 w9 u7 j
} , [% o# d1 x4 t9 U p
) E9 M/ i) ?/ ]" hsimple.StartSimulation(".Models.Frame.EventController");
" N( U" k. K$ t. T# _ 5 f# v! w* B6 V7 f3 }0 M
if (simple.IsSimulationRunning()) $ B" f# u" S3 S
WScript.Echo("Simulation is running!");
. Z9 ?4 j& C9 v! t, C9 y" F : {+ K, Y7 N. s+ R
// Wait until simulation is finished 3 V# b, T% i5 q' Q
while (!Finished) WScript.Sleep(2000); ' I+ M6 ~' x8 H1 ^4 S
X3 s8 D+ E/ ?' E' J% w- M6 n4 Gsimple.CloseModel();
+ t# T. s6 u/ \7 S0 H0 ~simple.Quit(); + B7 I1 p& U5 M$ D
WScript.Quit();
8 H& a6 v: p$ A7 o. N5 T 6 L) ^5 N5 l$ `, }6 a7 w3 P
5 u( G+ k/ `1 h; m( Yfunction RemoteControl_SimulationFinished() 9 U8 ]. h- t: u& e
{ / c5 [% |& k, d# L& |" P( l: S
WScript.Echo("Simulation Finished!"); |