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

admin

6 ^& @7 g% v) y
NX二次开发源码分享： 判断程序是外部运行方式还是内部？
9 @, j2 P+ b5 w2 J# R- o2 ^

) Z$ S! B' F- H$ d% X& z; L! ?[mw_shl_code=csharp,true]Imports NXOpen
9 l7 I$ j1 d1 f9 E: T
' g9 @& C  X2 r$ A% n5 `Module NXJournal

    Dim theSession As Session = Session.GetSession()

2 w! f/ h& Q  \    Sub Main
' ]  a3 o9 x/ V" n* U: H
0 ~5 F; w1 l% R" q1 V      If theSession.IsBaTCh
7 r; J: Z3 H5 W2 P  y, ?        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
        Echo("This is being run in Interactive Mode NX")
      End If

    End Sub


6 R! `3 [( K" S( N; X# }    Sub Echo(ByVal output As String)
  _. l' t) u3 H/ Y3 r        theSession.ListingWindow.Open()
& `5 g0 w& i0 {5 J: x- m4 j        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
( K% A; Y' I6 b! Q& A    End Sub

; r$ {7 p& g; h8 n# H$ Y% _End Module[/mw_shl_code]
! M) K% }9 w) V0 C8 P2 D