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

admin

$ d" \# j+ O. O8 [  \
" A/ R- U5 N! h# \4 d' S& TNX二次开发源码分享： 判断程序是外部运行方式还是内部？

% [, j7 Q0 E- g  y
[mw_shl_code=csharp,true]Imports NXOpen

Module NXJournal

$ x5 a% B+ [7 J* m- r; T    Dim theSession As Session = Session.GetSession()
/ S# v  n$ e# }) p9 f6 [
    Sub Main
% f9 L  X5 V- W, }3 ^- g
) I( I" P5 B$ e$ `. H, E      If theSession.IsBaTCh
        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
        Echo("This is being run in Interactive Mode NX")
1 {; q" G2 J1 f. ~) p" R6 b$ M7 j% t      End If
, w; W& h2 e% n4 c8 C- g9 s
" Z/ s3 B2 Q; a& [8 ?    End Sub
1 j7 D7 J* r+ ]" a6 h& C; e9 k# F  L! [

    Sub Echo(ByVal output As String)
* X5 C9 v# s; G+ y* `0 ]5 W        theSession.ListingWindow.Open()
$ b( _6 C" A4 o0 |        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
6 @1 N$ D& ~+ g    End Sub
4 X9 l  s9 X0 m
End Module[/mw_shl_code]