;;; TOTAREA.LSP - Calculate total area of selected objects ;;; Command: TOTAREA ;;; Supports: LWPOLYLINE, CIRCLE, ELLIPSE, SPLINE, REGION, HATCH (defun C:TOTAREA ( / ss total area obj_name obj_list i ent) (princ "\nSelect objects to calculate total area: ")
;; Step 3: Loop through each object in the selection set (repeat (sslength ss) (setq ent (ssname ss i)) ; Get entity name (setq obj_name (cdr (assoc 0 (entget ent)))) ; Get object type ;; Step 4: Calculate area based on object type (cond ;; For Polylines, Circles, Ellipses, Splines ((member obj_name '("LWPOLYLINE" "CIRCLE" "ELLIPSE" "SPLINE")) (command "_.AREA" "_Object" ent) (setq area (getvar "AREA")) ) ;; For Regions ((equal obj_name "REGION") (setq area (vla-get-area (vlax-ename->vla-object ent))) ) ;; For Hatches ((equal obj_name "HATCH") (setq area (vla-get-area (vlax-ename->vla-object ent))) ) ) ;; Step 5: Add area to total (if area (setq total (+ total area)) (princ (strcat "\nWarning: Could not compute area for object " (itoa i))) ) (setq i (1+ i)) ; Increment counter (setq area nil) ; Reset area variable ) ; end repeat ;; Step 6: Display the result (princ "\n=========================================") (princ (strcat "\n>>> TOTAL AREA: " (rtos total 2 2) " square units <<<")) (princ "\n=========================================") ) ; end progn ) ; end if (princ) ; Clean exit ) For AutoCAD 2020 and newer (including LT? Note: LT does not support Lisp ) If you are using full AutoCAD (not LT), follow these steps:
(princ (strcat "\n>>> TOTAL AREA: " (rtos total 2 2) " SQ. FT. <<<")) Conversion: 1 Acre = 43,560 square feet total area autocad lisp
To make the Lisp actually say "Sq. Ft." or "Sq. M.", we modify the final princ line. Replace the final princ lines with this:
;; Step 1: Create a selection set (setq ss (ssget '((0 . "LWPOLYLINE,CIRCLE,ELLIPSE,SPLINE,REGION,HATCH")))) ;;; TOTAREA
Introduction: The Pain Point of Polyline Area Calculation
In this article, we will explore what a "Total Area Lisp" is, how to install and use the most popular routine ( TOTAREA ), how to modify it to display totals in different units, and how to troubleshoot common errors. AutoLISP is a dialect of the Lisp programming language built specifically for automating tasks in AutoCAD. A Total Area Lisp is a script that automates the summation of area properties. <<<")) Conversion: 1 Acre = 43,560 square feet
(setq acres (/ total 43560.0)) (princ (strcat "\n>>> TOTAL AREA: " (rtos acres 2 2) " ACRES <<<")) This version shows your total in Square Meters and Square Feet simultaneously:
