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

admin

& ]" e+ a: k6 T# W  x8 i+ ]
NX二次开发源码分享： 判断程序是外部运行方式还是内部？

8 r5 K' U5 M, E9 g
[mw_shl_code=csharp,true]Imports NXOpen
; @0 P& |0 S! M# M
. A2 H0 E1 D, ]Module NXJournal
5 O8 z8 c; K8 `' T$ V# B
    Dim theSession As Session = Session.GetSession()

    Sub Main
( b' ^. w7 a4 x" j7 J% M, h
      If theSession.IsBaTCh
        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
! s5 Q% K6 @0 u        Echo("This is being run in Interactive Mode NX")
) e! d8 q: R% g9 m( f/ F      End If

8 ?. V, c% S: x    End Sub
& c/ v" J5 h1 H! f

5 C3 X  N# D- A% A, P    Sub Echo(ByVal output As String)
! k7 u+ {0 P) R! C        theSession.ListingWindow.Open()
% j* T; U. J0 C- K1 X        theSession.ListingWindow.WriteLine(output)
: v( g( l/ ~* H3 a4 Z        theSession.LogFile.WriteLine(output)
7 a+ [  |4 R3 a    End Sub

End Module[/mw_shl_code]