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

admin

( s; [9 B  Y/ Y; p$ a
' g( w4 y% H: v/ p( iNX二次开发源码： 报告当前视图对象所有信息
. I7 }# s2 j( V6 r- g! d& D

[mw_shl_code=applescript,true]Option Strict Off
0 `* {. h! S9 K& F6 \5 FImports System
Imports NXOpen

6 H4 d6 ^- D& l  T2 `% o1 SModule report_all_objects_visible_in_the_work_view
9 l4 J! ?: n- {. s8 s
    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
& j# F& c* g9 b
; z. {# s- c( S! s) [: V    Sub Main()
. Y9 a$ m9 I' o6 E8 J4 ?9 U4 g3 X8 C
        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
. c0 L( O* K4 M5 D3 i) L4 ?9 O        s.Information.DisplayObjectsDetails(visibleObjects)
9 ^5 G8 r+ l% {$ z- |
/ C- [0 r3 M  K9 o    End Sub

$ y0 N& l: O1 z0 F; l3 {3 B8 r    Public Function GetUnloadOption(ByVal dummy As String) As Integer
5 A+ A: L* X3 U/ K& X        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
$ Y7 r5 ^9 n5 C& n& |+ L    End Function

End Module[/mw_shl_code]