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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
* S. W" \; b+ o' |
; W/ e" l+ l3 O1 k
. m  P" p  q  z5 c+ D比较快的方法吧，直接找属性VWLETTER


        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
            Echo("Drawing: " & dwg.Name.ToString)
# s/ d- [2 j4 f5 J4 C$ S+ x            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
; ^, z7 Q  @, U- V* F: w                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
* P( s) G7 n; k) b8 B                    Echo("    " & draftingView.Name & " - " &
                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
4 G# H( f. p) L! }* e) A" }3 R: r                Else
" l7 m- t* ?5 U5 H                    Echo("    " & draftingView.Name)
                End If
4 H0 @: _) w* }- ]* j& l            Next
        Next

/ k8 D& A, {0 s
    End Sub