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

admin

* w, i& y' x! x7 W
) `' r4 \) L0 UNX二次开发源码分享： 判断程序是外部运行方式还是内部？
1 q- D3 ]. t# S4 s) N9 w

0 b* h3 l7 ]( v[mw_shl_code=csharp,true]Imports NXOpen
" A5 P: C7 M, N9 R$ U' h6 J$ T- D
Module NXJournal
& ]& f# F, T  V, ?* B
    Dim theSession As Session = Session.GetSession()

, {& ^4 p5 L0 C0 Q7 W4 s$ b% |$ _    Sub Main
) _3 r7 w+ H0 M& v
- ?1 |1 r& F; Z3 K+ _" b  `' N( s      If theSession.IsBaTCh
        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
! [) z+ V/ g! k& Z3 D( c        Echo("This is being run in Interactive Mode NX")
- s+ H  g$ G7 K1 h4 G4 l- K; m# s      End If

$ e; F+ f6 D9 ?7 X/ D$ h    End Sub
7 A9 `+ ]7 |( c  `  k6 s
7 P7 O: L7 V$ e; t/ A
9 T$ i) W5 ~" s9 q7 r    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
: Y6 m# B, s  L7 j        theSession.LogFile.WriteLine(output)
: z- Y5 P8 L5 s7 f) x! c    End Sub
0 Z9 {, ?9 C* ~, M. T1 q
# K0 p; O2 D  c$ {7 Q$ V+ }End Module[/mw_shl_code]