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

admin

# ^' P- |; ^0 K' J% Z' o. b
NX二次开发源码： 报告当前视图对象所有信息

. M3 ]& _# y( S% x4 x9 O8 c1 ^
. I6 k. }: ?# |  H8 I$ \, w9 e[mw_shl_code=applescript,true]Option Strict Off
Imports System
Imports NXOpen
' ~" i4 g) ~0 E1 o6 r  @& |
Module report_all_objects_visible_in_the_work_view

    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
* W6 n" V$ R2 K
    Sub Main()
: ]" y* J6 s  D) H4 Y( k
        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
. g% P- P' y3 D; n0 W        s.Information.DisplayObjectsDetails(visibleObjects)
: |, X$ ~! L; s, \  @/ v5 A! q
: A" x5 m. H7 ^* ?3 Z    End Sub
% S, _" c8 X2 j9 z/ r4 W7 Y
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
& ^) Q/ b7 Y# g7 u0 M        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
" T, Q* [+ j8 e  e( F  P) l7 _    End Function

3 j. {' b5 r+ z: {End Module[/mw_shl_code]
! \$ [: M1 b+ W