: The c: prefix registers TotalArea as a standard command directly within the AutoCAD command line. The variables listed after the forward slash / are localized, meaning they clear from AutoCAD's memory once the script finishes executing to prevent conflicts with other routines.
In the AutoCAD command line, type and press Enter .
: The Lisp routine above costs $0. It runs instantly, doesn't require an internet connection, and works on any version of AutoCAD from R14 to 2026.
This is a standard LISP found in various forms, often called "AreaM" or "SumArea". total area autocad lisp
(defun c:TArea (/ ss i totalArea ent obj) (vl-load-com) (setq totalArea 0) (if (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 1)))) ; Selects closed LWPolylines (progn (setq i 0) (repeat (sslength ss) (setq ent (ssname ss i) obj (vlax-ename->vla-object ent) totalArea (+ totalArea (vla-get-area obj)) i (1+ i) ) ) (princ (strcat "\nTotal Area: " (rtos totalArea))) ) (princ "\nNo closed polylines selected.") ) (princ) ) Use code with caution. How to use this code: Open Notepad and paste the code above. Save as TotalArea.lsp . Load in AutoCAD via APPLOAD . Type TArea to run. 5. Pro Tips for Total Area LISP Users
: The ssget function prompts the user to select objects on screen. The associated association list acts as a strict entity filter. The script strictly allows the selection of LWPOLYLINE (lightweight polylines), POLYLINE (old-style 2D/3D polylines), CIRCLE , HATCH , and REGION entities. Open lines or text are automatically ignored to prevent calculation errors. 3. The Calculation Loop
Integrating a Total Area LISP into a daily workflow is seamless. By adding the script to the "Startup Suite," the command becomes a permanent part of the user's toolkit. Instead of juggling a calculator and a notepad, a drafter can type a shortcut like : The c: prefix registers TotalArea as a
What (Inches, Feet, Millimeters, Meters) does your project use? Share public link
(princ "\nSelect objects to calculate total area...") (setq ss (ssget '((-4 . "<OR") (0 . "CIRCLE") (0 . "ELLIPSE") (0 . "HATCH") (0 . "LWPOLYLINE") (0 . "POLYLINE") (0 . "REGION") (0 . "SPLINE") (0 . "ARC") ; Arc (converted to region) (0 . "LINE") ; Line (converted to region) (0 . "LWPOLYLINE") (-4 . "OR>"))))
;; Offer to display in different units (initget "Yes No") (if (= (getkword "\nDisplay in different units? [Yes/No] <No>: ") "Yes") (progn (princ "\nSelect unit conversion:") (princ "\n 1 - Square feet") (princ "\n 2 - Square meters") (princ "\n 3 - Square yards") (initget 1 "1 2 3") (setq unit (getkword "\nEnter choice [1/2/3]: ")) (cond ((= unit "1") ; sq ft (setq converted (* total-area 144.0)) ; assuming drawing units in inches (princ (strcat "\nConverted: " (rtos converted 2 2) " sq ft"))) ((= unit "2") ; sq meters (setq converted (* total-area 0.00064516)) ; sq inches to sq meters (princ (strcat "\nConverted: " (rtos converted 2 2) " sq meters"))) ((= unit "3") ; sq yards (setq converted (* total-area 0.000771605)) ; sq inches to sq yards (princ (strcat "\nConverted: " (rtos converted 2 2) " sq yards"))) ) ) ) : The Lisp routine above costs $0
Selects objects (PLINE, CIRCLE, REGION) and outputs the total sum.
Mastering Total Area Calculation in AutoCAD with AutoLISP In AutoCAD, calculating the area of a single shape is simple—you just use the AREA command. However, when working on complex projects like architectural floor plans, site surveys, or land subdivision, you often need to find the of dozens or hundreds of disparate, non-overlapping closed polylines.
(defun C:AT ( / ss area_list total sf) (setq sf (getreal "\nConversion factor (1 drawing unit = ? feet): ")) (if (= sf nil) (setq sf 1.0)) (setq ss (ssget '((0 . "LWPOLYLINE,POLYLINE,CIRCLE,ELLIPSE,REGION")))) (if ss (progn (setq total 0.0) (repeat (setq i (sslength ss)) (setq ent (ssname ss (setq i (1- i)))) (setq area (vlax-curve-getArea ent)) (setq total (+ total area)) ) (setq total_sqft (* total sf sf)) (setq total_acres (/ total_sqft 43560.0)) (alert (strcat "Total Area: " (rtos total_acres 2 2) " Acres")) ;; Optional: Insert text (command "_.MTEXT" (getpoint "\nPick text insertion point: ") "J" "TL" "W" "0" (strcat "TOTAL AREA = " (rtos total_acres 2 2) " ACRES") "") ) (princ "\nNo objects selected.") ) (princ) )