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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
, @/ M. ^$ u- @. Q5 C. M; d. u

: _  _0 M+ g9 i5 M" C, |! O比较快的方法吧，直接找属性VWLETTER
4 @: P* @9 [: s6 h) U3 K
4 V: J9 `) r& @! P
, Q$ {1 v7 Y7 F1 ^7 M4 l        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
+ U7 I9 r% O$ W: y$ z            Echo("Drawing: " & dwg.Name.ToString)
8 |8 i5 _) ?4 x' w; p* U            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
" \) C$ C: h( t$ m                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
% f, e$ B- G1 G+ _; W                    Echo("    " & draftingView.Name & " - " &
' h3 O5 k6 d9 _2 |" z* v( J7 M6 @                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
                Else
3 u) h, U8 |0 {6 W8 P; q                    Echo("    " & draftingView.Name)
                End If
            Next
        Next


; y. b! b; n. Z0 g) B0 W    End Sub
9 D4 |: p& _' _
' I& R* w' n# G: X