NX二次开发源码分享： 快速获取显示部件下所有的视图

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
! B0 _3 P2 i1 v* w5 w( O% _$ T

6 j$ Q6 Y% A7 g' p$ x4 n. q( l- G比较快的方法吧，直接找属性VWLETTER
4 Y% G' Q- f; ^5 w5 g5 h- c
5 u5 D' ]- c9 J0 A
        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
$ k; }4 e) s: z            Echo("Drawing: " & dwg.Name.ToString)
            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
/ @8 X! p/ B% _2 _                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
; ?9 C" |4 z8 e                    Echo("    " & draftingView.Name & " - " &
) q8 [; b3 _8 S9 h                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
1 t1 i% P; l( _3 M                Else
, \0 Z( g7 W( h% ?5 O                    Echo("    " & draftingView.Name)
                End If
. w; ^' E3 R1 y3 l+ z: Z            Next
        Next


    End Sub
2 U  q4 {: t0 n2 D6 t4 w