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

admin

' d+ ]! W/ m, g) B1 l3 ^, h
NX二次开发源码： 报告当前视图对象所有信息

/ G: R4 s: _$ m
[mw_shl_code=applescript,true]Option Strict Off
Imports System
Imports NXOpen

Module report_all_objects_visible_in_the_work_view
7 l9 V) R  R3 j; a# c2 R" @& g
; I# p  Y  f! e8 K+ B    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
1 B3 O  I8 ?* u  i+ {4 Q' g: ]
    Sub Main()
- T) c$ D) z; T
1 j. j5 F; z1 g. Z* s7 }        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
        s.Information.DisplayObjectsDetails(visibleObjects)
: c* F1 S! l% H1 g+ F: g
    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
6 l. a- F5 R8 F, ]9 G$ L  K* V  F5 j    End Function

5 X" z3 a5 ^1 G3 n$ REnd Module[/mw_shl_code]