Partner erweiterte Daten

[Angelo2449]

von wo zu allen,
mit diesem Code:

 (Befehl "_text" centrotxt 0.50 0 nomeelemento ")
(setq nomeentita (entlast))
(setq oldlist (entget nomeentita))
(Eingabe der Daten (Liste -3 (Liste "" (cons 1000 nomeelemento) (cons 1000 (rtos suplorda)))))
(setq newlist (Aktualisierung der alten Liste))
(entmod newlist)

Ich glaube nicht, dass es funktioniert, kann mir jemand guten helfen?
Danke.