Una rutina para hacer cuadrados dando la superficie..y un punto de
inserción, sirve para la etapa previa de diseño en autocad, cuando se
hacen los tanteos de superficies de locales en el terreno, además
la rutina puede ser modificada para que dibuje cualquier tipo de rectangulo
modificando su funcion "polar"..
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;RUTINA "CUADAREA" PARA CREAR CUADRADOS A PARTIR DE UN PUNTO BASE ;;;;;;;Y DANDO EL AREA
;PARA EL CASO DE TANTEOS DE SUPERFICIES DE LOCALES Y EDIFICIOS EN PRIMERAS ETAPAS
;DE DISEÑO;;;;;;;;;;;;;;;;;;;
(DEFUN C:CUADAREA(/ PT1 AREA PT2)
(SETQ PT1(GETPOINT "\nDAR PUNTO DE INSERCION: "))
(SETQ AREA(GETREAL "\nDAR EL AREA DEL CUADRADO,INTRODUCIR UN Nº: "))
(SETQ A(SQRT AREA))
(SETQ D(SQRT(* 2 A A)))
(SETQ PT2 (POLAR PT1 (/ PI 4)D))
(COMMAND "_RECTANG" PT1 PT2)
)
(PROMPT"\n© AUTOR:VICTOR ADOLFO BRACAMONTE..")

Archivos Adjuntos

CUADAREA.zip (420 Bytes, 39 visitas)