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

admin

. w8 z9 b7 y, D: I8 S/ z7 R3 ^, ONX二次开发源码： 报告当前视图对象所有信息
8 v% a) j7 L; N. ?0 c4 d

[mw_shl_code=applescript,true]Option Strict Off
- m: ?5 K% m2 N& eImports System
Imports NXOpen
: L( d' H) |7 r/ q1 I
) E9 m  v+ Q: U3 q* BModule report_all_objects_visible_in_the_work_view

- \& v; @! }5 R6 d# R1 `- r    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
, |& Q; {& c* S4 M* p6 v& q
    Sub Main()
: O1 _, U+ i# L. Z+ k& d1 r
) U9 n, a$ I1 T0 G- g' A        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
        s.Information.DisplayObjectsDetails(visibleObjects)

7 Q* r% h" g* i: ]7 y, S* a6 r* H3 W    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
) p1 ]/ r3 I" P; r* U' J1 w! m    End Function
; Q" L  R/ ]9 T' z" o
$ \) ]0 w# t4 c6 R* r0 X0 s1 O' x" JEnd Module[/mw_shl_code]