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

admin

  V. ^8 g0 F; n8 HNX二次开发源码： 报告当前视图对象所有信息

! y' x4 |* g' h1 n) H' M
# D" s" \6 v* a' q[mw_shl_code=applescript,true]Option Strict Off
# [! U. h! f. k+ R& aImports System
Imports NXOpen
0 w5 a6 Z" D, e  l4 F& p: j% a% J
Module report_all_objects_visible_in_the_work_view
& K5 ]' ^$ e6 ^2 t5 d6 t7 V
$ E% ^: G# M2 k! ~) o' X    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
# k* F5 o3 ^) F( }
    Sub Main()
$ D  J) H( m, c, H
        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
        s.Information.DisplayObjectsDetails(visibleObjects)

    End Sub
, w/ q* J; R9 `( p5 `0 B
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
$ g1 w; g1 c7 k4 j/ I2 u    End Function
1 ]6 B, s$ `$ M  O( s- G
/ u- O  h9 {; x$ L& q9 ~' k$ w; ^End Module[/mw_shl_code]
6 y3 d: i- n% n6 ?