社区 › Simens NX二次开发专区 › NX二次开发源码： 报告当前视图对象所有信息

admin 发表于 2019-9-1 11:04:13

NX二次开发源码： 报告当前视图对象所有信息

NX二次开发源码： 报告当前视图对象所有信息


Option Strict Off
Imports System
Imports NXOpen

Module report_all_objects_visible_in_the_work_view

    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work

    Sub Main()

      Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
      s.Information.DisplayObjectsDetails(visibleObjects)

    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
      GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function

End Module

查看完整版本: NX二次开发源码： 报告当前视图对象所有信息