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

admin

5 K' f$ j/ h6 S5 ^4 D& KNX二次开发源码： 报告当前视图对象所有信息
. l$ F! M. v1 Q* Z4 f0 O8 u3 \( {

4 C8 f) `4 v  k. E9 }. D$ _[mw_shl_code=applescript,true]Option Strict Off
Imports System
' W2 T  J4 I, X# Y; W- o/ |Imports 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()
# T: E6 Y. |" G1 I9 S6 o
, I1 Z$ h6 R7 {        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
        s.Information.DisplayObjectsDetails(visibleObjects)

    End Sub
/ i/ v6 z7 d6 ~
1 f3 _/ T* v; \    Public Function GetUnloadOption(ByVal dummy As String) As Integer
% r% o3 |/ o' g: k' |4 u9 a        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function
% t: _4 f: t# P6 U5 B4 e3 U
6 ]# w' f) z, U) t. @; S' dEnd Module[/mw_shl_code]