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

admin

NX二次开发源码： 报告当前视图对象所有信息
' ^8 T/ W3 l3 j+ b& z; D& Y
+ B6 q* S7 Z  K
$ g6 y# P' I$ n8 `3 ~3 R[mw_shl_code=applescript,true]Option Strict Off
Imports System
$ I% P" B# }8 q& @Imports NXOpen
0 p: c6 X- p4 U* ^( ^! b
  c- k. L2 z+ o* _Module report_all_objects_visible_in_the_work_view
; C8 _* J* @! ]% K6 {* L
1 _& L$ z! y' \5 T. z5 L    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work

    Sub Main()
2 x/ _0 k! \4 C+ B
2 B$ O% o" j9 p        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
" s. W5 D+ e6 y, ^7 L        s.Information.DisplayObjectsDetails(visibleObjects)
- [* n1 P4 @6 V" E
2 N" a9 X3 X& E  E* R) z7 t# q    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function
$ e" `9 ?* j; |: I6 R
; d9 f. z, H8 r" |1 FEnd Module[/mw_shl_code]
1 f" t$ w& a; ~8 P4 n* {0 T* p