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

admin

, V, Y  m' b6 N/ j
NX二次开发源码： 报告当前视图对象所有信息
' Q+ ?  s1 C8 C- e3 l! H
2 `; B0 B) k; U3 |+ p0 D
& u% X: z& n! B" F/ a$ K, Z[mw_shl_code=applescript,true]Option Strict Off
& X0 T7 s0 o1 i5 [5 e6 WImports System
5 {% r: o. t/ [( D3 I& O) mImports NXOpen

Module report_all_objects_visible_in_the_work_view
$ W9 s- ^5 w, e  |
    Dim s As Session = Session.GetSession()
. z& O2 A  d# x& l9 j" ~- C    Dim workPart As Part = s.Parts.Work
6 z' _8 K7 r) z( a7 H" |/ q
    Sub Main()

/ V! T# D6 j$ m, C$ Y3 ]* X        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
& {7 c* l: G, w4 F7 u1 C        s.Information.DisplayObjectsDetails(visibleObjects)
3 E% h1 x- G. I/ B7 F) B* @" {
    End Sub
  K$ [8 D+ T  K$ _* U
6 ]- `0 [8 Z1 ]1 z$ g# d    Public Function GetUnloadOption(ByVal dummy As String) As Integer
# T3 C% _6 p6 g0 t1 c# J! Y: D3 _* w        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function

0 @( w  h- M6 S  pEnd Module[/mw_shl_code]