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

admin

" Z8 W' t6 d; A" l: |1 P, t5 u
* M1 }$ Q0 v, B  p; v+ o! RNX二次开发源码： 报告当前视图对象所有信息


[mw_shl_code=applescript,true]Option Strict Off
2 T" }2 X- W5 Q' @; AImports System
Imports NXOpen

* D; l" s' I& F/ F0 {$ |7 X8 @Module report_all_objects_visible_in_the_work_view

2 }/ _6 U6 k- J# n( N    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)

0 A5 D$ g" _1 Y" l( E4 Q    End Sub
, H( q* M; ^1 E
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
5 |7 _& w# e% ^) v/ j    End Function
- B% l. O- J- M( |  R6 |
0 t  S1 L+ {0 F/ OEnd Module[/mw_shl_code]
6 w# b  Q8 C" ~" ]7 ?