NX Journal Teamcenterが起動しているか判定

NXではTeamcenterを使う場合とスタンドアロンで使う場合があります。 それぞれの場合でジャーナルのコードが少し変わってきますので、どちらか判定するプログラムを調べてみました。



Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UI
Imports NXOpen.Utilities

Module module1
 
    Dim s As Session = Session.GetSession()
 
    Sub Main()
        Dim theUfSession As UFSession = UFSession.GetUFSession()
        theUfSession.UF.IsUgmanagerActive(IsTcEng)
        Echo("TC running? " & IsTcEng.ToString)
    End Sub
    
    Sub Echo(ByVal output As String)
        s.ListingWindow.Open()
        s.ListingWindow.WriteLine(output)
        s.LogFile.WriteLine(output)
    End Sub
    
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Session.LibraryUnloadOption.Immediately
    End Function

End Module

コメント

タイトルとURLをコピーしました