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

admin

NX二次开发源码分享： 快速获取显示部件下所有的视图
& J: b0 [. m) }6 S0 n7 U  O' U4 n3 P

比较快的方法吧，直接找属性VWLETTER
' ?# G4 M0 H+ g! G

3 d% ]: j& H/ f; z: _3 [        For Each dwg As Drawings.DrawingSheet In theSession.Parts.Display.DrawingSheets
. |) Q+ D3 g" T, w) {5 U, u& L            Echo("Drawing: " & dwg.Name.ToString)
  G  G! C$ H# S: e" w8 h( R            For Each draftingView As Drawings.DraftingView In dwg.GetDraftingViews()
+ e' h( J! k1 H7 {2 J                If draftingView.HasUserAttribute("VWLETTER", NXObject.AttributeType.String, -1) Then
, N, _" F! z+ Y8 M                    Echo("    " & draftingView.Name & " - " &
                         draftingView.GetUserAttributeAsString("VWLETTER", NXObject.AttributeType.String, -1))
                Else
                    Echo("    " & draftingView.Name)
0 m! b, ], I4 F+ X9 T; m- M                End If
            Next
+ Z0 j' `! h9 G- W! x& r        Next

- t+ b  W, c- p: j
& i5 b9 M* v4 g0 `    End Sub

# B9 ?, m% ~3 `  x& x