Obtaining the area of an (closed)polyline

Hello again,

I want to write a routine to give points in rooms or closed areas (with the
boundary command), then determine the area and place texts with roomnumbers
and area's in it.

This shouldn't be to difficult, but before I start inventing the wheel
here, does any already know of the existense of something like this????
Or otherwise have a suggestion on how te obtain the area of a close polyline
wich is created by the boundary command for me?

Thanx!
MJ

 

Hi
Once you create the bpoly, you can (immediately) run a
(command "area" "object" "last")
this command retrieves the area for the last entity created (the bpoly).
The *system variable* AREA stores the results of the last *command* AREA
used.
You can use it to store the area into a variable:
(setq last_bpoly_area (getvar "area"))

I hope this help you. Greetings
(Sorry, my english is very poor...)

 

Thanx Javier! Exactly what i was looking for.
P.S. Nothing wrong with you English. No accent either! Hihi!

 

http://www.draftteam.com - look for AREATAG.

 

Heres an old one, dunno if it still works, but looks like it should.

(defun c:tagarea ()
(setvar "osmode" 512)
(setq atx (getpoint "\nPick any point on boundary... "))
(command "area" "e" atx)
(setq str3 (strcat (rtos (/(getvar "area")(* 144 43560.0)) 2 3) " Ac.\\P" (rtos (/ (getvar "area") 144.0) 2 2) " SQ.FT."))
(setq at2 (getpoint "\nLocation for text... "))
(command "Mtext" at2 "R" "0" "J" "MC" "W" "0" str3 "")
(setvar "osmode" 0)
(command "cmdecho" 1)
(princ))

 

I don't know enough to know if this is a good article, but I use listing 3 from it and it works well for my purposes
http://cadence.advanstar.com/2001/0501/toolbox0501.html