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

admin

NX二次开发源码： 报告当前视图对象所有信息
: w9 I! G3 l$ R
! q$ _3 k% R& |! A
% C8 b1 o1 l% h1 n/ [$ Y. m3 E: V/ c[mw_shl_code=applescript,true]Option Strict Off
8 A1 r0 I" H8 j/ ]9 F" ]# _Imports System
% P, U: v! Q$ S! ]/ S- c: w6 ^! f  TImports NXOpen

Module report_all_objects_visible_in_the_work_view
. G: Q5 y2 H: G4 O
    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work
- h" k* P& h& b0 x3 @% ~  |
  j5 u* c# i/ T) \, w7 W3 [- q& k    Sub Main()

        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
% c& b$ z9 J5 [& a        s.Information.DisplayObjectsDetails(visibleObjects)

    End Sub

6 X1 y( D4 s3 ]. a- v/ i4 ]8 u    Public Function GetUnloadOption(ByVal dummy As String) As Integer
( l$ O% i3 g8 N2 w" F        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
% Q* m* m8 x0 N: ?, b8 A" i    End Function

  Y) ]$ o7 w  [7 E0 y1 L. dEnd Module[/mw_shl_code]