coordenadas en autolisp

Bueno como ya sabes la rutina se carga con el comando APPLOAD, luego de que se cargue la rutina, en la linea de comando de AutoCAD saldra un mensaje que dira: Nuevo comando COOR definido..., por lo tanto despues que cargues la rutina debes teclear COOR, recuerda que debes copiar todo esto:

(defun punto (/ )
(setq pm (getpoint "\nSeleccione un punto en la pantalla: "))
(setq ang 0)
(setq pm2 (polar pm (+ ang (/ PI 2)) 20))
(setq x (car pm))
(setq y (cadr pm))
(setq coordenada (strcat (rtos x 2 3) "," (rtos y 2 3)))
(command "leader" pm pm2 "a" coordenada "")
)

(defun c:coor (/ )
(setvar "cmdecho" 0)
(punto)
(setvar "cmdecho" 1)(prin1)
)

(prompt "\nNuevo comando COOR definido...")

Espero que te sirva...

Cualquier cosa solo pideme una aclaracion...