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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
1 O+ }9 y0 N' o" N! K

4 [  Z3 {/ K- I* `8 ?比较快的方法吧，直接找属性VWLETTER

6 {$ S$ T% q! I% ?6 r) r+ J
( Q& k1 F. y- r" k. e6 p! e        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
! h5 O' b/ S! ]            Echo("Drawing: " & dwg.Name.ToString)
            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
' C8 L$ s. e- n& i1 h% V4 t6 ^                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
1 E8 l' a! d3 t9 w' x% {5 _                    Echo("    " & draftingView.Name & " - " &
                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
                Else
2 u; \3 ?# R2 A( c- X                    Echo("    " & draftingView.Name)
* |" v! Y$ {) w/ a                End If
            Next
        Next
, t9 p, L; A- V

  J) V( S& ~9 I% ?" K    End Sub