AutoCad - agregar un texto desde autolisp

Hola a todos
Necesito una rutina en autolisp para agragar un texto a mi dibujo dandole coordenadsas .
el texto puede ser por ejemplo fecha, nombre y codigo
mi correo es [email protected]

Hola...

Haber si entiendo, tu quieres una rutina en AutoLISP que te pregunte por los datos de fecha, nombre y codigo y luego seleccionas un punto en la pantalla y te los inserta, bueno si es asi te pondre el codigo aca:

(defun c:datos ()
(setq fecha (getstring T "\nIngrese una fecha: "))
(setq nombre (getstring T "\nIngrese un nombre: "))
(setq codigo (getstring T "\nIngrese codigo: "))
(setq altext (getreal "\nAltura de texto: "))
(setq punto (getpoint "\nIngrese punto de insercion: "))
(command "_text" punto altext 0 fecha)
(command "_text"
(list (car punto) (- (cadr punto) (* altext 1.5)))
altext
0
nombre
)
(command "_text"
(list (car punto) (- (cadr punto) (* altext 3.0)))
altext
0
codigo
)
)

El codigo lo copias y lo pegas en el block de notas y luego lo guardas con la extension *.lsp y finalmente lo cargas con el comando APPLOAD...

Espero te sirva...

Un saludo de SpeedCAD... :-)
NO OLVIDES VISITAR MI PAGINA...