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

admin

9 t$ M+ L9 l5 G6 i$ B( r. Z
! }) v: t$ o6 b. Z% @# HNX二次开发源码分享： 判断程序是外部运行方式还是内部？
" T2 t; R1 F. m% P& X  s

4 R) r/ q) ~- q, ~7 J4 v[mw_shl_code=csharp,true]Imports NXOpen

Module NXJournal

    Dim theSession As Session = Session.GetSession()
& O' w6 G8 N! M& w' w
' z# e/ j2 P) b* |6 ]1 t    Sub Main
$ h* W! J7 C, R: I& ]
# {+ c) k4 e+ }$ Y2 r      If theSession.IsBaTCh
        Echo("This is being run in Command Line (Batch) Mode NX")
# {3 H# o1 r- i5 \9 D2 W) M" K6 X+ }      Else
9 J& J* O! R% w7 I; {- X4 p        Echo("This is being run in Interactive Mode NX")
, d2 M# v, ~3 R9 X! |9 R      End If

: L) Z4 c. i8 T5 w    End Sub
+ r% G6 C9 L; Q0 x3 d. W& x

    Sub Echo(ByVal output As String)
& p7 x/ x( _+ t" A% X  _        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
0 K* O8 t5 v; Y" o0 J    End Sub
8 F) g$ m% n1 w" E
End Module[/mw_shl_code]
/ `% R, I4 x  W" p( Z4 ]