---

Hallo Forum

Ich möchte mit einem Journal nach einem benannten Text (note) in der Zeichnung suchen und dem dann einen neuen Einfügepunkt zuweisen.

Ich hab es mahl so versucht.

For Each note As Note In theSession.Parts.Display.Notes
  If note.Name = "SF_BENEN" Then
      ......
  End If
Next

Ich finde den Text zwar, aber den Einfügepunkt kann ich nicht ändern!

Ich würde mich über jede Hilfe freuen!!!
Eine bessere Lösung zu suchen ist natürlich auch willkommen

Danke
Joe

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

---

Hallo Joe.

Das klappt eigentlich schon:

  ' Neuer einfügepunkt
  Dim origin1 As Point3d = New Point3d(800, 400, 0.0)

  If note.Name = "SF_BENEN" Then
    note.AnnotationOrigin = origin1
  End If

  ' Zum Schluss aktualisieren
  Dim markId1 As Integer
  theSession.UpdateManager.DoUpdate(markId1)

Gruß
Stefan

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

---

Läuft einwandfrei
Besten DANK!!!

Nochmahl zum Suchen, muß man wirklich alle Texte duchrattern?

Gruß
Joe

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