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

admin

' N& A3 K9 {/ L. E
! L5 o! g, w, zNX二次开发源码分享： 判断程序是外部运行方式还是内部？


[mw_shl_code=csharp,true]Imports NXOpen

Module NXJournal

    Dim theSession As Session = Session.GetSession()

    Sub Main
: s2 s# o9 J0 F5 ]. _
& i" d% H6 A$ f" e# O& \7 [1 e      If theSession.IsBaTCh
, q  O: _  K( F; r. _% {5 O% M        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
4 t  K: E; T3 [+ D0 f' D7 m; A        Echo("This is being run in Interactive Mode NX")
/ M$ H) a' F+ Z1 I" i% C" }      End If
' g2 o" }1 V7 v2 S6 C2 f
    End Sub

! L& U8 P* i% P* r: l+ ?. e
) x1 v5 {  t8 E& R+ a    Sub Echo(ByVal output As String)
( P1 Z: v4 U" l+ \! s' n        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
: p1 ?5 O3 L1 D/ q        theSession.LogFile.WriteLine(output)
. }% O9 t/ a8 q' @    End Sub
1 [4 [% B+ r. D- p6 h+ v2 _' W
; M$ p: m& x4 MEnd Module[/mw_shl_code]
9 I" c' r; J6 Z