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

admin

) ~1 G/ H# C# ]$ u2 zNX二次开发源码： 报告当前视图对象所有信息

' ^9 I6 c' _; f! T7 f! z' r
# K- l; K7 h4 b/ R6 R' H5 w) r[mw_shl_code=applescript,true]Option Strict Off
/ i& O1 o' i( Y  C) U0 u; A6 d7 O9 iImports System
+ M5 V& K! X: _Imports NXOpen
+ l  V; [  L- z5 q# H
Module report_all_objects_visible_in_the_work_view
# u1 \. x' d! t' r& R# v8 H" ]( b
    Dim s As Session = Session.GetSession()
  u  ^0 \# _4 l0 ?4 c6 h    Dim workPart As Part = s.Parts.Work

$ y% M) Q$ c  G7 T    Sub Main()

        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
9 M( C5 N" L6 M7 o! V* m        s.Information.DisplayObjectsDetails(visibleObjects)

& b: a+ I; X- F2 R' _1 B+ E4 p9 G    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]