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

admin

NX二次开发源码： 报告当前视图对象所有信息
6 Q# {7 u5 m) e4 V- k
" T2 B( q# _+ P  W$ S4 }
' v7 I/ e8 k3 N5 p  |# U5 _! h[mw_shl_code=applescript,true]Option Strict Off
Imports System
Imports NXOpen
- \; {" l% T3 F  y
Module report_all_objects_visible_in_the_work_view
" |7 e( _0 p* l, J/ P8 q) U+ c6 z4 Y
- K  W' Z7 s+ j2 Q  |    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
! B/ g! S' O) O$ R6 F( Z
    Sub Main()

        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
        s.Information.DisplayObjectsDetails(visibleObjects)
3 P  A/ S  P9 V
8 t2 x% y) Y% M. @* k    End Sub
5 l. Y) Y: Y5 A5 Y6 K  M, Z8 X
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function
7 m% S8 ]2 g$ p! g: c, o- x0 l" p: L
End Module[/mw_shl_code]
. h8 K" H6 x% g/ X3 `: m; |, B/ F