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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
. e: o7 G6 b& a9 F. w5 c. i9 Y+ b9 ?
) M* B( c& Q) d# H! W7 z
7 n- N  }8 [: N2 N$ Z+ ?比较快的方法吧，直接找属性VWLETTER
) l/ Z4 ?, w# S/ K& o6 s

, b1 y7 k" ~" q# e1 H        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
4 m* L, I( ^3 f4 K; P8 l            Echo("Drawing: " & dwg.Name.ToString)
6 z/ J$ i/ Z: m+ I! r  l" @) K- ^; Z            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
5 F  G( n# B/ ?' E                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
                    Echo("    " & draftingView.Name & " - " &
. P6 q1 y  V0 \2 M0 B( k% x- F, C. u                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
* O' g$ e4 ]8 V$ L                Else
                    Echo("    " & draftingView.Name)
                End If
0 ]# t/ [+ u! f% I) f            Next
3 J& b* F. _8 N* U        Next
' E! E1 }" ]2 c* Y

    End Sub

6 f4 P/ F0 ]; X/ t2 F