Cómo calcular el área de una casa rectangular (basándose en las longitudes de los lados) usando el lenguaje de programación autolisp
¿El cálculo del área en CAD se basa en ingresar los valores de largo y ancho de la casa, o es solo una selección de rectángulo?
Si se calcula en función de la longitud de entrada:
(defun c: area2()
(setq dist1(getdist "Ingrese la longitud del rectángulo: ") )
(setq dist2(getdist "Ingrese el ancho del rectángulo:"))
(setq area(* dist1 dist2))
(princ area)
)
Si se basa en seleccionar un rectángulo en el dibujo CAD:
(defun c:area1()
(setq en( car(entsel)))
( comando "area" "o" en )
(setq area (getvar "area"))
(área principal )
)
Depende de tu elección. .....