Total Area Autocad Lisp -

Calculating Total Area of Multiple Objects in AutoCAD using Lisp

Even the best Lisp routines can fail. Here are the top 5 errors and how to fix them.

;; Alternative: Area of polylines only (with option for multiple selections) (defun C:TAP ( / ss total) (setq ss (ssget '((0 . "LWPOLYLINE,POLYLINE")))) (setq total 0.0) (if ss (repeat (setq i (sslength ss)) (setq total (+ total (vla-get-area (vlax-ename->vla-object (ssname ss (setq i (1- i))))))) ) ) (princ (strcat "\nTotal Polyline Area = " (rtos total 2 2))) (princ) ) total area autocad lisp

Most total area LISPs follow a similar logic structure to process multiple selections: Lisp to calculate area of all closed polylines selected 02-Apr-2019 — Calculating Total Area of Multiple Objects in AutoCAD

(defun c:TOTALAREA (/ ss i ent area total) (setq total 0) (princ "\nSelect closed objects (Polylines, Circles, Hatches): ") (if (setq ss (ssget '((0 . "LWPOLYLINE,POLYLINE,CIRCLE,HATCH")))) (progn (repeat (setq i (sslength ss)) (setq ent (ssname ss (setq i (1- i)))) (command "._area" "_O" ent) (setq total (+ total (getvar "AREA"))) ) (princ (strcat "\nTotal Area: " (rtos total 2 2))) ) (princ "\nNo valid objects selected.") ) (princ) ) Use code with caution. Copied to clipboard How to Use the LISP "LWPOLYLINE,POLYLINE")))) (setq total 0