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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
. J2 s" b6 O, c  L

5 R  [" e% v5 J9 `# @比较快的方法吧，直接找属性VWLETTER


  b( V, e3 ]1 J4 l" ^# `/ i* t2 x        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
            Echo("Drawing: " & dwg.Name.ToString)
6 v* J7 l' a8 f- z* Y" |1 t( k$ \            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
. A2 r: i+ q/ r* N. D4 s7 _9 V: W" f3 C                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
                    Echo("    " & draftingView.Name & " - " &
7 }. Y' V6 q7 Q  j/ @. n& {# s6 _                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
                Else
                    Echo("    " & draftingView.Name)
2 b, u$ p) J6 B4 ^6 H$ `                End If
5 |& n5 `) J# I/ x. n  f            Next
& Q& a" Q* f/ |. m0 u, l* s        Next


    End Sub

7 p% ?! E7 K) W" @1 r