acad hispano
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

calculo de area de un poligono ( ayuda )

Ir abajo

calculo de area de un poligono ( ayuda ) Empty calculo de area de un poligono ( ayuda )

Mensaje por kenneth6123ctm el Vie Sep 04, 2020 7:37 pm

solicito ayuda al foro para corregir rutina que realiza calculo de area de poligonos ya sean lineas o polylinea, la genera con 2 decimales. con correcion a 3 decimales. este es el codigo
lo baje de un foro que no recuerdo. en la imagen de area se realizo en cad 2019. de antemano gracias saludos al foro.

;***** AREAT: coloca el valor de area de una entidad cerrada en un texto
(defun C:AREAT ( / a2 a3 a4 a5 punto)
(setq punto (getpoint "\nPunto interno:"))
(command "_bpoly" punto "")
(command "_AREA" "_e" "_last")
(command "_REDRAWALL")
;(setq a2 (+ 2.5 (* 100 (getvar "AREA"))))
;(setq a3 (/ (* 5.0 (fix (/ a2 5))) 100))
;(setq a4 (strcat (rtos a3 2 2) " m²"))
(setq a4 (strcat (rtos (getvar "AREA") 2 2) " m²"))
(setq a5 (strcat "P=" (rtos (getvar "PERIMETER") 2 2) "m"))
;(command "_ERASE" "_last" "")
(command "_TEXT" punto "" "0" a4)
)

kenneth6123ctm

Mensajes : 1
Fecha de inscripción : 25/08/2020

Volver arriba Ir abajo

calculo de area de un poligono ( ayuda ) Empty Re: calculo de area de un poligono ( ayuda )

Mensaje por robierzo el Mar Sep 08, 2020 7:29 am

tienes que cambiar esta linea
Código:
(setq a4 (strcat (rtos (getvar "AREA") 2 2) " m²"))
por esta otra
Código:
(setq a4 (strcat (rtos (getvar "AREA") 2 3) " m²"))

Además, en mi autocad 2017 tuve que cambiar esta línea
Código:
(command "_TEXT" punto "" "0" a4)
por esta otra
Código:
(command "_TEXT" punto "" a4)
robierzo
robierzo

Mensajes : 63
Fecha de inscripción : 17/03/2016
Localización : La Coruña

http://www.selmotopografia.es

Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.