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

admin

其实主要是Note的类型的定义问题，参考代码如下：
/ z* d' S  G, K

) r9 R' ]6 n4 x4 D7 ?6 i; D, m Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
' [2 a0 @; d( `+ I: z$ R        Dim mask(0) As Selection.MaskTriple
% _' C1 l5 a" G$ R$ n6 ?        With mask(0)
3 ~# e+ m! Z! K; Q            .Type = UFConstants.UF_drafting_entity_type
! c( t. c, {  J$ _            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing
+ E1 y! Y' e# u. q* p) X
, t9 ?  C! s, j( e* \        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
5 W, N( w) s$ a. `# {! e) l            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
0 H! v: S4 o7 H! ^. C5 d            False, False, mask, theObjects)
% H- o2 g( D# a: E
3 z7 f1 G5 J5 f' a( i. Z/ e        Dim theNotes(theObjects.Length - 1) As Annotations.Note
% a/ L  f% r6 A' M  T; _9 R" K, V0 f        For ii As Integer = 0 To theObjects.Length - 1
4 [2 \# W0 y! c# ^' }* n% G8 |            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
6 N$ \) T% y9 |        Next
3 T; M) q+ v7 Q5 ]/ x( j% S/ k8 L
1 s5 j; I& z* P) p1 Z        Return theNotes

    End Function