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

admin

9 ^0 q7 S) z4 H: Y
NX二次开发源码： 报告当前视图对象所有信息
! a2 R% A! K& ^( r
9 t8 d1 P) z4 n8 @( L  i% b5 l
[mw_shl_code=applescript,true]Option Strict Off
Imports System
! S8 w# D: v( G% R  iImports NXOpen

Module report_all_objects_visible_in_the_work_view

    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work

    Sub Main()

& V  S3 `8 u& k) \2 V2 R        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
# G# @$ S2 _4 [) ?- D        s.Information.DisplayObjectsDetails(visibleObjects)

    End Sub
/ |7 o3 A+ F! ~4 n% L  ^4 p
+ k4 v, u6 o, r    Public Function GetUnloadOption(ByVal dummy As String) As Integer
0 {3 P( v3 H& n! ^        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
9 m) n) H3 b0 R' D/ Y) k    End Function

End Module[/mw_shl_code]
1 `. a/ s) K) s1 q0 U) [