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

admin

" @3 f* x" _' A) ~NX二次开发源码： 报告当前视图对象所有信息
7 b$ z, Q1 b, k
5 |1 v" t. g. _+ ?* |+ l
[mw_shl_code=applescript,true]Option Strict Off
& T: X4 x% `' P1 l, |3 QImports System
* D% L" y# K2 q1 K# ZImports NXOpen
) P( C2 g+ F8 ^0 t4 a$ Y3 h$ f
Module report_all_objects_visible_in_the_work_view

    Dim s As Session = Session.GetSession()
) A; ^- S7 E: V0 |3 v' D$ ]8 [# W    Dim workPart As Part = s.Parts.Work

    Sub Main()

        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
5 {) T% ~9 c2 Z# P. {  k3 G- e        s.Information.DisplayObjectsDetails(visibleObjects)
3 ^7 L, o6 q# l0 Z
" X. w$ K$ s2 ]8 `5 D0 O    End Sub
3 ^& b0 b; c) v0 w
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
; v! R0 y$ }' i% E) ^. i  |- D        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function
# \$ W) t$ w- k, f  r
7 E& I& T( C8 E5 `& W8 kEnd Module[/mw_shl_code]