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

admin

6 T0 i6 i  s8 U  LNX二次开发源码分享： 判断程序是外部运行方式还是内部？
* l5 M1 I" N; H* L/ ]5 e, e
3 H* S3 v9 k7 e% s7 f
9 H# H& N0 u; i' R  R[mw_shl_code=csharp,true]Imports NXOpen
% K9 z: j8 r( H. m4 ]; v" R7 f6 T
# t; V9 T& v6 T/ Y- k0 a; P5 B) OModule NXJournal

5 e. z* ?, A) s    Dim theSession As Session = Session.GetSession()

    Sub Main

      If theSession.IsBaTCh
        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
; k( m  s( }. U        Echo("This is being run in Interactive Mode NX")
6 L0 a( l5 e2 M      End If
! H. P( G8 @! ~* b9 G
    End Sub

  C5 r# R$ A+ e  \$ m8 S1 r# T0 K3 f
    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
    End Sub

End Module[/mw_shl_code]
& C; q3 r* B0 |% _) r4 P7 u8 A