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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
$ ]% x! V1 m3 ?* ~8 f
: b; O' f" L! Z6 u9 J+ [
/ Q: c5 m+ }" Z! T比较快的方法吧，直接找属性VWLETTER
" |2 J$ }) \$ N7 c. U3 P( P6 x

        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
            Echo("Drawing: " & dwg.Name.ToString)
- Q2 S8 h5 M3 ~: Q; N            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
- S. h' @7 i, x9 Z  n& o' d                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
                    Echo("    " & draftingView.Name & " - " &
                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
                Else
: [  i, |9 c4 A  P9 Z                    Echo("    " & draftingView.Name)
: g5 w! P- _, S) e                End If
            Next
, a8 h: p  y/ y4 e9 ]2 R        Next

8 e( c& k  W5 s- H, r9 D/ ?' U
0 `8 k5 A) J7 ~8 L# l3 r* s    End Sub