Example of a JScript
0 ?1 e$ r- j' ^: n& m0 J' ovar vbOKCancel = 1; % v6 m( I/ s9 f0 F( u O8 y& i
var vbCancel = 2;
+ L/ w o$ ]8 ]7 g+ ?( dvar vbInformation = 64;
! m/ N) R6 q/ [# f8 V. Y/ Kvar Finished=false;
" j0 z. U q+ S* b) n( |1 z3 y5 ` : ?% I# B. |3 q
var WSHShell = new ActiveXObject("WScript.Shell"); : O0 a# O u5 M7 G$ d
1 }" c; z: J V, f' U! i- @
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); . v* _. u* N- j+ ? Q( q0 D! g. r! c
- V2 c7 c7 F% V9 l) s7 _7 [- F
simple.SetLicenseType("Runtime"); , O1 z/ L9 C; x: ]4 U& |% ^
& x2 M; @ z8 r1 I5 m% E& N
try % g# S/ ?( x$ Q, R5 u! r2 Q/ }1 }
{
7 j4 P+ B8 b0 c7 I6 ?4 ^ // Enter the path to a model file! % ^5 r1 R6 a9 g1 D5 M
simple.LoadModel("C:\\Models\\Test.spp");
1 `8 U; H [) t}
. ?7 Z4 C+ e {" S9 rcatch (e)
W) m0 F- k# l{ B& c+ ]& `7 Y9 ? K$ K! I
WScript.Echo("Could not load Model!"); + k1 M5 e9 W3 R. Z4 N2 m8 U& y
WScript.Quit(); 7 _8 E6 c2 d, X Y5 u
} 3 S! i" N. @ a* \
6 W8 \, x$ z; J) t2 Y# \try
2 r! u( @1 C2 e' G/ ~% h1 T{ / [( {( j: p" r
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
- l6 d1 p) \: ^, H9 k r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); ; \% r% d* {$ ^$ r$ B
if (r == vbCancel)
# b: Y7 l% c* g2 d5 I- j% z( `6 j {
. p6 s3 d8 k# d4 z u simple.CloseModel(); 0 l F, z' b: w s2 j; }, Q8 ~( `
WScript.Quit();
# |; J, {* ~' r1 Q }
& l5 @% {! e$ i9 I2 e7 K2 ?" ^9 k) @} 0 H: G1 f1 M- {5 {3 j; {! r. Q" ?
v% R7 O0 j3 S H7 D2 Y; tsimple.StartSimulation(".Models.Frame.EventController");
) v4 ]# H8 B0 e! x8 j
- v! `4 Q! R# a- x0 ]6 x! N. oif (simple.IsSimulationRunning())
. W, @1 V1 ^! J! \ WScript.Echo("Simulation is running!"); + ^* I( O$ Y( V Y/ q
/ g: \+ ^8 D# N3 y0 e& E# d' p' U) F// Wait until simulation is finished
2 p* g! t2 v7 U* Rwhile (!Finished) WScript.Sleep(2000);
0 M/ C1 V. r0 u1 R; L/ p+ |
1 R" x0 O7 \$ Q/ N" ?2 M4 Usimple.CloseModel(); 6 M1 o8 u! ^( J% y
simple.Quit(); ( g4 w& T4 {8 Y5 U( o$ v
WScript.Quit();
: C$ ~& H" j3 Z+ l, f1 \ , ?( y' V& N# ]/ K/ [/ J. X/ L h
9 {" J. }( ~, A7 n1 F: l/ |
function RemoteControl_SimulationFinished() $ `! {1 e) H7 n+ K- x% f) r" o
{ . _% P; j; x6 _9 k& Q, j: p+ Q7 h
WScript.Echo("Simulation Finished!"); |