---

hi

ich möchte einen text der in der höhe +50 steht auf höhe 0 kopieren. brauche ich dazu auch die punktkoordinaten in der höhe 50?
geht das mit dem befehl    text.copy ?

thx

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

---

Hi,

wenn Du einen Text kopieren möchtest, dann kann im Zuge des Kopierens mal nichts koordinatenartiges mitgegeben werden. Also muß dies mit 2 Schritten erfolgen, erst kopieren, dann den kopierten Text schieben:

Code:

---

Dim tNewText as AcadText
Set tNewText = tOldText.Copy  'tOldText ist Dein bestehender Text

Dim tPntFrom(2) as Double
Dim tPntTo(2) as Double:tPntTo(2) = -50.0
Call tNewText.Move(tPntFrom, tPntTo)

---

- alfred -

------------------
www.hollaus.at