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

admin

9 H9 b  S  U& W) Z* {0 P6 k
NX二次开发源码： 报告当前视图对象所有信息

- Q! V) L3 ^( Q5 {, \$ u
[mw_shl_code=applescript,true]Option Strict Off
: `+ L' ~& r+ k4 n+ eImports System
4 l# Y* `/ ~) Z: eImports NXOpen
; p" J" M, e( L0 u
. \1 ~$ R, K2 k7 z) o, ZModule report_all_objects_visible_in_the_work_view
  e; J5 x) v( S8 @7 Y8 P
    Dim s As Session = Session.GetSession()
    Dim workPart As Part = s.Parts.Work

% Y8 A5 H3 ?* v. V    Sub Main()

8 {; ]" u0 T6 f( o2 H7 e/ P& {        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
        s.Information.DisplayObjectsDetails(visibleObjects)
- s1 D/ |8 `; b2 v
! ], q  @1 ?# m    End Sub
2 H. ^3 x5 i9 D2 g: T- S
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
$ x0 O% d2 i4 J! D/ @' P        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
( K3 r- ~- e$ U( a' G    End Function

End Module[/mw_shl_code]