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

admin

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

3 q0 @- @1 S$ c% J
8 Q# e: F6 S, N( W' e比较快的方法吧，直接找属性VWLETTER

2 E/ Z4 {" J' v! Z2 U) L/ D
# w8 j/ n( `1 p        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
+ F; S5 L2 a; P5 |# F! ?            Echo("Drawing: " & dwg.Name.ToString)
            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
& v) h& V2 j* ~+ F( ~3 i1 j/ C2 G6 g4 P                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
3 P1 R. Q. f" U& L. h                    Echo("    " & draftingView.Name & " - " &
0 p0 ^+ Q2 F5 S                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
                Else
                    Echo("    " & draftingView.Name)
! i' L; j# m- `! k- x; S                End If
            Next
        Next
& ]4 Z8 A+ {9 w+ a2 L
" B3 j( @# b+ t- x# l
- O% U6 R1 z4 s' M( A8 o* l$ j    End Sub