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

admin

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

+ `( O$ v! E0 z, P# N8 C3 M: d% q
" V# ]0 w1 s% G5 R[mw_shl_code=applescript,true]Option Strict Off
3 _6 Y! b5 f9 |+ V4 `Imports System
Imports NXOpen
: H- T* ]& M, d5 R8 L
Module report_all_objects_visible_in_the_work_view

, c* E1 }) {" ]    Dim s As Session = Session.GetSession()
7 u6 b/ b: X! w  E    Dim workPart As Part = s.Parts.Work
% h/ |2 y  K9 [: Q- ^
    Sub Main()
6 c/ q2 p+ F0 _
3 M4 g) ?1 E7 M0 Y, i6 A/ L$ b7 l        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
: c* m( E' M' a        s.Information.DisplayObjectsDetails(visibleObjects)

" L4 j- M3 g7 H  A: G1 \    End Sub
, V8 N+ Y3 W/ I* b" l) L
  i5 @3 n5 v) p8 e' x    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
' N, n+ o* T3 l- p  }" j    End Function

, r) n7 b: y* x! \+ HEnd Module[/mw_shl_code]