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

admin

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

: ]6 N$ _: j5 C1 F. y
4 y! w  e6 X  j, z; D% a比较快的方法吧，直接找属性VWLETTER
8 f! N4 y" w* V

        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
            Echo("Drawing: " & dwg.Name.ToString)
$ H$ Y5 W5 o/ n2 j* i( b. G: R& u            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
                    Echo("    " & draftingView.Name & " - " &
                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
* w% j0 p, D1 ]/ p7 K- b& e                Else
                    Echo("    " & draftingView.Name)
% o, m$ t, G4 V3 U9 q7 A                End If
4 n' Y& `4 `) w- t/ @' r# V            Next
9 `( r) n  U) A7 i        Next
& n% ~7 t* q1 Q! _7 f
2 G" Z+ R$ C' X1 u5 S& R) J( B2 _, i
    End Sub

2 |; `6 {* G: h5 W- G- O4 L