UG NX 二次开发获得部件导航器中所有特征 VB.NET

最新推荐文章于 2024-11-21 21:17:52 发布

UG NXOpen学徒

最新推荐文章于 2024-11-21 21:17:52 发布

阅读量533

点赞数

CC 4.0 BY-SA版权

分类专栏： UGOpen VB.NET 文章标签： .net

本文链接：https://blog.csdn.net/weixin_42577120/article/details/132466055

UGOpen VB.NET 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个NX9.0中的VB.NET代码片段，用于获取工作部件中的所有特征名称和类型，并通过ListingWindow显示。代码确保了在执行后立即卸载图像。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、简介

获得部件导航器中所有特征的名称及类型，并打印在信息窗口。代码支持操作记录直接运行（NX9.0测试）。

2、代码

Option Strict Off
Imports System
Imports NXOpen
 
Module Module1
 
    Sub Main()
 
        Dim theSession As Session = Session.GetSession()
        If IsNothing(theSession.Parts.BaseWork) Then
            'active part required
            Return
        End If
 
        Dim workPart As Part = theSession.Parts.Work
        Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open()
 
        For Each partFeature As Features.Feature In workPart.Features
            lw.WriteLine("feature name: " & partFeature.GetFeatureName)
            lw.WriteLine("feature type: " & partFeature.GetType.ToString)
            lw.WriteLine("")
        Next
 
        lw.Close()
 
    End Sub
 
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
 
        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
 
    End Function
 
End Module