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

admin

3 A, u8 B. r5 N/ X. m) c
NX二次开发源码： 报告当前视图对象所有信息
8 d4 O6 H9 P' t; S6 u

[mw_shl_code=applescript,true]Option Strict Off
Imports System
Imports NXOpen

4 z0 @. k$ O$ u- TModule report_all_objects_visible_in_the_work_view

% q$ A8 g0 G$ w: R, G0 ^    Dim s As Session = Session.GetSession()
6 u/ M/ P4 R1 H" }7 D( U% B2 T; i    Dim workPart As Part = s.Parts.Work
) Q6 E( Z. ]9 _  r  x
% A& w  ?+ p8 j0 |    Sub Main()
/ {# ~" L5 J% a$ K' g8 t
8 K( w9 r: {, v! }        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
4 L* K( M  Q% N0 ~, }" c6 |        s.Information.DisplayObjectsDetails(visibleObjects)

    End Sub

+ y3 |5 `1 o/ G$ X7 t7 i% @6 t/ P# \    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
' X/ E# m( l0 N( M0 o- `    End Function

End Module[/mw_shl_code]