Example of a JScript
+ l8 N- O6 V, b2 Avar vbOKCancel = 1;
4 T1 Z# Q$ o+ {var vbCancel = 2;
; t; r! Q0 C( V Y" O1 Uvar vbInformation = 64;
0 H9 K$ ]( L/ ]var Finished=false; ( O- X. i% f5 w
; x' v& s. l& c6 m
var WSHShell = new ActiveXObject("WScript.Shell"); ! F0 y, S2 \# j& W2 O
" Q" u) l1 J; G$ kvar simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); ; T# d$ \' Q/ N& ~# I
7 o3 b% x+ q. @2 T3 V. J$ R
simple.SetLicenseType("Runtime"); 9 S- K {7 i" _4 V, F/ Y7 ?
; K! l' _6 k; }: C9 [7 \try
9 K/ k. Y6 Y5 ~. Q( i3 ~{ # u: @* W1 _$ @7 C
// Enter the path to a model file! 8 `! t0 j' l7 T8 j) r
simple.LoadModel("C:\\Models\\Test.spp");
1 c9 d/ @4 K. u0 X* ?* f1 T: z! [}
7 m9 }# I4 b( z' M0 w! X- R1 [catch (e) ' W& h2 Z9 f& o) q+ B+ T
{ 6 H& Z, p$ I+ p
WScript.Echo("Could not load Model!"); & B# A0 r1 ~: V3 z) N; r
WScript.Quit();
' j5 w+ _& j8 U3 A: u! I} # X& x; a1 Z* e+ e Q( S0 L
5 G) s. Z8 H# s) }) [2 v% x
try ) G" k3 P. G9 S) l
{ . _9 {) A" M/ l
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
" R* L5 p% `- ^: i0 F# a; R/ A r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
7 }4 e. d- H ^7 v, @2 r3 w) g if (r == vbCancel)
7 ^9 }% G, ?1 q- N {
7 O* N! \* S+ P* R- X- P t2 ]$ S simple.CloseModel();
* e# V; J% Q7 L( _1 G" _/ e/ T WScript.Quit(); ! v, U3 r" R% W& ?! t+ G
}
$ y/ Q5 s7 V P4 w/ A. t8 |} # I4 t b5 o3 H' w( O6 l; g
% [" z: `6 H1 _) P$ S9 J5 K. ysimple.StartSimulation(".Models.Frame.EventController");
! s* C9 l( F4 |# H9 f 5 V$ T6 ?" S: ]5 i. K9 s, _/ t; L
if (simple.IsSimulationRunning())
5 |3 |( X( t; X V WScript.Echo("Simulation is running!");
9 P% V; d! u* _5 ~* e / r% `7 x- w1 F! J( Q v; {0 C
// Wait until simulation is finished , {7 j3 J# _7 B3 C0 n3 |, L
while (!Finished) WScript.Sleep(2000); ! p" ^& m' k; v9 B* [3 S
- _4 J* p8 w7 o$ _5 D) o$ s$ F0 }simple.CloseModel();
" Y% \5 L& v7 L; v% g' fsimple.Quit(); + G& l* B B( Z4 d1 ?
WScript.Quit(); & N2 P' z) z/ f5 |& |( g
# u6 \- s# V4 {; d/ ^
* B2 v/ Y& I% D" T6 N; p
function RemoteControl_SimulationFinished()
K% n5 n2 e& b A9 o) o{ 3 R' _4 A# o( W: m- G9 e" x
WScript.Echo("Simulation Finished!"); |