Example of a JScript
5 z9 @3 n9 q1 {7 [; c5 ~- qvar vbOKCancel = 1; P1 X: M/ ~9 I( p. w2 ]6 n
var vbCancel = 2; $ ^" _% R# K o9 I! `) N* C6 P
var vbInformation = 64; 9 `3 E+ i- Q1 C
var Finished=false;
! B! y* k8 v8 D2 q$ G9 v
1 W( M! P1 o# C7 Z0 r/ t ovar WSHShell = new ActiveXObject("WScript.Shell");
+ r4 H! i6 K1 ]* I6 r ) i" V3 m4 \4 C' f* U% r
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); & q" E( T( u b( h& n8 H% m
" g' K1 u2 M$ nsimple.SetLicenseType("Runtime");
) t# u7 k$ }# {9 _' H 1 U& h( ^* J$ }6 ^
try
3 `: H) ~2 Y/ ^) |3 ~; y/ }{ 8 ?3 A. B9 O* W% K6 J" z4 o
// Enter the path to a model file!
* R, f0 Y- ^; y# F6 L# L+ @! i simple.LoadModel("C:\\Models\\Test.spp");
j' ^! T) d+ w, V/ b}
. C2 x- @- r9 N: J5 kcatch (e)
6 z9 U, S+ Y# F! m7 u) q{ 8 J: s3 `+ x) s- e
WScript.Echo("Could not load Model!"); % q I3 `" U* w! N
WScript.Quit();
8 N' I4 ? y7 e3 k8 I. g- w, R2 V} 8 m& V; f* i' A- M; h* W2 ^
U9 i8 m! k1 D. g# [$ qtry
+ B! Y! u$ k, I' O{ / ~* W% e/ z- W0 S3 k v
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { 2 ]2 J/ o+ L. d. E$ m9 u7 X& l
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
/ e0 N8 Y) l3 g9 H# b8 u. o if (r == vbCancel)
* C' [5 o4 z6 j8 ^5 o5 t* a {
' z1 y6 L! F+ c simple.CloseModel();
2 M7 q" |0 n1 Z WScript.Quit(); - w6 V9 P/ H) W2 P' @- i. o( ^
}
% B7 Y* _, h" s9 ] d" \7 [} 4 `& A7 J* M+ v, ^% ~, D; U9 G' `
9 C, s: ?9 q! y o2 Z- B( z: a
simple.StartSimulation(".Models.Frame.EventController"); ! H1 `6 Z. \$ ]+ |
1 f8 R/ ]7 y0 m
if (simple.IsSimulationRunning()) ) W$ B0 A, J. W! s& C% ?8 U
WScript.Echo("Simulation is running!");
6 t' H8 I, }2 a, ^
2 ^, q5 v1 I N// Wait until simulation is finished
" e! ]: U. c. W5 m: I& K& Swhile (!Finished) WScript.Sleep(2000); " A5 z7 y* [: U# Q
d/ C i7 g9 v- r% d
simple.CloseModel();
( h% T4 C- y/ e4 G! v$ q. Z: m. \0 e2 msimple.Quit(); / L- l. f- ~, i2 B) j0 c6 x% k
WScript.Quit(); * {; G4 }3 u- Q6 p5 G
$ T# \+ s, w+ V
( v5 @1 w$ O$ A, n
function RemoteControl_SimulationFinished()
, y5 @: P) ~$ a9 P/ H{
! ~4 j% H, `. {. h& d WScript.Echo("Simulation Finished!"); |