Hola tengo aqui una rutina para insertar un bloque con atributos, la finalidad es seleccionar una polilinea con elevación, insertar un bloque con atributos (el atributo es la elevación de la polilínea) pero me indica que hay un error, alguien por aqui con experiencia en el Autolisp podría ayudarme a resolver este dilema que tengo...



(defun eplat (/ ITEM1 ITEM2 xval2 yval2)
(setq precision (getvar "precisa"))
(setvar "precisa" 2)
(setq ITEM1 (getpoint "\nSeleccione Plataforma: "))
(setq ztext (rtos (caddr ITEM1)))
(setq ITEM2 (getpoint "\nIndique Ubicación: "))
(setq xval2 (car ITEM2))
(setq yval2 (cadr ITEM2))
(setq txtloc (list xval2 yval2))
(setvar ATTREQ 1)
(setvar ATTDIA 0)
(command "-insert" "eplat" txtloc "1" "1" "0" ztext)
(setvar ATTDIA 1)
(setvar "precisa" precision)
)