VB.NET FOR UG 二次开发之 查询部件信息

昆山人

下面是一段查询工作部件的代码,可是运行的时候出现如附件所示的错误,望高人指点

Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module delete_empty_groups_with_part_cleanup

    Sub Main()

        Dim s As Session = Session.GetSession()
        Dim ufs As UFSession = UFSession.GetUFSession()
        Dim output As NXOpen.UF.UFObj.DispProps

        Dim displaypart As NXOpen.Tag = s.Parts.Work.Tag
        ufs.Obj.AskDisplayProperties(displaypart, output)

        MsgBox(output.color)
        MsgBox(output.line_width)



    End Sub
    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY

    End Function

End Module