NX Journal 環境の情報を取得

NX Journalでコマンドを作成する場合、ユーザー名やカレントディレクトリなどを取得したい場合があるので、それらを表示するプログラムを作成しました。



Option Strict Off
Imports System
Imports NXOpen

Module module1

    Sub Main()

        Dim s As Session = Session.GetSession()

        s.ListingWindow.Open()
        
        s.ListingWindow.WriteLine("User Name: " & Environment.UserName)
        s.ListingWindow.WriteLine("Current Directory: " & Environment.CurrentDirectory)
        s.ListingWindow.WriteLine("System Directory: " & Environment.SystemDirectory)
        s.ListingWindow.WriteLine("My temporary directory is: " & Environment.GetEnvironmentVariable("TEMP"))
        s.ListingWindow.WriteLine("Get Folder Path: " & Environment.GetFolderPath(Environment.SpecialFolder.System))
        s.ListingWindow.WriteLine("Version: " & Environment.Version.ToString)

    End Sub
    
End Module

コメント

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