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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
# S1 n9 \8 m+ C3 O
( u5 r& z0 ]1 S2 q9 a2 }. J: W; J
2 x" h: \, m# c" x2 \4 D比较快的方法吧，直接找属性VWLETTER


        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
            Echo("Drawing: " & dwg.Name.ToString)
            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
0 S( Y! N& z5 w, v) ^3 L( f                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
6 T; ?! Q9 R- w3 o& Y                    Echo("    " & draftingView.Name & " - " &
8 a, X# C) t1 L2 N' j                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
1 r8 ]1 ~( ^* L9 l. u( @                Else
) Z9 [4 X8 ~  j( Y                    Echo("    " & draftingView.Name)
                End If
            Next
) X  H$ t1 |( F$ P9 I( i  m! j        Next
8 f, e) Y( b3 c" T$ i" o6 B8 S
4 ^0 S2 x! {5 ^8 J
' }3 ?5 c. j# \4 w6 P    End Sub