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

admin

( b( |( x3 ]  vNX二次开发源码： 报告当前视图对象所有信息


[mw_shl_code=applescript,true]Option Strict Off
) c6 s% p3 N- H4 G  z0 N/ ]9 JImports System
Imports NXOpen
4 W# J8 T% R8 X; ^+ i
Module report_all_objects_visible_in_the_work_view

3 l9 m1 E6 f" G; K7 O    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
5 Y* m2 d; v; r7 ~8 h
    Sub Main()
+ g: k  y- g- U( ~6 D- F1 e
        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
" C, j/ H7 B9 ~5 d: Y& H1 U1 A2 T        s.Information.DisplayObjectsDetails(visibleObjects)
" h+ n, @, M9 g0 M2 B( H
    End Sub
8 C7 c9 k- _% b' V- v- e
% n2 ?7 n9 ~) q5 T) G& O% c0 {( I    Public Function GetUnloadOption(ByVal dummy As String) As Integer
% b, N$ B# S2 i# i  w6 Z7 p        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
" f( _. \' ~6 X: {/ T1 _    End Function
0 \/ m; P& G, Q8 A2 `; [  h, l
3 Q& T1 T3 [0 T" b! a9 w: kEnd Module[/mw_shl_code]