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

admin

1 ^' M& E8 N' H
$ a: G; D. @! I0 d! pNX二次开发源码分享： 判断程序是外部运行方式还是内部？


1 B8 O" X2 L* Z2 Q+ T) m[mw_shl_code=csharp,true]Imports NXOpen

Module NXJournal
( ]9 x" `) l) I
# [/ N: {5 \+ X" s    Dim theSession As Session = Session.GetSession()

    Sub Main
. Z9 t' n# u: E6 c. _1 F
      If theSession.IsBaTCh
        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
        Echo("This is being run in Interactive Mode NX")
: K2 |; P7 e7 L9 G) H# ?      End If
/ N3 G3 o* ~/ {1 A8 G/ {6 A; g
    End Sub
4 e$ l9 f+ c) d
/ d1 L# e- A3 p1 L2 Z# f  S  z
6 _' x- S. h9 j3 Y6 K9 ]    Sub Echo(ByVal output As String)
# p' _+ _3 y% d) p) W8 M$ ?        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
$ d0 ^/ Q7 u5 n6 S4 o        theSession.LogFile.WriteLine(output)
    End Sub

End Module[/mw_shl_code]