Topic: cab ! area calculate

[dussla]

hello , cab
i seen your modified code about area
http://www.theswamp.org/index.php?topic=8595.msg109783#msg109783

that is really good
can you help some

in this code  , i have to select  1 times for area
i would llike to select multi objects for area at once

pls ,can you help me some

always thank you good help

[CAB]

I'm off to bed but will chack back in the morning.

You want to select a group of objects & get the TOTAL area of all selected?

[Alan Cullen]

Try this one...it may help you.....

Code: [Select]

;;---------------------------------------------------------------------------
;; AREA.LSP       
;;===========================================================================
;;DESCRIPTION: RETURN SUM OF AREAS OF SELECTED CLOSED POLYLINES
;;
;;START COMMAND........   AAT
;;
;;Select boundaries one at a time....i.e. select one ENTER
;;                                        select next ENTER
;;When finished selecting hit ENTER
;;
;;WRITTEN BY:             ALAN CULLEN           March 2005
;;
;;

(defun c:aat ()

 (princ "\n TOTAL AREAS OF SELECTED BOUNDARIES - March 2005 - Alan CULLEN")
 (princ)

 (setq ocmd (getvar "CMDECHO"))
 (setvar "CMDECHO" 0)
 (setq test 1)
 (setq aatotal 0)
 (setq no 0)
 (while test
  (prompt "\n Select string....")
  (setq ss (ssget))
  (if (/= ss nil)
   (progn
    (command "AREA" "O" ss)
    (setq aa (getvar "area"))
    (setq aatotal (+ aatotal aa))
    (setq no (+ no 1))
    (command "CHANGE" ss "" "P" "C" 4 "")
   )
   (progn
    (setq test nil)
 )))
 (setq aatxt (rtos aatotal))
 (setq notxt (rtos no 2 0))
 (princ (strcat"\n AREA TOTAL = "aatxt"      No of plines = "notxt))
 (setvar "cmdecho" ocmd)
 (princ)
)


[VovKa]

cool stuff from Alex Rivilis
http://www.maestrogroup.com.ua/support/GeomProps.zip
see the screenshot