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

admin

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

3 @. P1 H+ D; a' B8 [6 b: N: J% M
, P$ d2 n" u' E. b" b/ Q! S5 W( Y- r Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
6 j% O/ V5 t; W/ s        Dim mask(0) As Selection.MaskTriple
# ^' N) \* ^  V        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
. G* m6 s; \8 h0 o! s, W            .Subtype = UFConstants.UF_draft_note_subtype
2 s! v4 z7 R; q* g/ k$ I            .SolidBodySubtype = 0
% [, S6 P4 ?" [% M1 M& E3 x        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing

; c7 o$ W- O' a+ N1 u  @; T8 q        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
, \  }+ ^4 K, J! {1 m2 W- {            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
% q4 \, {  a+ f. I" e! `
( c" R0 a" W' i7 X; G4 h        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
8 y8 B7 s$ M) Z4 ^/ X            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
- t/ |% c1 n- ?, t* k) @1 V4 b        Next

        Return theNotes
5 W) e) q4 U4 K! E
7 Q; H% D) w. F9 k) `# t    End Function
7 L+ H: q  v0 a+ H