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

admin

2 Z' L5 u% c. |+ P/ _
  I& Z4 @! ]0 ?NX二次开发源码： 报告当前视图对象所有信息
0 |* _  E) J2 u

[mw_shl_code=applescript,true]Option Strict Off
Imports System
& N; ~1 R  `7 A7 cImports NXOpen

Module report_all_objects_visible_in_the_work_view

    Dim s As Session = Session.GetSession()
* l4 m5 J0 q/ ]; ^& O# c  U/ p/ ^    Dim workPart As Part = s.Parts.Work

    Sub Main()

        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
" X6 m7 k& z* ^, T* g        s.Information.DisplayObjectsDetails(visibleObjects)

- b1 P5 `) p4 U' c$ `    End Sub
) H) [7 ~, V7 Z! i8 j- ^
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
" K; v8 O2 X0 y: a$ k% ]" f; ^    End Function

End Module[/mw_shl_code]
+ @5 F2 v2 d; g# y# `' `4 c. ?