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

admin

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


比较快的方法吧，直接找属性VWLETTER


        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
: f& b+ @  T* }# l9 m            Echo("Drawing: " & dwg.Name.ToString)
6 M8 F: _. S9 s& r2 h2 `4 F            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
, X/ i% }3 Q& ?" w( q( H9 A2 n                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
4 L7 r! B$ b' @6 I; q( A7 \                    Echo("    " & draftingView.Name & " - " &
2 v' x2 r5 M6 P2 g                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
9 S+ S+ e' W1 d9 w2 K                Else
                    Echo("    " & draftingView.Name)
$ x( n  ]& u3 _! `. u! F7 Y5 a4 K                End If
1 w; i- R# ^0 s. i            Next
4 b+ R) _+ n. v        Next
6 M2 w* X2 G7 V. u& ?  v: @
# n1 `: Y9 [" i$ W4 D& t: v* d
    End Sub
3 `3 W4 Z' Y1 e& }1 a7 v