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

admin

NX二次开发源码： 报告当前视图对象所有信息
" E; d$ ^# F+ X2 p9 l! a+ e
! E$ B* R3 A6 Y
[mw_shl_code=applescript,true]Option Strict Off
Imports System
Imports NXOpen
3 }& d/ U! T; Z4 r3 W9 Y
) p; x0 _$ O2 y/ hModule report_all_objects_visible_in_the_work_view

    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
4 L$ M( H) b+ ]) k  a
    Sub Main()

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

    End Sub

; K/ p1 N* h. M4 w    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function
! X" e* T3 G1 J, ~
End Module[/mw_shl_code]
, o3 }; l  m& p: |: \