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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
$ F$ R* w* p' X, }; H" P  `/ m

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


& D' o0 |2 P! z6 k        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
            Echo("Drawing: " & dwg.Name.ToString)
            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
7 t! _) P$ Z: e                    Echo("    " & draftingView.Name & " - " &
                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
3 u; ?' T9 z' n( X7 y                Else
% v- {7 Q- T2 u  _1 K                    Echo("    " & draftingView.Name)
+ t# s5 Q& j# b4 I1 N                End If
- d( t( \3 Z3 R6 J: y! m            Next
        Next


    End Sub

+ C4 r: x, Y( ^& R  e