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

admin

NX二次开发源码： 报告当前视图对象所有信息
7 t  l& k& h3 E
  x7 |! e' G. t
[mw_shl_code=applescript,true]Option Strict Off
, m. D% H8 P- v% q% sImports System
Imports NXOpen

/ H0 d/ P' ?8 \  TModule report_all_objects_visible_in_the_work_view
9 S' g+ R7 [1 q: y! v. `# M
    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
) K2 E+ b3 c9 t! H
    Sub Main()
' u, [0 }3 S' b) \, ?9 p' R: C
) B' _8 r0 S% v+ Y/ r! a) ]        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
$ f/ l7 A" h% l0 m        s.Information.DisplayObjectsDetails(visibleObjects)

: X7 W' z( O9 h. a7 j0 a    End Sub
8 ~! ~) N0 b/ V, [
' j# R( V4 Z! t+ u% k: J& o; @    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
7 O; D' q/ `1 T, a    End Function

5 e* E. ^  w, n. MEnd Module[/mw_shl_code]
! D. y$ ~- j  t; U8 R" K