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

admin

7 f$ |; G! l/ `" ?0 J& g. Z' ^
NX二次开发源码： 报告当前视图对象所有信息
& e+ d2 m* c. {* k

6 r5 S& @/ E8 s' [8 z' B[mw_shl_code=applescript,true]Option Strict Off
+ @* b  T" l8 @Imports System
Imports NXOpen

  R( z5 ~- g3 y! ]3 d! V. BModule report_all_objects_visible_in_the_work_view

1 B5 t  U( h! I# D    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
, Q, X6 B+ o  c8 {( f  F: D
) \9 q  E& f4 A    Sub Main()

/ i6 P! J; s. }5 Q        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
7 \9 D5 ?. G6 [; @: A        s.Information.DisplayObjectsDetails(visibleObjects)

7 V8 E/ s5 K6 ~& C    End Sub
% j/ d4 u! I: w' C. O
% Q+ K3 P" U3 V/ M# h( l* Q! s. a    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function
, ]& A5 X) _  Y
End Module[/mw_shl_code]