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

admin

' x8 l' _, f  h3 Y$ @. ~" Y
NX二次开发源码分享： 判断程序是外部运行方式还是内部？


[mw_shl_code=csharp,true]Imports NXOpen

Module NXJournal

$ O9 {' c5 l  x. V7 _( p    Dim theSession As Session = Session.GetSession()
" T5 e! L1 T- V2 D4 B: m+ m$ @
    Sub Main
, ^3 p/ U2 L7 [6 ^- X% v* o3 {
      If theSession.IsBaTCh
! c" n( F+ g. ?% _0 b        Echo("This is being run in Command Line (Batch) Mode NX")
      Else
        Echo("This is being run in Interactive Mode NX")
/ q* O6 k/ @/ l2 m  a( x      End If
, R8 a$ {/ E' m* E& _( `
  e% @8 X' N3 w% F$ ^! u    End Sub
7 b9 Q4 y$ p1 `3 U$ P$ C: p

! C0 }/ A) E# j$ y$ {( R8 L    Sub Echo(ByVal output As String)
1 N2 h% g! Z$ l. `# F        theSession.ListingWindow.Open()
$ V& n4 P# \" D0 V        theSession.ListingWindow.WriteLine(output)
, {5 T8 h; v% Q" ?& k' n& t7 [- h( s1 Y* H        theSession.LogFile.WriteLine(output)
    End Sub
5 Q0 s4 J1 D, z
End Module[/mw_shl_code]