Example of a JScript 9 p- T5 C) o, P3 Q$ u; b" F( V! v
var vbOKCancel = 1; ( E5 |% N7 O5 s- _' G3 W1 C
var vbCancel = 2;
1 O# c- X/ S* E( ?: o+ U2 Lvar vbInformation = 64; 8 R: r3 P, F9 v) M
var Finished=false; " k% f8 _" c+ Q
b% Y' p& J8 Z! svar WSHShell = new ActiveXObject("WScript.Shell");
, N/ f: x6 X* V1 u
8 |. |: P: C/ g! Y4 L& |var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); L" o+ F" l. s' ?& t. `( N& g' |
# N; N3 T* |* x% @$ V' g1 @: L# Osimple.SetLicenseType("Runtime"); " j" t2 t" U5 u2 t7 W2 p
. W- ]. ?: e+ ?
try
' R4 c) A, a' t- i{ " c% v6 e9 ~3 v/ F6 [# N
// Enter the path to a model file! . P7 e5 z+ `8 ^, M8 M: u. T' |& S
simple.LoadModel("C:\\Models\\Test.spp"); 5 O( c" M$ \# y; k! Q
}
' u8 W( g3 j7 {; X- _# Rcatch (e)
# h: ?7 n$ U' b$ n2 J{
3 W3 L G, E D% Y. A h* y WScript.Echo("Could not load Model!");
: R) p2 O a2 B* A5 q7 ` WScript.Quit();
* n i- v8 N( \6 r0 a}
6 }5 \3 _' s( @5 r5 L
' Y% i( j3 q+ r2 D6 {: J9 L* K; v! Dtry
g2 |7 y, h7 N$ J' f. Z{ + p3 I9 _% Z8 Q& o+ H( G1 G) b9 K
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { & ?' O+ S, i, V4 Z. c
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); 9 ~# L* U( R2 m$ g
if (r == vbCancel) 1 L) R! T) n6 Z7 r- ^
{
" A( z! R* N1 ]" o& G, \. a simple.CloseModel();
( ^% I2 p$ s7 p& k& m: G. X1 F WScript.Quit();
8 T n! v% e# M! R3 D8 [9 i } * L& n) W% s1 O/ {8 ^6 J$ w6 s. Q
}
6 @. | i, j; T% \" a : }( C! o' Z$ V$ o: [9 n
simple.StartSimulation(".Models.Frame.EventController");
/ h: R6 @9 E/ s7 E* N
2 o( b( Z6 a1 b7 l4 Rif (simple.IsSimulationRunning())
6 y( Q- ?0 z* H1 b WScript.Echo("Simulation is running!");
$ E; E2 F( K; g
$ \/ q' M) c6 W% G6 c) V// Wait until simulation is finished
. m8 S9 ]+ o Q6 owhile (!Finished) WScript.Sleep(2000);
, ]* F( d. Q1 Y$ \4 _ {3 \' m
( M9 _' z: g" ]' {! lsimple.CloseModel();
% E c% a D& U9 [6 _simple.Quit(); 6 W) @" N- w8 o# p" `
WScript.Quit(); ' r$ X% X" E0 [" [4 H4 h7 S7 V4 }/ V) R
# R: F$ K4 I. p1 Z
" v/ l- ^5 b- S, g( U! h' P
function RemoteControl_SimulationFinished() ! ~6 D4 \- Z/ Y' {
{ ! @: n. \7 v6 S+ [
WScript.Echo("Simulation Finished!"); |