;;;___________________________ESEDI__________________________;;;

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

;;;____________005 SINTESIS CALCULO ESCALA DETALLES.LSP______;;;

;;;_______________________Versión 1.1________________________;;;

;;;________________________30/08/2006________________________;;;

;;;Comando para calcular la ESCALA de un DETALLE de un dibujo en EM.;;;

;; FORMULA DE VARIAS ESCALAS
;; Procedimiento de calculo:Hago un dist sobre el dibujo a escala del detalle debo saber a priori el valor
;; junto con el valor de la cota obtengo la proporción
;; Al introducir la escala general del cajetin del modelo obtengo la ESCALA DE DETALLE
;; PRETENDO ARREGLAR LA FORMULA PARA QUE INTRUDUCIENDO UNA X EN EL PARAMETRO DESCONOCIDO ME EJECUTE LA FORMULASINTETIZADA Y DEVUELVA SU VALOR

(defun C:desc ( )								;;// NO Defino las variables como locales//

  	(setq valordist (getdist "/n Indica la distancia: "))           	;; con getdist se puede dar el valor numericamente o graficamente// Uso/n como retorno de carro en el texto //
	(setq valorcota (getreal "/n Indica valor de cota: ")) 
	(setq egeneral 	(getreal "/n Indica valor de escala general de cajetín: "))
	(setq edetalle  (getreal "/n Indica valor de escala de detalle: "))

  	(if (= edetalle 0)
  		(progn (setq edetalle (/ (* valorcota egeneral) valordist))     ;;// formula: la escala detalle =  valor de cota * escalaformato / valor de distancia;;
		(prompt "La escala de detalle =")(print edetalle)(princ)	
		)
	 (if (= valordist 0) ;;en caso contrario si
  
  		(progn (setq valordist (/ (* valorcota egeneral) edetalle))     ;;// formula: valor de distancia =  valor de cota * escalaformato / la escala detalle;;
		(prompt "La distancia en el detalle =")(print valordist)(princ)	
		)
	  (if (= valorcota 0) ;;en caso contrario si
  
  		(progn (setq valorcota (/ (* valordist edetalle) egeneral))	;;// formula: valor de cota  =  valor de distancia *  la escala detalle / escalaformato  ;;
		(prompt "El valor de la cota debe ser =")(print valorcota)(princ)	
		)
				;;en caso contrario

  		(progn (setq egeneral (/ (* valordist edetalle) valorcota))     ;;// formula: escalaformato  =  valor de distancia *  la escala detalle / valor de cota  ;;
		(prompt "El valor de escala general =")(print egeneral)(princ)	
		)
	    )))			;;cierro los 3condicionales y 4funciones  
)

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

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