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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
. E; y1 f9 [( L% |8 S

5 u' \9 ]9 Y# |* a: p! ~7 H比较快的方法吧，直接找属性VWLETTER


" S: P: ?3 o3 x1 [. v        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
$ I" t) O. c* g; z            Echo("Drawing: " & dwg.Name.ToString)
            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
+ O! v* [! ~7 ^( d$ i2 o( v                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
. a" m; V, C. q                    Echo("    " & draftingView.Name & " - " &
( e+ i! w" g- \# X                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
1 \3 G# I7 L/ G, F& I                Else
3 c2 |+ R5 }* |0 h  Z: _7 O/ g                    Echo("    " & draftingView.Name)
                End If
( p: F0 K5 ^( i- x            Next
        Next
4 V- K5 o% E4 z/ e' w& ~5 l
7 G* f- \$ s5 Q
$ Y- m. D. z! J" S    End Sub