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

admin

9 E) I+ u) H* yNX二次开发源码分享： 判断程序是外部运行方式还是内部？


* |1 V( R8 i1 |) I/ W" X/ u[mw_shl_code=csharp,true]Imports NXOpen

Module NXJournal
$ h2 z0 ?: R3 F$ p6 i
    Dim theSession As Session = Session.GetSession()
8 q8 J  A3 a1 f8 [# O8 _8 K; ^2 j
    Sub Main
1 _4 k( D, D% t+ |. n: r
      If theSession.IsBaTCh
  Y2 b% s  G: l% H        Echo("This is being run in Command Line (Batch) Mode NX")
; A9 O4 w1 M; E      Else
; R3 T7 K) A9 o; v        Echo("This is being run in Interactive Mode NX")
      End If
9 o9 Y( Q1 A( Q( q
6 C3 c! V2 I& M8 \- p9 `    End Sub


    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
5 K: f% H( o7 o& |, S        theSession.LogFile.WriteLine(output)
: p) W: `/ I1 P/ T/ n1 c( Q    End Sub

; b, a% \: o* s$ B* m& NEnd Module[/mw_shl_code]
, }, {, F' X4 ?1 L