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

admin

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


[mw_shl_code=csharp,true]Imports NXOpen

8 P# S9 J2 b( I) H8 _) c; ~/ i  OModule NXJournal

6 z1 ]( c; Q7 d: Z, q; d) k    Dim theSession As Session = Session.GetSession()
# i5 B# C9 |6 |4 [
& K* D5 d, W1 Q! @) x& Y7 q    Sub Main

      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
9 v6 }! l$ x# V% H, }! u
    End Sub
6 z) ~+ G# P- z. i

    Sub Echo(ByVal output As String)
6 `- @2 A; U: \$ t7 V% P3 z2 T        theSession.ListingWindow.Open()
8 N$ L* }! U* [/ N0 s4 n        theSession.ListingWindow.WriteLine(output)
+ m! F% I8 G: b- E& w( u" S        theSession.LogFile.WriteLine(output)
    End Sub
; O; P6 {: z, z4 h( L. l
End Module[/mw_shl_code]