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

admin

& y% S; U$ T. U4 y/ m
NX二次开发源码： 报告当前视图对象所有信息


3 a1 `' [6 R$ X0 A[mw_shl_code=applescript,true]Option Strict Off
Imports System
Imports NXOpen
% W. w6 G( B4 @# O  G1 R
Module report_all_objects_visible_in_the_work_view

    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
% B) R, F3 k+ \3 ?; C2 ]
+ v, f* k4 @  P# J6 _6 g" T( X    Sub Main()
. d7 j6 K0 i% }' U6 Q9 ^* Q
        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
; R; X. c  q. D- n# @7 n8 X        s.Information.DisplayObjectsDetails(visibleObjects)

    End Sub
6 C6 ~9 K- L0 ~* i! d9 S/ \
% u5 M4 ?5 H' \' R1 W    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function

7 B8 Y9 N1 ~( \& d& p* ?( fEnd Module[/mw_shl_code]
  X$ ~" p* x! \5 o: r* v; s; y