AUTOLISP: programita coordenadas X e Y.

Hola...

Bueno aqui realize una rutina simple que te entrega la coordenada x e y de un punto seleecionado en la pantalla, te lo pongo aca ya que es cortito, cualquiecosa mandame un email a eliasuno@hotmail.com...

Espero te sirva... copialo y pegalo en el bloq que notas y guardalo con el monbre que quiereas pero con extension *.lsp...

(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...")

Un saludo de SpeedCAD... :-)

Hola...

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...

Un saludo de SpeedCAD... :-)