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

admin

其实主要是Note的类型的定义问题，参考代码如下：

" c3 [; A1 Z* N" _0 s2 q/ {/ h
+ i6 G/ d4 S: n  W- I Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
; a) J6 O7 P- b( y( R" O        Dim mask(0) As Selection.MaskTriple
$ ], F0 t5 U+ q+ p3 p        With mask(0)
2 }+ z4 g# R! m% R/ E( ]            .Type = UFConstants.UF_drafting_entity_type
* a' {9 t: @: Q/ V) b7 [7 E- P            .Subtype = UFConstants.UF_draft_note_subtype
- K8 Q  x9 J3 S8 q' m$ }            .SolidBodySubtype = 0
        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing

7 O! _4 |5 @" R3 s        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
( @+ e. G# L/ V4 i# j            False, False, mask, theObjects)
6 t5 z) f6 ~- A* d$ z
' C5 U# P4 g6 G  d6 \% V        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next

4 c9 J: C2 {. o, d+ Z* K        Return theNotes
9 K+ G* K1 [4 k$ _8 I* y* c
    End Function