Example of a JScript
V$ q" j# h/ q9 F5 hvar vbOKCancel = 1; - B# t4 h$ r2 Q7 G( D, l
var vbCancel = 2; 2 Z& a" [* C- R
var vbInformation = 64;
- E! z/ G1 k! R J7 svar Finished=false;
0 x, j# b2 ^$ |$ |3 h0 V# l
* g' \5 Y5 a7 Z0 I; j" }var WSHShell = new ActiveXObject("WScript.Shell");
1 l& y8 c& O8 F$ j$ { . u6 ^. o8 y. Q
var simple = WScript.CreateObject("Tecnomatix.PlantSimulation.RemoteControl.9", "RemoteControl_"); 1 E/ ?! @& o" Q! ^1 z; s
$ M- M J E" n) q
simple.SetLicenseType("Runtime"); ' E! p! d8 Y6 B/ @- Q
' w0 k4 a1 n3 T( p% v5 Z
try
0 L Q5 W9 h5 M7 r{
' N* u9 A2 ?; h% |+ A7 | // Enter the path to a model file!
4 w2 y& U$ ^; z) h9 S. g5 J5 s simple.LoadModel("C:\\Models\\Test.spp"); & o6 O2 n+ m7 q3 w! l0 _/ {
} ; h) F5 V* ~( R7 Y9 P
catch (e)
h% p1 x& \( J' {5 R0 P! ]5 L& s{
. _: u$ x) d. Z6 b1 ` WScript.Echo("Could not load Model!"); 4 o- _! v3 s$ a1 E2 E5 D8 A% T
WScript.Quit(); $ F& s1 a: z) S- Y2 j- S. h0 L
} / K8 H7 i1 p3 R) b+ c2 ]' M
" g! l* z4 H1 o( K1 T1 l, G4 F% ~
try 4 m6 }/ Z2 s: w- r' |+ v- n
{ & Z. G i$ w/ Z, _1 c# T% v
simple.SetValue(".Models.Frame.Buffer.procTime", 700.0); } catch (e) {
5 N/ \8 v' h6 L' I( k$ h r=WSHShell.Popup(e.description, 0, "Continue?", vbOKCancel + vbInformation); 7 ]7 s! t! q: I4 P
if (r == vbCancel) & }& W: u" U. r4 @9 `4 u
{
5 D( i5 L0 h3 i- c) M) ? simple.CloseModel();
' Y r5 Y1 E$ e, ~ WScript.Quit(); ( `- H( s% n1 B o+ T# L1 i/ x2 W% @
} - g z( s. @7 _! b( H. v0 R
}
. Q9 z7 v! w3 `5 @/ m3 T0 P( r4 J + S1 }1 m' G" E
simple.StartSimulation(".Models.Frame.EventController"); 4 s" F( ~& z9 K" R! ^, W z4 i: n; w
: `+ y0 K. R; f9 }+ }if (simple.IsSimulationRunning()) / b* y: c7 v9 Q7 G
WScript.Echo("Simulation is running!"); ( ~8 g/ d' Y: I: n: e5 m0 w
' w: n2 c. y5 z( y% M
// Wait until simulation is finished
$ Y/ V. M% o3 v: c* Dwhile (!Finished) WScript.Sleep(2000);
& ?) n! [, Z7 [) O; V" q$ @
$ C" {- `9 M2 c3 ^simple.CloseModel(); 0 }7 _4 {2 @9 u
simple.Quit();
. E& K, n$ {! K& n. r: s9 @WScript.Quit(); ) B( u w* S2 S0 H" z
; d) ]' _6 ?2 _; O! p4 M- |
9 [$ O- L; @& w( f) r9 J# l0 O: w* {9 wfunction RemoteControl_SimulationFinished() , B# S2 y, J7 t
{
& v7 [! y9 p: @" {9 u# l WScript.Echo("Simulation Finished!"); |