Example of a JScript . O3 O5 z D [8 t& }- ~) D
var vbOKCancel = 1; * p9 ~2 {4 F( x
var vbCancel = 2;
& P/ _9 A1 ^+ c2 [8 F& o7 vvar vbInformation = 64;
+ e7 Z3 x% P* _# a7 G% B0 tvar Finished=false;
7 u0 i! q/ e2 @ ( X1 N' r- ^: Z! t# D* \( X# A
var WSHShell = new ActiveXObject("WScript.Shell");
+ a% M) a3 M4 ~( X5 u4 I" a 8 y5 Z2 w$ m, ^
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); 9 `+ C- x0 |' I# N6 ~' U1 P
# ]9 m9 H& g8 f! ~simple.SetLicenseType("Runtime"); # M0 ~4 F8 V. [; a$ M3 d) Q
) H. |4 k7 h: L9 P2 ]; ^
try
0 g E2 Y, j* F. `# F{
6 V9 b, o/ h2 o // Enter the path to a model file! . S. J, r. F3 y! K" v
simple.LoadModel("C:\\Models\\Test.spp");
, U3 z( e# n) K}
8 u9 F% u# H, {: o, N9 Dcatch (e)
6 S7 f: B- f9 f, l{
" W' {/ r& i a' J) a WScript.Echo("Could not load Model!");
& O5 {- ?8 N E. k0 |# i' R0 |! q WScript.Quit();
; Z( @: J8 O) ^6 p}
( i! S2 v' `( H2 u 1 e8 `# R$ s% V8 e) W8 i
try & u" N. w9 z* a
{ 9 P y2 c* ]3 t% o
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) { ( G9 [- g6 Y- y7 s9 s1 b# o5 s4 x) f
r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); + n7 ^7 H3 D2 Z6 I3 S' S
if (r == vbCancel)
8 [5 a" o4 x* H3 [% h { . {& u/ H( @6 W8 w: |; b
simple.CloseModel();
, o* m" _; L) a* e! W WScript.Quit(); ) |2 p% o& U! V. I5 _3 n
}
4 T! w5 F" ~& @* N1 D$ q7 \7 R} * |: _9 ~6 @" S& Y+ B. _( P* S( N
8 j9 |3 C+ U" R4 @ {6 \2 isimple.StartSimulation(".Models.Frame.EventController"); : B) y: `+ H) B& G1 p( e# Z8 z
. e# A; |% }1 p0 {$ g, m1 zif (simple.IsSimulationRunning()) 1 K5 P( P# o# ^0 S8 i7 S
WScript.Echo("Simulation is running!");
7 u4 c( Y. G6 r( _
' J1 j8 D. E- R& T G, h% w5 H// Wait until simulation is finished 8 t' b; l* ~+ Q! a8 W
while (!Finished) WScript.Sleep(2000); - I# c6 w6 q( ^+ P& q
3 \: R* z, i4 u) _8 I$ i: o9 n( Osimple.CloseModel();
* z. |( j* }2 J2 N" y+ ksimple.Quit();
, T0 |; f: u5 J5 {WScript.Quit();
% l' h1 W5 F- \ : J+ C9 i7 H U
( M$ |" |5 j r! ~% m
function RemoteControl_SimulationFinished() 2 B# C9 F1 [* a' z6 J% S
{
% H# H. q; d( O Q* P WScript.Echo("Simulation Finished!"); |