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

admin

' v4 `! R* F- x& T. t' g
NX二次开发源码： 报告当前视图对象所有信息
; @2 ?: @3 U6 Z; H
4 @: y: o8 r- @0 j4 }9 {) n9 @& G
& B) n) h& _) C0 D# v* `4 N3 k[mw_shl_code=applescript,true]Option Strict Off
& Z1 c3 H3 m) L: Y9 t0 cImports System
% v# D6 }& R4 Q9 `- @1 h! dImports NXOpen
1 ^. j' T5 G/ X1 R( F
Module report_all_objects_visible_in_the_work_view

    Dim s As Session = Session.GetSession()
* V. C" U$ ?. N# s; g    Dim workPart As Part = s.Parts.Work

8 ?" a0 |  E6 n3 W    Sub Main()

        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
        s.Information.DisplayObjectsDetails(visibleObjects)

    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
9 r4 A* \+ R' v    End Function
7 c1 L. {9 I! g
End Module[/mw_shl_code]
# C/ S& s6 R$ M