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

admin

4 q) ^. U* Y& [9 ~8 N- w8 y
NX二次开发源码： 报告当前视图对象所有信息


$ z& G( d. q& V) P* K3 T[mw_shl_code=applescript,true]Option Strict Off
6 d. f2 w& Q9 e5 s/ c$ Q% AImports System
Imports NXOpen
" V* M+ z7 u! @  ^3 `! v2 [
# \) l# ~( ?7 |+ Y) b% I4 UModule report_all_objects_visible_in_the_work_view
! T# a" s& F& C, D) `  J+ Y2 `
    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work

6 \% g( g/ u0 x    Sub Main()
4 w0 G3 t8 B1 \6 R9 [9 W/ P; b
0 M0 P: i( f8 t; S        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
        s.Information.DisplayObjectsDetails(visibleObjects)
5 P8 h9 l8 f" I1 Y6 T
    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
: W' \. B" f0 I8 j        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
+ D9 D, h  G8 O. w$ Z- `    End Function
' D5 Y7 o2 s# C! L
5 _; k- N. x) G% ^4 H$ {End Module[/mw_shl_code]
, ~5 W# a9 ^* Y& C