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

admin

' y5 z1 d1 a4 _+ N2 n; K
NX二次开发源码： 报告当前视图对象所有信息


9 Y' t% b$ L. d' Y8 g* b6 C[mw_shl_code=applescript,true]Option Strict Off
Imports System
Imports NXOpen

Module report_all_objects_visible_in_the_work_view
7 q$ I' a* w4 b
    Dim s As Session = Session.GetSession()
% F2 y, U; C" ^  j  \. ?! l. t2 N    Dim workPart As Part = s.Parts.Work

, H, b+ m/ A) }7 g    Sub Main()
( o' N. D7 A8 Z5 {* {. w: `# \& @' D
4 x1 A' z* K4 m& s  `4 q! m        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
0 r$ f5 d4 y' `        s.Information.DisplayObjectsDetails(visibleObjects)
4 {2 v  M( g& b& A
0 L! }8 E2 ^& s: N    End Sub
2 k2 G4 j; a9 E/ E. v
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
% }$ _& K8 @% H! q' y  C7 D9 e    End Function

End Module[/mw_shl_code]