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

admin

9 [; G" G! b9 k/ s: }: I" y
NX二次开发源码分享： 判断程序是外部运行方式还是内部？
1 n  s  B8 p, D5 O5 C7 `
. a, \, B& j8 V/ H
[mw_shl_code=csharp,true]Imports NXOpen
0 s( E! L3 P/ e7 ~* S" z" X5 s
) x# c7 n5 Y' `( ]/ W/ @4 C; fModule NXJournal

    Dim theSession As Session = Session.GetSession()

% Y8 W2 Z9 z& i; B6 @: ]    Sub Main
5 f$ f9 r5 J  K9 t& S1 `
; F% D" k/ |; R4 O1 T5 S5 x' c+ n      If theSession.IsBaTCh
8 h% R3 g1 _2 v- E, R* x9 C; o) N        Echo("This is being run in Command Line (Batch) Mode NX")
% E. D* A' j$ g  I- P      Else
        Echo("This is being run in Interactive Mode NX")
3 e: v3 h' u. k" B/ r" {  M( W      End If
6 ?0 J: v5 f& M. _1 L( r
    End Sub

" G8 f/ j* A- u" n
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
4 Z& ~* h7 H: ^  d  F    End Sub

* @5 M0 X# V# }# O3 dEnd Module[/mw_shl_code]