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

Share on:

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

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

1theUfSession.UF.IsUgmanagerActive(IsTcEng)

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

1IsTcEng.ToString

VBコード

 1Option Strict Off
 2Imports System
 3Imports NXOpen
 4Imports NXOpen.UI
 5Imports NXOpen.Utilities
 6Module module1
 7 
 8    Dim s As Session = Session.GetSession()
 9 
10    Sub Main()
11        Dim theUfSession As UFSession = UFSession.GetUFSession()
12        theUfSession.UF.IsUgmanagerActive(IsTcEng)
13        Echo("TC running? " & IsTcEng.ToString)
14    End Sub
15    
16    Sub Echo(ByVal output As String)
17        s.ListingWindow.Open()
18        s.ListingWindow.WriteLine(output)
19        s.LogFile.WriteLine(output)
20    End Sub
21    
22    Public Function GetUnloadOption(ByVal dummy As String) As Integer
23        Return Session.LibraryUnloadOption.Immediately
24    End Function
25End Module

関連記事