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

admin

/ Q4 ?6 f3 h& l" [$ _2 ^8 sNX二次开发源码： 报告当前视图对象所有信息

, ^8 r6 ]/ y& `' A! a1 \9 ^
[mw_shl_code=applescript,true]Option Strict Off
; n6 f9 T. l( GImports System
Imports NXOpen

3 Z, [4 T. ^3 m% cModule report_all_objects_visible_in_the_work_view
6 \) e/ L! p  j, V
; q6 g( d+ _5 P* i: M    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work

    Sub Main()
) h5 `' v2 ~3 \- T# U
8 R) R- t2 k9 o# g; {8 \        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
$ J: q" W4 l7 N) A        s.Information.DisplayObjectsDetails(visibleObjects)
+ P, h) ]! U# |' S  v: Q# l
2 [9 T; U) V* F    End Sub
5 x1 j: y! Q; E9 s/ Q( c, T. N, n+ I4 M
. ~4 y$ ]2 g, l, @    Public Function GetUnloadOption(ByVal dummy As String) As Integer
: z2 X" V, F7 @" K        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function
# E& z, e0 I7 u+ N4 A& w! h
End Module[/mw_shl_code]
0 h" N! R: `# \$ N. Q8 b