Example of a JScript
: T6 p4 ]4 w* U7 c+ d, ?var vbOKCancel = 1;
7 f5 J+ j! S0 uvar vbCancel = 2; ' f# x' ^& Q* ?
var vbInformation = 64; 2 C0 a/ p! u) n& H/ k
var Finished=false; + R5 @; [+ o$ P3 B7 ~0 e- |
! o K2 q$ m( f3 }var WSHShell = new ActiveXObject("WScript.Shell");
; {$ ~3 Y1 e+ N7 L6 f+ ]! _( u' o7 h, ^ & I* E7 b: L/ x2 m7 W
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
5 x1 S3 `1 v: z6 d5 m1 V$ O 1 g# b# p. e1 p2 M. n
simple.SetLicenseType("Runtime"); % v4 {, S4 W2 i: g
2 f% g6 X1 v6 ^) o/ s4 E8 R
try
1 A3 g- T' B f{ ?7 @; J' E: t2 R! b7 @5 V
// Enter the path to a model file! L B+ @8 J" b, e8 \
simple.LoadModel("C:\\Models\\Test.spp");
! s$ f1 o' s9 I# [# X& Q9 A# n}
, ?3 k2 f4 |6 G' n3 Q1 P& \2 z# Ocatch (e) ' ~6 _* P+ n* T1 i" c: G
{ + q8 b2 n' T& G0 S1 F4 T
WScript.Echo("Could not load Model!"); 9 N7 A4 ]8 ^* C6 P9 E1 j9 i
WScript.Quit();
3 _) |0 e& l$ X# N8 C; j}
0 x# W- S4 m' W7 u4 d5 _ 4 ^3 U( p5 _8 k" T/ K
try
7 b$ G8 n* O8 X! _3 q( D+ J{ / X7 W! I5 d- d/ O
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { ! S: l1 O2 T0 X( t) C
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
4 I, o! b- n2 | if (r == vbCancel)
/ c I- g# Z8 J { ( ?/ n {4 B6 r7 |3 c* a j
simple.CloseModel();
! _$ t: A1 C0 ^3 W# q! v WScript.Quit(); & Z$ ?& c8 t) I+ i8 s2 N, S
}
1 ?2 r# s4 `1 Z5 E} * T# w* Z$ r3 o
% H- G# I+ T: _# D( E0 p
simple.StartSimulation(".Models.Frame.EventController"); 0 N( v! F$ P- H p, s! S( O) @
* ~. a4 w" Q* g8 o4 U' @if (simple.IsSimulationRunning())
' w' ^2 ]! T/ N J# d( } WScript.Echo("Simulation is running!");
5 @/ s" c$ n( S0 Y $ U% h, @& ]1 ^- v8 F$ Q
// Wait until simulation is finished ' W2 K8 e4 t2 h7 v9 Z2 U7 C) M4 r
while (!Finished) WScript.Sleep(2000); , T; ?5 S' f/ h6 W; v$ ]! U
7 B& M2 I6 r- Y; N9 {8 gsimple.CloseModel();
0 e& f$ O* V( `5 K, vsimple.Quit(); 7 N0 w" p: J1 D; W3 E; U. @. C
WScript.Quit();
! H' i( g: a0 R( f2 g . [% T& \1 P# {- Y' u: G5 V. X
, o/ \( U- g2 a; P- s7 h# H- l
function RemoteControl_SimulationFinished() 3 K. X! k" b0 b
{ , r8 f, k( z; N ^* p
WScript.Echo("Simulation Finished!"); |