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

admin

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

+ h  Z# s7 H; ]; t4 [( ]$ o/ B
[mw_shl_code=applescript,true]Option Strict Off
. L5 W% l# Z! E! u# zImports System
Imports NXOpen

. C) H! J2 U  b. a# v. {0 oModule report_all_objects_visible_in_the_work_view
  @0 h8 \4 V9 U2 b8 [# b3 m
    Dim s As Session = Session.GetSession()
* p! V# \3 D, [+ N0 I+ ~3 _  G& [    Dim workPart As Part = s.Parts.Work
* r8 \4 J! b6 s5 S. b8 S6 M
1 ~& d  G! x, h: K% }' ?9 \" a- m    Sub Main()

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

    End Sub
5 n- v* D) X) ^8 ]3 l' {. ?/ ~; g" k; x
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function

; Z5 h: \6 R& t/ F3 wEnd Module[/mw_shl_code]