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

admin

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

% j% @7 Q9 U9 m$ [0 c. K
比较快的方法吧，直接找属性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()
+ J! }* j# U  Y8 c' W                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
                    Echo("    " & draftingView.Name & " - " &
4 c' i1 g  y1 J, n3 t$ a                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
. X, E: \( I, @                Else
8 l1 A, w" j+ ]                    Echo("    " & draftingView.Name)
                End If
; O2 H$ V! r( @: r! k+ g0 E3 J            Next
        Next
- I: a) r# v: z7 P+ _6 m* E  b

* G8 @' V3 e" c) _9 j: x0 J  b    End Sub
$ }  V! s( n: b* `8 Z* \3 ?) [