iCAx开思工具箱

标题: VB.NET FOR UG 二次开发之查询部件信息 [打印本页]

作者: 昆山人 时间: 2006-11-2 12:02
标题: 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

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)