(defun C:TOTALAREA (/ ss total-area obj-list obj area obj-name cnt *error* old-cmdcho old-dimzin)
This simple routine can save you hours of work. Its entire logic is based on iterating through a selection set ( ssget ) and summing a property extracted via Visual LISP ( vlax-get-property ). You can easily adapt this code to sum lengths or other properties by changing the property name from Area .
Advanced variations of the Total Area LISP can prompt the user to click a point on the screen to insert an MTEXT entity containing the total area value automatically. This eliminates manual typing and prevents transcription errors on your final plot cleanups. Using Fields for Dynamic Area Calculations total area autocad lisp
Open your .lsp file in Notepad and replace the line (setq total (+ total area)) with one of the following variations:
This LISP routine provides a complete solution for calculating total area from multiple selected objects in AutoCAD. (defun C:TOTALAREA (/ ss total-area obj-list obj area
Mastering the Total Area AutoCAD LISP: The Ultimate Productivity Guide
(defun c:totalarea (/ ss i ent area totalarea) (setq ss (ssget "X" '((0 . "POLYGON, POLYLINE, CIRCLE, ARC")))) (if ss (progn (setq totalarea 0) (setq i 0) (repeat (setq i (sslength ss)) (setq ent (ssname ss i)) (cond ((= (cdr (assoc 0 (entget ent))) "POLYLINE") (setq area (vlax-curve-get-area ent))) ((= (cdr (assoc 0 (entget ent))) "POLYGON") (setq area (cdr (assoc 41 (entget ent))))) ((= (cdr (assoc 0 (entget ent))) "CIRCLE") (setq area (* pi (expt (cdr (assoc 40 (entget ent))) 2)))) ((= (cdr (assoc 0 (entget ent))) "ARC") (setq area (* pi (expt (cdr (assoc 40 (entget ent))) 2) (/ (cdr (assoc 42 (entget ent))) 360))) ) (setq totalarea (+ totalarea area)) (setq i (1+ i)) ) (princ (strcat "\nTotal Area: " (rtos totalarea 2 2) " square units")) ) (princ "\nNo objects selected.") ) (princ) ) Advanced variations of the Total Area LISP can
In AutoCAD, calculating the total area of multiple objects—like polylines, circles, or regions—can be tedious if done manually using the standard AREA command. AutoLISP routines automate this by summing the areas of all selected objects and displaying the result instantly.
Using a LISP routine is straightforward. Follow these steps to implement a Total Area script:
Name the file TotalArea.lsp . Ensure the extension is .lsp and not .txt . 2. Load the LISP into AutoCAD Open your current project file in AutoCAD. Type into the command bar and press Enter .