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

admin

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

: Z! C) A3 E( t/ b$ ]# C, |
比较快的方法吧，直接找属性VWLETTER
6 P' H2 G+ }( t; u3 }6 f5 u8 ^

8 E) x# X! I& x  v) j+ u        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
) ^) n4 q9 `& H+ f            Echo("Drawing: " & dwg.Name.ToString)
            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
# z& b9 }% |) Q$ e                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
                    Echo("    " & draftingView.Name & " - " &
8 O. g* g/ t+ p1 m# A4 b- I4 F7 X                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
                Else
& A; n5 t& K" t7 B, J% e                    Echo("    " & draftingView.Name)
                End If
3 x/ ~* b7 [% o4 b1 l" T7 a3 {: R) v            Next
        Next
) s! F6 e& w+ F
; o; Z! d, n9 g3 X' Y$ J
    End Sub