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

admin

+ [# ?  n+ @. p9 o
NX二次开发源码分享： 判断程序是外部运行方式还是内部？


[mw_shl_code=csharp,true]Imports NXOpen

8 T# \5 R, Y' y# HModule NXJournal

2 g6 Z# V3 A8 W* }: `' u    Dim theSession As Session = Session.GetSession()

- W0 t- q2 Y3 v. B# b3 P7 @    Sub Main
; X; h3 s) e4 ~: j
  C& w7 E/ I" b' m) p$ _' b6 x      If theSession.IsBaTCh
        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
$ g* U1 E2 Y, H3 }1 G6 R
, a! ^" u/ A: Y
/ t  {+ Z4 L0 \9 R; H) Q: ^* z# }    Sub Echo(ByVal output As String)
9 s7 e% \6 o. i7 b7 \        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
8 }  t4 F% Q4 l  j' V        theSession.LogFile.WriteLine(output)
) M0 t- t  r4 m! d( J; v    End Sub
' K$ ?/ o0 {7 E% [' @& V
End Module[/mw_shl_code]
5 G& t4 O1 k6 d' V" m- N1 c2 |' Q