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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
/ n3 J) X  S! h' o4 C
' z4 a* |6 @4 m8 F0 X2 s& Z  m
比较快的方法吧，直接找属性VWLETTER

3 x9 m8 J3 s3 m0 x# E' g
        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
' o( J: ^% v. N! O5 u            Echo("Drawing: " & dwg.Name.ToString)
# s' X! z! G. T2 I, Y4 A7 L            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
& c. ^1 H- j" f, F8 m; j0 g                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
                    Echo("    " & draftingView.Name & " - " &
$ [& E5 o! k, y2 g5 U% e$ {3 b2 d' E                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
! f7 G+ D2 Q4 l" o4 p                Else
                    Echo("    " & draftingView.Name)
  i: X% g3 ~/ ]                End If
            Next
4 E6 ~7 H' j7 ^; [9 T0 {        Next
8 q- |& ?. `9 m  H

/ X; {: u6 d( y' J& E    End Sub
7 P/ t9 u! ^( w$ N+ n
, O- q6 Y; a1 `  ]1 R1 m3 r