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

admin

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

, D4 T, u# z% l1 ~9 j9 S
  ~- h: A0 P- `1 B. l比较快的方法吧，直接找属性VWLETTER

9 J. z; [+ M3 Z" k
        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
# M$ d4 r6 p; |2 U4 o+ [            Echo("Drawing: " & dwg.Name.ToString)
* P. j2 b9 E8 z5 j            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
/ |! f' w. Q% [' \6 N                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
                    Echo("    " & draftingView.Name & " - " &
8 D) h+ T% ]# Y: }) o                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
                Else
                    Echo("    " & draftingView.Name)
/ y6 n* i. m8 b5 u: h1 z! i                End If
            Next
, O( {* A: s4 m; j1 ^        Next
& d) O3 m: h9 v$ V7 r5 `

$ o1 Y; B4 x+ @0 f. C( d  H    End Sub