Example of a JScript
8 O, j. D% g+ uvar vbOKCancel = 1; $ r% P) S, f8 h: [4 M+ D; s
var vbCancel = 2;
7 D' G* G: X/ T6 w+ o' Ivar vbInformation = 64; / l7 X! L: e- A" e! U% x
var Finished=false; + ^ Z# N3 @; e T
4 m R/ ^$ c7 s1 Yvar WSHShell = new ActiveXObject("WScript.Shell"); ; W3 ?" N+ V" e$ X7 t
# Z4 M6 S/ o5 H/ F& s
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
/ Q/ u& |/ L. s6 n5 G/ W, Z ^0 Q9 P9 B9 n; r3 w; Q
simple.SetLicenseType("Runtime"); ! b; q. u6 k* q" p
- x( y6 j$ {, i. H: itry : b# S x6 u) Q, u0 |
{ / |2 H R# K$ y
// Enter the path to a model file!
. i5 w! v0 @" [1 A' @7 C simple.LoadModel("C:\\Models\\Test.spp");
* ^1 F9 c, y% V* I}
) ]) q& ~ g0 {( ]catch (e) 6 [2 a* }! l) k( O( S4 V
{
/ _( a* I; z9 H WScript.Echo("Could not load Model!"); - g7 b5 l9 ?9 b6 h0 M$ P5 {& f
WScript.Quit();
5 M Z. `; w' U1 }: R* [4 g} , [1 b6 Y5 A1 ~ c% j
& ~6 [, Y7 X# a. w0 m; jtry 9 u: w3 p' C* D6 Y; _8 T
{ 6 k. A" b( A5 K5 M
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
4 l2 v- F$ f( i3 a r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
2 j- t+ S; D$ `, i0 ^ if (r == vbCancel) * a: x9 ~$ D/ O5 r5 ?' ]% U
{ 7 z, x) m" ]3 e- T% G
simple.CloseModel(); 0 m7 u% O, N# G% {
WScript.Quit();
/ G! e, V* J$ _% p7 o3 p' S } # |% n( R* ?. Z7 @: C8 _/ o. ?& r+ h
} + ^7 ^1 _. K6 G
* q' L/ E3 z7 u0 `% Esimple.StartSimulation(".Models.Frame.EventController"); 8 K4 }9 C/ c5 @
% T T' P4 E# Wif (simple.IsSimulationRunning()) 5 d" M! _$ }' Y2 i8 d2 l- }: o
WScript.Echo("Simulation is running!");
$ W7 j# \. o. J s $ w, [% J3 Z* u% b% v! Z
// Wait until simulation is finished & j& I: |7 z& m% Z% c
while (!Finished) WScript.Sleep(2000);
( ^9 v, }7 f% b2 J- e3 c 7 U. |. M8 [# I5 N8 V* K
simple.CloseModel();
" B9 @# b8 a: i/ V( dsimple.Quit(); * Z" S/ ]: e L
WScript.Quit(); 7 G, r$ v* X4 R5 j
5 a" s: U: i5 M6 ^5 L1 p
9 z0 Z! P' a5 ]. P! w1 d( A2 Y
function RemoteControl_SimulationFinished() 6 L' r8 v/ z5 s8 [& ~. p' J$ ?2 f5 E
{ : q- h# p" d( x, ]6 _4 P4 E
WScript.Echo("Simulation Finished!"); |