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

admin

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


& P& z0 K  b" Z" r- x9 p[mw_shl_code=applescript,true]Option Strict Off
Imports System
Imports NXOpen
7 }2 p5 N: Z. V2 ]+ X  v
Module report_all_objects_visible_in_the_work_view
" i9 e6 g8 r+ t& @* s* d7 D4 \
- `; A& x3 `+ A* U    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
' `4 U: v( Z1 k: q) {
" p- v5 ]  y; _+ S5 d. R    Sub Main()
- l6 u" f2 J0 D4 `
        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
2 N, M% s; v7 U8 I        s.Information.DisplayObjectsDetails(visibleObjects)

& q# S( @( l) V( T* k    End Sub
8 R7 M8 C; I+ |- F- V
) z* i; f1 g$ X" K0 z    Public Function GetUnloadOption(ByVal dummy As String) As Integer
5 V0 P6 g+ O/ C! V8 k2 {        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function

/ a( J% F% F% l+ x0 G  ZEnd Module[/mw_shl_code]
$ o# ?* ?- n6 m