;;___________________________ESEDI__________________________;;;

;;;___________________http://www.esedi.net___________________;;;

;;;___________________015 nuve puntazo.lsp______;;;

;;;_______________________Versión 1.0________________________;;;

;;;________________________19/09/2006________________________;;;

;;;Comando para dibujar arandelas rellenas de diametro interior cero e indicando centro y radio.;;;

(defun C:puntazo ( / pto1 pto2 )
	(setq pto1 (getpoint "Indica centro de puntazo: "))
  	(setq pto2 (getpoint "Indica 2º pto del radio"))
	(setq dist1 (* (distance pto1 pto2) 2))
  	(command "_donut" "0" dist1 pto1 )	; la distancia es doble e inserta una primera arandela en el pto de inicio
	(princ) ;para que no devuelva nil
)

(prompt "\n Nuevo comando puntazo definido")		;// Indico que he cargado la rutina //

;// Se deberia hacer una macro de boton que cargue la rutina, ejecute una vez el comando //