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

admin

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

1 ]8 J& w; c( W# g9 V
1 Q, S* ~1 Q3 \% z* I! _) h& M! E0 i5 e Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
1 m- O/ b) E, u( J/ N1 r4 \        Dim mask(0) As Selection.MaskTriple
        With mask(0)
) [4 h  E# v/ L- s7 g9 o2 T4 B0 u            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
! T7 B7 ~8 L7 x5 p- `            .SolidBodySubtype = 0
        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing

3 ?; ^. o* L) x) n        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
& a& l/ {: n) w9 Z! X3 H& ?& n            Selection.SelectionScope.AnyInAssembly, _
& @  F5 C5 J  P" D6 e& E            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)

        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
; Q) F0 y& i; N( {  U. O            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
$ {5 z" I; J( m2 X# B% m        Next

+ U6 I+ h7 f" f& \7 k4 w" m        Return theNotes

    End Function
% p- _  L  Z! [3 u
- `: m9 x9 @7 G2 ]9 v