UG NX二次开发 获得工作部件的信息并写入信息窗口 VB.NET

1、简介

获得工作部件的信息并写入信息窗口,代码可在操作记录中直接运行（NX9.0测试）。

2、代码

'NXJournaling.com
'NXOpen ListingWindow
'write to text file example 写入文本文档的例子
 
Option Strict Off
Imports System
Imports NXOpen
 
Module Module1
 
    Sub Main()
 
        Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
        Dim lw As ListingWindow = theSession.ListingWindow
        Dim myDocs As String
        myDocs = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
        Dim outputFile As String = IO.Path.Combine(myDocs, "test.log")
 
        'get information about current work part 得到关于工作部件的信息
        Dim fileName As String = IO.Path.GetFileName(workPart.FullPath)
        Dim fileNameNoExt As String = IO.Path.GetFileNameWithoutExtension(workPart.FullPath)
        Dim parentFolder As String = IO.Path.GetDirectoryName(workPart.FullPath)
        Dim root As String = IO.Path.GetPathRoot(workPart.FullPath)
 
        '***** comment out this section to append to existing file *****
        'does file already exist? if so, delete it 判断文件是否存在
        If IO.File.Exists(outputFile) Then
            Try
                IO.File.Delete(outputFile)
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.OkOnly, "Error deleting file:")
            End Try
        End If
        '***** end of section *****
 
        'use listing window to write to file and window
        lw.SelectDevice(ListingWindow.DeviceType.FileAndWindow, outputFile)
        lw.Open()
 
        'write information to listing window
        lw.WriteLine("full path: " & workPart.FullPath)
        lw.WriteLine(New String("-", ("full path: " & workPart.FullPath).Length))
        lw.WriteLine("file name: " & fileName)
        lw.WriteLine("file name w/o extension: " & fileNameNoExt)
        lw.WriteLine("parent folder: " & parentFolder)
        lw.WriteLine("root folder: " & root)
        lw.WriteLine("")
        
 
        lw.Close()
        'flush file buffer by changing listing window device
        lw.SelectDevice(ListingWindow.DeviceType.Window, "")
 
    End Sub
 
End Module