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

admin

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


8 K! I4 h8 y' Z1 L比较快的方法吧，直接找属性VWLETTER


        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
$ J) y! \1 |8 ]7 I" ~, h            Echo("Drawing: " & dwg.Name.ToString)
4 ^: Z6 x6 P+ f+ e9 \            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
6 H4 x9 }( S! e                    Echo("    " & draftingView.Name & " - " &
                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
+ p+ b9 T) D$ t                Else
                    Echo("    " & draftingView.Name)
                End If
: s- ]2 L7 A$ \6 a$ u& h3 D/ ?' V            Next
5 ?6 x; E& M6 I/ W4 |- `7 ~- e0 s        Next

1 @2 i% E6 G- O" Z- z+ q
    End Sub

1 Y/ L1 B+ ^9 ?, e( B