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

admin

6 `+ W0 ^8 E5 W6 H# b% c7 [
NX二次开发源码： 报告当前视图对象所有信息
- g1 C& I/ O: n6 J+ S3 _
, i$ E# n$ T' c. n" U' |
0 ^1 q( \+ r3 L[mw_shl_code=applescript,true]Option Strict Off
  Y' Q& Q. h- l" k- I. H& dImports System
Imports NXOpen

Module report_all_objects_visible_in_the_work_view
$ Y, d+ e% H6 h1 Z8 d, U1 z
. u) k  \$ s9 |, O  Z7 I    Dim s As Session = Session.GetSession()
2 m3 m! i4 A5 f# q) }8 N' d3 Q) Z    Dim workPart As Part = s.Parts.Work

    Sub Main()

        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
/ w& h9 Y5 {* S- I! |+ d0 n        s.Information.DisplayObjectsDetails(visibleObjects)

5 O1 D6 c* R  a9 f" S) U    End Sub
' y! f$ {* p' R& D
  T% W3 E! c  N0 t0 o    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
7 t! Z$ k' t: l; w. {5 L    End Function
; R# ^% s+ q; J! X7 @2 C2 O
End Module[/mw_shl_code]