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

admin

1 _, ?$ Q, r1 I& T) uNX二次开发源码分享： 判断程序是外部运行方式还是内部？
7 u% S% d) ?" `& R; v+ p% Y
; i% G& `" g: V) X
- w4 v6 Y- r( Q. P" y1 Y[mw_shl_code=csharp,true]Imports NXOpen

8 D6 D5 ?, P/ x' f; k- z# L1 oModule NXJournal
2 N0 N% b( A( R% ^  j
    Dim theSession As Session = Session.GetSession()
" {+ r) r0 ~. D5 \
    Sub Main
! x5 }2 H' N5 }/ i8 S
      If theSession.IsBaTCh
- r0 [7 k" T$ u        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
        Echo("This is being run in Interactive Mode NX")
- ?( Z! I* e# G1 |      End If

    End Sub
( E; K1 q) h5 v, [) D

    Sub Echo(ByVal output As String)
; y0 D& x8 K8 q! ^& R        theSession.ListingWindow.Open()
3 \8 F# D: F+ o' _4 ~7 O% @1 a+ a        theSession.ListingWindow.WriteLine(output)
/ p4 r" C% T/ G$ t: t4 }( X        theSession.LogFile.WriteLine(output)
    End Sub
% B( W4 K- z, r2 M2 h
End Module[/mw_shl_code]