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

admin

" Z1 J3 W5 L4 l* f6 i5 U
NX二次开发源码： 报告当前视图对象所有信息
$ X( F  @. C" }% g/ E% C
1 G& u: o* m. h+ S, W% v: a' R$ r
5 v3 o9 E7 K- L; `& y* t- O0 v[mw_shl_code=applescript,true]Option Strict Off
Imports System
( D" }* C5 s# M8 O5 K; r3 gImports NXOpen

) i7 @) h4 K% Q+ g* AModule report_all_objects_visible_in_the_work_view

  f, I- A, y8 V8 V' n2 {    Dim s As Session = Session.GetSession()
/ J1 `5 I; ^5 }" \1 D' F2 M    Dim workPart As Part = s.Parts.Work
& y3 S! t# ]/ U8 a1 W4 g# ]7 H
, X3 q- S( ~/ m    Sub Main()
. D8 q8 F& J5 T2 q8 t1 k
3 E3 {' [# F/ i) j' X        Dim visibleObjects() As DisplayableObject = workPart.Views.WorkView.AskVisibleObjects()
, f0 x" q  Q' H        s.Information.DisplayObjectsDetails(visibleObjects)
% Y' o9 f) U4 d8 |. J$ g' O
: N+ D& [2 l2 h! Q8 i* a    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
    End Function

( @4 _- }4 _# q+ v* {& B2 jEnd Module[/mw_shl_code]
+ z5 r6 o& G5 T