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

admin

9 e( U; z+ y% d+ S* L# KNX二次开发源码： 报告当前视图对象所有信息


[mw_shl_code=applescript,true]Option Strict Off
; U! U$ x% G) o7 w2 P! ]Imports System
9 O0 g0 p4 I; r5 `Imports NXOpen
6 t2 a# f+ L$ S$ g, T* ?% a
Module report_all_objects_visible_in_the_work_view

    Dim s As Session = Session.GetSession()
6 K% l" o: o$ M- h7 S7 M0 T3 Q    Dim workPart As Part = s.Parts.Work
/ K4 y( A8 `5 j& q% \& A4 b8 K. c
    Sub Main()
, Y" f! f1 M; s* P$ Y/ u
8 u9 _( a3 z% U! u% N8 I0 @        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
+ Q6 {" x$ j7 M* ~/ Z        s.Information.DisplayObjectsDetails(visibleObjects)

    End Sub
8 b3 P( r6 r/ H0 ~
/ ^/ l( m% D" S1 A    Public Function GetUnloadOption(ByVal dummy As String) As Integer
, e7 x; ~4 Z6 u+ v        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
- h. Y9 B1 {: e6 J0 p    End Function

2 z* \" d5 h6 ~End Module[/mw_shl_code]