NX二次开发源码分享： 判断程序是外部运行方式还是内部？

admin

" G& `2 j/ L" y
NX二次开发源码分享： 判断程序是外部运行方式还是内部？
7 L% K* V8 u8 W: i8 C' ^$ n
% G! t" g$ P3 C( ^# E8 ~/ N
) p7 C2 ?7 R% L  y8 @( v/ s- y7 O[mw_shl_code=csharp,true]Imports NXOpen
. X: n% R3 P3 s5 S' R2 S: D: e8 |
5 h- F1 D! z1 P* o& iModule NXJournal

8 u  B3 |6 x/ Q5 T    Dim theSession As Session = Session.GetSession()
- t7 x# E( A7 w, B' i
    Sub Main

      If theSession.IsBaTCh
        Echo("This is being run in Command Line (Batch) Mode NX")
7 y* n+ D6 }: s5 z8 e      Else
        Echo("This is being run in Interactive Mode NX")
      End If

0 `5 p) F7 E. |7 x- f    End Sub

7 U6 y. {; h) i$ n- ^- V* x
    Sub Echo(ByVal output As String)
* j2 h, i* C0 [" n7 g4 M" Z2 H" c, A" H        theSession.ListingWindow.Open()
8 r( A: z3 t' |" o* x        theSession.ListingWindow.WriteLine(output)
+ F5 ~! K2 b1 X+ ^. J/ R5 ^: w        theSession.LogFile.WriteLine(output)
    End Sub
6 k8 z& p' d0 Y& A& X3 p
( X) E- G. b1 y3 `( q& v) dEnd Module[/mw_shl_code]
! w* b" d" y4 t% }& i6 o( {# f8 `