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

admin

# P# `3 C+ k1 y1 i5 A: U
NX二次开发源码分享： 判断程序是外部运行方式还是内部？
7 Q( U# j2 a+ b/ h# ~8 v( }6 f% W

[mw_shl_code=csharp,true]Imports NXOpen

Module NXJournal
/ b) v  d. n; p- f
    Dim theSession As Session = Session.GetSession()
* L; {) l3 `* n! G" c, f: ~
% [2 X, W4 q5 a* K: }* ~    Sub Main

      If theSession.IsBaTCh
  H, y: X# {2 n* |' F        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
        Echo("This is being run in Interactive Mode NX")
      End If
# B2 w/ r5 l. n" i
% \; z1 I8 |9 u) k    End Sub


/ g2 H, m7 L, e) U/ t/ H$ S    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
& U& Z- e& O$ m+ q  w; Q9 |        theSession.ListingWindow.WriteLine(output)
        theSession.LogFile.WriteLine(output)
) C- ]& w. V' o8 Q- d" h: Q    End Sub
, I8 V. I3 Q. x' [) u: H* \7 }
3 _* E  r6 g% tEnd Module[/mw_shl_code]