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

admin

1 E! a& A* y) c3 h) k% YNX二次开发源码分享： 判断程序是外部运行方式还是内部？
" Q6 q8 R4 r% U* U

" ^+ S! E& @7 M5 D+ |- w3 n[mw_shl_code=csharp,true]Imports NXOpen
0 p9 s/ M/ R: J" _7 ?, Q; ~* R3 D
Module NXJournal

    Dim theSession As Session = Session.GetSession()
$ X9 [4 D- G, z1 |" r- b
/ I1 g: ?: h3 ~" H& e    Sub Main
4 k% N8 ?7 g9 g  S5 C
( W. R2 S& l9 p( U+ U; Z$ S9 o      If theSession.IsBaTCh
* h2 |3 W: ?# ], R        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
; \8 B6 W9 E9 C        Echo("This is being run in Interactive Mode NX")
      End If
! r5 r/ `- t, x9 G. a+ o) W
2 i' v8 U- Y( O" n$ e* K    End Sub


    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
7 M2 r" p% Q* I3 n        theSession.ListingWindow.WriteLine(output)
9 C+ w  |& |5 F# L. m2 f        theSession.LogFile.WriteLine(output)
5 _+ k, \3 v3 P2 p8 j6 V; W" ]+ f    End Sub

! `+ ]$ s/ L6 EEnd Module[/mw_shl_code]
3 N/ s! Y3 k1 G8 G* o  {: L