;********************************************************************
;* Comando: pRayo
;* Comentarios: este comando se usa para definir el area de
;* proteccion del pararrayos
;********************************************************************

(defun c:pRayo ( / voltajeEquipo voltajePararrayos
		   pendienteFrenteDeOnda radio punto)
 (setq voltajeEquipo (getreal "\nTension maxima admisible del equipo [kv] : "))
 (setq voltajePararrayos (getreal "\nTension de maxima descarga del pararrayos [kv] : "))
 (setq pendienteFrenteDeOnda (getreal "\nPendiente del frente de onda [kv us]: "))
 (setq radio (* (/ (- voltajeEquipo voltajePararrayos)
		   (* 2 pendienteFrenteDeOnda))
		 300 ))
 (if (>= radio 0)
   (progn
     (setq punto (getpoint "\nLocalizacion del pararrayos :"))
     (command "CIRCLE" punto radio )
     (if (equal (getvar "HPNAME") "") (setvar "HPNAME" "ANSI31"))
     (command "HATCH" "" "" "" (entlast) ""))
   (princ "\nEl raido deber ser mayor que 0. ")))