NX Journal Teamcenterが起動しているか判定
2019/11/29 categories:NX Journal| tags:NX Journal|VB|
NXではTeamcenterを使う場合とスタンドアロンで使う場合があります。 それぞれの場合でジャーナルのコードが少し変わってきますので、どちらか判定するプログラムを作成してみました。
Teamcenterが起動しているかどうかはIsUgmanagerActive()で確認できるようです。
theUfSession.UF.IsUgmanagerActive(IsTcEng)取得したオブジェクトをToStringで文字列に変換することができます。
IsTcEng.ToStringVBコード
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