---

Hallo Leute,

ich versuche mittels vb.net einer note mitzuteilen, dass sie den Wert eines Part Attributes nimmt.
Meine Part Property heisst "TestProperty".
Ich dachte das geht so:

Code:

---

Dim Texts() As String = Nothing
Dim SingleNote As NXOpen.Annotations.Note = Nothing

For Each obj As DisplayableObject In s.Parts.Display.Views.WorkView.AskVisibleObjects
    If TypeOf (obj) Is NXOpen.Annotations.Note Then
        SingleNote = CType(obj, NXOpen.Annotations.Note)
' Lesen des Note Textes geht:
        Texts = SingleNote.GetText
        Msgbox Texts(0)
' Setzen eines einfachen Strings auch:
        Texts(0) = "Hello World!"
        SingleNote.setText(Texts)
' Setzen einer Part Atttribute Reference allerdings führt zu einer Fehlermeldung:
        Texts(0) = "<WRef1*0@TestProperty>"
        SingleNote.setText(Texts)
    endif
next

' Habs auch damit probiert, ebenfalls erfolglos:
SingleNote.SetReferenceAttribute("Text", text(0), Update.Option.Now)

---

Wo liegt mein Denkfehler?. Liegt es an der Methode (SetReferenceAttribute) oder am String ("Text"), den ich zu setzen versuche?
Habe vielfach recherchiert, aber keine Lösung gefunden. Hat jemand von Euch eine Idee?

Vielen Dank und Liebe Grüsse

Jörg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Jörg,

Einen Text zu benennen habe ich so gelöst:

Code:

---

private void TextBlockAbsetzen(Point3d Point, String TextName, string[] TextBlock, double SchriftGr)
        {
            DraftingNoteBuilder builder = null;
            SimpleDraftingAid annotation = null;
            builder = workPart.Annotations.CreateDraftingNoteBuilder(annotation);
            builder.Text.TextBlock.SetText(TextBlock);

            builder.Origin.Anchor = OriginBuilder.AlignmentPosition.BottomLeft;
            builder.Origin.Origin.SetValue(null, null, Point);
            builder.Style.LetteringStyle.GeneralTextSize = SchriftGr;
            NXObject obj2 = builder.Commit();
            // die Text.Eigenschaft benennen
            obj2.SetName(TextName);

            builder.Destroy();
        }

---

Vielleicht kannst du was damit anfangen.

------------------
Gruß Robert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Robert,

zumindest hat mich Dein Beitrag darauf gebracht das editieren der Note mittels Journal aufzuzeichnen.
Zunächst geschockt von den 100 Zeilen Journalaufzeichnung habe ich das ganze ordentlich zusammenkürzen können.

Hier meine Lösung:

Code:

---

    Public Shared Sub SetNoteText(ByVal DrawingPart As Part, ByVal SingleNote As Note, ByVal text As String)
        Dim draftingNoteBuilder1 As Annotations.DraftingNoteBuilder
        draftingNoteBuilder1 = DrawingPart.Annotations.CreateDraftingNoteBuilder(SingleNote)
        Dim text1(0) As String
        text1(0) = text
        draftingNoteBuilder1.Text.TextBlock.SetText(text1)
        Dim nXObject1 As NXObject
        nXObject1 = draftingNoteBuilder1.Commit()
        draftingNoteBuilder1.Destroy()
    End Sub

---

Jetzt kann eben text reiner ASCII Text sein oder auch eine Reference enthalten wie z.B. WRef1*0@EinAttribute>
Vielleicht hilft Euch das ja sonst weiter.

Gruss und bis ein ander mal

Jörg

[Diese Nachricht wurde von jevertz am 14. Sep. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP