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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
4 O/ _9 B2 u' O6 z) T
: E1 l6 I' \  W( j( l4 R, T: w
比较快的方法吧，直接找属性VWLETTER


  B" K6 I1 _' G# m: K        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
8 `  T3 V& t; S* P, [& J* W            Echo("Drawing: " & dwg.Name.ToString)
            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
( T2 f9 o4 z6 H: G# b* Z                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
" [6 X1 U2 j7 U                    Echo("    " & draftingView.Name & " - " &
                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
                Else
                    Echo("    " & draftingView.Name)
                End If
            Next
        Next


. N9 f$ \9 L- ?, V( X- x    End Sub
! N$ y  k/ e/ q