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

admin

3 t) i. O0 [& U6 q
NX二次开发源码： 报告当前视图对象所有信息
& n; R0 x$ I4 o# B
% E  I3 c( J# f4 g6 E
" l2 R' f4 \4 r[mw_shl_code=applescript,true]Option Strict Off
Imports System
. O# ]# h3 b# {  x/ e% i( s2 rImports NXOpen
+ K& [4 e1 R2 B/ x9 @
Module report_all_objects_visible_in_the_work_view

5 Z2 F" D# l' l    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
+ }1 {1 ~7 g8 p. ~3 @  |5 g0 Q
: n2 s  ^. C7 F    Sub Main()
! m! @0 h4 S- I/ |9 F3 n
        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
, m- p; f( A4 ~$ W. f, b        s.Information.DisplayObjectsDetails(visibleObjects)
; M" w9 U* L( _1 j
9 {% C8 k) ?! S- U    End Sub
0 x& z& U" r  S) N
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
# `$ J, z+ j: a        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function
! C& |: y) ]1 A$ g6 {# A; F2 w8 l
End Module[/mw_shl_code]