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

admin

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


6 @8 }+ l. _4 B# `6 Z- M[mw_shl_code=csharp,true]Imports NXOpen
* O5 g- {4 N. D& L: W2 v$ R
Module NXJournal
+ ~8 g& g: \& ~1 T  s* i8 q
    Dim theSession As Session = Session.GetSession()

8 K6 r* }5 G3 c    Sub Main
3 n! ?+ P6 w6 ~  N" Y4 }2 J
      If theSession.IsBaTCh
        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
        Echo("This is being run in Interactive Mode NX")
4 Q) Z" X0 o* Z. r; T5 N4 {  x      End If
* x- m  i/ V" |5 y/ s1 ?
    End Sub
9 o9 Z) s% c! C

4 [9 K! X* F8 j- I7 N* g4 v) n6 ?4 j    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
" ^6 T! O+ d( K        theSession.ListingWindow.WriteLine(output)
* _+ y' O' _% ?$ ^' l: s        theSession.LogFile.WriteLine(output)
    End Sub
" S- W+ @9 h7 f" f( D1 ?
- W8 m) i! \, |+ K5 e" t; o' y9 w. e* kEnd Module[/mw_shl_code]