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

admin

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

  W& e! G5 M; m, z, @' M5 V4 i
* }- W! r' Z7 U& Q[mw_shl_code=applescript,true]Option Strict Off
# ^0 p  K. }( i3 F9 B+ k' C2 NImports System
Imports NXOpen

5 D+ }: H7 U7 |; uModule report_all_objects_visible_in_the_work_view
3 C+ M% `6 t0 E" f+ r1 N0 o* S
    Dim s As Session = Session.GetSession()
' `. R$ a; ~* ]1 S; N, I. l' N6 \    Dim workPart As Part = s.Parts.Work

    Sub Main()

        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
& d$ e; T8 l  }        s.Information.DisplayObjectsDetails(visibleObjects)

    End Sub
' k+ O% b. k5 h' Z/ v) I
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
) g8 r& h$ I/ J        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
/ W9 t2 u, t9 Q    End Function

+ i: d, J& m0 T, J. XEnd Module[/mw_shl_code]
& Q" O% ^! y$ M  ]  p0 Z8 n