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

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

Teamcenterが起動しているかどうかはIsUgmanagerActive()で確認できるようです。

theUfSession.UF.IsUgmanagerActive(IsTcEng)

取得したオブジェクトをToStringで文字列に変換することができます。

IsTcEng.ToString

VBコード

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

記事の共有

関連記事

コメント

comments powered by Disqus