---

Hallo Profis,

muß aus einer Zeichnung mehrere Texte auslesen, diese in Variablen zwischenspeichern und diese Texte anschließend an neue Positionen
in der Zeichnung platzieren. Die auszulesenden Texte stehen immer an gleichen XY_Koordinaten.

Komme irgendwie mit der INQ-Abfrage für die Texte nicht so recht weiter.

Bin für jede Hilfe dankbar !

Gruß CADMike 

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

---

hallo,

DEFINE AB_TXT_LESEN
local txt
local p_alt
local p_neu

let p_alt (pnt_xy 10 10)
read pnt "neue Position antippen oder so was" p_neu
inq_elem p_alt
if (inq 403 = TEXT)
  let txt (inq 902)
  TEXT txt    (* Text wird begonnen, Text übergeben *)
  loop  (* wenn immer nur ein einzeiliger Text da ist, kannst Du die Schleife Loop - End_loop weglassen *)
    let txt (inq 903)
  exit_if  (inq 903 = "END-OF-FILE")
    txt  (*eventuell weitere Übergabe eines weiteren Textes *)
  end_loop
  p_neu end (* Textkommando wird fertiggestellt *)
end_if
END_DEFINE

so nicht ganz fertig, aber ein Gerüst das sich ausbauen lässt. Vielleicht könntest Du den Text mit MODIFY auch verschieben, dann hast Du den gleichen Textstil. Ansonsten kannst Du ja die Einstellungen mit GET_PROPERTIES abfragen und somit automatisch setzten.

ME10-Makro-Grüsse

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

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

---

Hallo Herr Baumgartner,

genau das warŽs INQ 902 !!!
Besten Dank, Unities sind unterwegs.

Schöne Ostertage

Gruß CADMike

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