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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
& I# H8 O. q$ L# O  Z* \/ t

比较快的方法吧，直接找属性VWLETTER
& R( E4 q: u! S
3 @2 D: K1 D5 B; ]
1 I. @5 ^; {8 `& S4 R3 }6 L2 D        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
8 O, C/ P# a8 _9 R& V; W' P# }            Echo("Drawing: " & dwg.Name.ToString)
- `- d4 y) ]; X0 E- ]+ u            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
) A8 O( Q4 U  j                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
0 B/ b  I! g. Q! _                    Echo("    " & draftingView.Name & " - " &
' S' B' a+ d' G" u( I                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
                Else
                    Echo("    " & draftingView.Name)
                End If
            Next
9 b9 `( U+ M; R/ V2 M6 b# e" ?        Next

/ v* D3 o7 a5 w- t3 \
    End Sub

% [1 Z- n- m" `$ Y- X