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

admin

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

; c  j, Y" w) b2 A9 m' W/ o' \
比较快的方法吧，直接找属性VWLETTER


" q# ]& j% q/ h: }3 O7 G0 \9 O, j        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
            Echo("Drawing: " & dwg.Name.ToString)
# ^* {5 ^# {0 O) t( O) {9 l            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
- c- v$ i7 U# _% R  h" _                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
                    Echo("    " & draftingView.Name & " - " &
                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
) a' M. X% b9 G/ r                Else
                    Echo("    " & draftingView.Name)
" z; Z# w; z; {) j                End If
" P$ _1 @# q4 Q            Next
        Next

7 K2 J; @1 _- C2 F5 k
7 o# t& {% }1 {( _4 I4 I  Q* E2 @9 q+ m8 ~    End Sub
+ D. O1 R; a$ H0 |! ?