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

admin

& `8 G: g9 v/ v( }- o; U- b' zNX二次开发源码分享： 判断程序是外部运行方式还是内部？

4 `" O" R5 }; r: G
: ~. {( j) Z8 z$ N& d3 Q- X[mw_shl_code=csharp,true]Imports NXOpen
, O' I$ ]' @4 i
Module NXJournal
6 D2 w: k) f% L# W3 `
2 E& X& c+ D, P    Dim theSession As Session = Session.GetSession()
. D; g* {" O% c- F9 o$ g" u
! U2 b9 K2 Q% |! G3 o1 j    Sub Main

4 A% w, b+ N. b7 O6 G8 ]& O& J      If theSession.IsBaTCh
/ G! y6 {% F$ L9 T2 t        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
        Echo("This is being run in Interactive Mode NX")
$ P& T% o  }+ N( @% x* \/ A, f      End If
7 W# K& U6 X8 c8 u' E$ s! u% h
& }$ @5 \* k- i0 U: G$ J    End Sub


    Sub Echo(ByVal output As String)
        theSession.ListingWindow.Open()
        theSession.ListingWindow.WriteLine(output)
3 |  R% A0 Z# Y" y        theSession.LogFile.WriteLine(output)
/ T* ?6 S; F/ S) C# e- j    End Sub
5 ~! ?! q$ ]# ?, \
End Module[/mw_shl_code]
, h9 H; k6 _3 Z