NX二次开发源码分享：使用.net 选择注释Note功能

admin

* Z! h  }- ^2 E  X2 W
' c" Q* b: v- A1 N其实主要是Note的类型的定义问题，参考代码如下：
! `( q/ Z$ y0 ~: D4 w* @

( A* G* j( M" n9 a Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
9 T/ d& O, X8 Q        Dim mask(0) As Selection.MaskTriple
        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
6 t; ^9 d# ^# l( V            .SolidBodySubtype = 0
7 Z$ T1 s% X& j7 s        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing

        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
0 B+ D; z" l8 R6 Z            False, False, mask, theObjects)
, @: e5 X  n* c0 t* W
# E! z# y' M. [        Dim theNotes(theObjects.Length - 1) As Annotations.Note
1 E; d' r1 v, O( C9 d- v        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
* f- F3 E) ^" K# g# O7 G$ G& M        Next

" E$ Y, y7 U  Y: ]+ B        Return theNotes

    End Function
. S  f9 `- l. W  v- z7 ^: ]4 I