Example of a JScript
/ O4 i0 u4 P+ Q) o! X* Qvar vbOKCancel = 1; . R2 F7 _" D* X, z# d9 _& }3 T4 J
var vbCancel = 2; 1 F L: u% K' G( c
var vbInformation = 64; 7 K& h9 Y6 ^: }4 {) o
var Finished=false;
( r `$ z' C# O9 ? * o. `& Z7 }# \6 @! y
var WSHShell = new ActiveXObject("WScript.Shell"); ! [" P- v1 k+ b0 p% N, p! l
4 b& b# \9 @$ i2 O4 T
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_");
: {5 t8 X% [" Q# H8 s 1 w2 _1 L) q' O% \# K
simple.SetLicenseType("Runtime"); ) f$ C+ w: d2 H9 [+ V* I& ] N
. E7 M+ n0 X4 U
try : a: a. B! v9 l5 n( m7 E
{ 8 l& e6 `& J/ y. \
// Enter the path to a model file!
1 @4 Q/ {4 m5 h, C" f7 ^. R8 K. \ simple.LoadModel("C:\\Models\\Test.spp");
1 a- f0 C8 F" P: w# k( ^' ]6 N} + s% J8 L! }* d+ w* ^
catch (e)
6 I. x' u' q0 g6 n" K- N# w{ 1 v# z4 |6 M- |
WScript.Echo("Could not load Model!"); 8 \7 k$ E2 M0 c
WScript.Quit();
) x8 `. y& {9 h2 J5 M' E} & F2 R6 ~& y; y+ U. z
2 u, I% s& p. M/ a( _: dtry 1 j7 e# b) ~- W' a. E4 \
{ $ ^/ `: @8 c" Z: j# i7 L
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
+ H5 g" E7 c1 j9 G1 K* d* ~. _% `8 A r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation);
8 r5 M2 H: ~" g/ y, M% y. D6 D* [, g/ v if (r == vbCancel)
v0 S/ P5 T0 g* X0 \0 h* A( p { 3 p4 Q; L6 V4 q- ~; h# v5 T1 L
simple.CloseModel(); ! ~6 M+ d. u- F6 i$ c% _
WScript.Quit(); 7 G+ D. |8 n0 o/ E r7 x
} 5 ^8 a: y6 F' }
}
: M$ S: N7 C9 k; D* _ ) I; ?- d9 a) D$ N8 N" I$ K
simple.StartSimulation(".Models.Frame.EventController");
( l2 x3 }" {" g0 R 6 b/ ?% J& c. f( I$ H( y2 c7 [6 q
if (simple.IsSimulationRunning()) $ O( [3 k/ l1 i
WScript.Echo("Simulation is running!");
# C/ U% ~0 |, }. d; g' q) [! M, \3 L
: a7 x, |/ r2 V$ i7 ?1 @1 ?// Wait until simulation is finished ; B, a% \/ u( t( Q! _$ z
while (!Finished) WScript.Sleep(2000); 7 E( E$ g* ^* ~, n4 G( N+ B& I
* \" K3 S* U9 b9 Bsimple.CloseModel();
4 E# m, C0 W/ l+ e4 j) wsimple.Quit(); 7 O! f2 T& O3 \4 P; o. v$ F% y
WScript.Quit(); ) H' y$ ^' D( X% e' F2 J
7 a. ]+ u# u6 @4 ]* `8 M
- K5 y c$ I- Ffunction RemoteControl_SimulationFinished() ' o' E, p3 ~( H
{ 4 q. u- e! m8 J. K4 \2 {# i1 w
WScript.Echo("Simulation Finished!"); |