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

admin

1 l/ z" h, ~6 W$ r5 SNX二次开发源码： 报告当前视图对象所有信息
& Q# i: Z& z: Y# R0 b" F3 ^" j6 \
5 Y) ?/ |* G6 F1 O
[mw_shl_code=applescript,true]Option Strict Off
Imports System
Imports NXOpen

$ v3 U  S+ `& c7 nModule report_all_objects_visible_in_the_work_view

    Dim s As Session = Session.GetSession()
/ {2 g8 c) P: J* e& U- G+ Z    Dim workPart As Part = s.Parts.Work
: u3 W3 C$ p& e5 P0 E
    Sub Main()
9 f* }) u8 h5 V
        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
, m4 ^5 y( Z" ]9 A2 H" d  O) H# R        s.Information.DisplayObjectsDetails(visibleObjects)
' q- C( p( F! y! U, H
4 w1 ~* h* a) E! K8 I    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function

End Module[/mw_shl_code]