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

admin

1 e) n' q1 \) W1 _$ C9 B0 h! _
NX二次开发源码分享： 判断程序是外部运行方式还是内部？
) L" }* f7 ^! S
& [* u  K- f* n) }  D+ i
[mw_shl_code=csharp,true]Imports NXOpen

3 R- c  c* O. O7 l* AModule NXJournal
4 d- G; g9 ]+ w2 m4 L% i$ _( C
    Dim theSession As Session = Session.GetSession()

- `* C. K  z1 H% R& r) S( B* K8 U    Sub Main

      If theSession.IsBaTCh
        Echo("This is being run in Command Line (Batch) Mode NX")
( N6 Y& U# _5 w7 M! E% t2 n      Else
        Echo("This is being run in Interactive Mode NX")
3 e( e6 m2 a/ m2 @      End If
! j) O* Q+ J+ v$ u+ A' @- b- _
    End Sub

& w# B/ B* P% @. ^4 q- O
" B. D* C. H0 T  ^2 k" d    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
3 v4 u( a$ ^0 j; i    End Sub
2 Q- z! X( T( n+ g
! w1 `+ x0 h) M+ F7 hEnd Module[/mw_shl_code]