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

admin

% E) ^. \# c" e0 Q. E0 h9 l0 H( O
NX二次开发源码： 报告当前视图对象所有信息


2 y; G* h! ^0 }* _# Q* d, f[mw_shl_code=applescript,true]Option Strict Off
Imports System
' v; z" T- P: h$ UImports NXOpen
$ [! p4 D; e1 n. a
Module report_all_objects_visible_in_the_work_view
  S  o( k4 J# n8 d+ ~# @
    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work

3 E2 A" f& y$ f8 O* [4 G) b    Sub Main()

        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
        s.Information.DisplayObjectsDetails(visibleObjects)

: D. @6 F* j5 s    End Sub

# K/ r2 M1 [! U7 c    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function
) G3 m, ?" G4 K* o5 }5 x
End Module[/mw_shl_code]