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

admin

! D5 u; v/ |" [7 ^NX二次开发源码分享： 判断程序是外部运行方式还是内部？
8 }: A7 A3 D0 ]; A/ M$ v% P$ n

[mw_shl_code=csharp,true]Imports NXOpen

$ N  k1 R/ |8 q6 jModule NXJournal

    Dim theSession As Session = Session.GetSession()

    Sub Main

      If theSession.IsBaTCh
9 I& n% B" M7 p  U, v0 P        Echo("This is being run in Command Line (Batch) Mode NX")
# q. I  |" w+ R5 @$ k% n$ w      Else
        Echo("This is being run in Interactive Mode NX")
! i( z' v+ Q$ P: K5 I; v      End If

    End Sub

) [+ F) Q9 v3 R7 o/ x5 u  I
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
4 U+ Y& U$ N- c2 c* }, i# X+ R+ X$ U        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
4 B" _- z; G) o  [, L6 H    End Sub

End Module[/mw_shl_code]
, F/ |! }! S( A2 A% S: G5 m