AutoCad - getpoint a texto

Buenas, intento hacer un archivo lisp, quiero que me haga un cuadro de texto en el que me introduzca valores de coordenadas (getpoint) en un texto, esta complicado si alguien me puede ayudar...

saludos

saludos, tengo algo que te puede sevir

;; con esto obtienes el punto
(setq pnto (getpoint "\nEspcifique Punto de Lindero: "))
(setq pntox (car pnto))
(setq pntoy (car (cdr pnto)))

;; configuras para 3 decimales
(setq imx (rtos pntox 2 3))
(setq imy (rtos pntoy 2 3))

;; con esto lo mandas a ubicar las coordendas , puedes jugar con loa valores enteros para colocar los textos donde desees, de hecho puedes hacer un getpoint para colocar lo textos donde tu quieras

(command "_text" (list (+ ptox 7) (- ptoy ubi)) "0" imY)
(command "_text" (list (+ ptox 22) (- ptoy ubi)) "0" imx)

saludos, espero te sirva

buff lo que me queda por aprender todabia, jeje. muchas gracias.

Buenas de nuevo, medio comprendido lo del CAR, pero se me plantea una dudita mas, para liberar la informacion de la altura (x y z)?
Muchas gracias, si consigo hacer algo decente te lo envio.

Saludos desde Bilbao

Para capturar el valor x (car (x y z))
Para capturar el valor y (cadr (x y z))
Para capturar el valor z (caddr (x y z))
Saludos
Rafael.