If you have never loaded a LISP file before, the process is straightforward. Follow these steps to get the routine running in your current AutoCAD session: Step 1: Save the Code Open (Windows) or any plain text editor. Copy and paste the code block provided above.
Avoid typos and missed objects during manual data entry.
If you need more than just a simple sum, consider these variations: total area autocad lisp
(defun c:TOTALAREA (/ ss count total i obj) (setq ss (ssget '((0 . "CIRCLE,HATCH,POLYLINE,LWPOLYLINE")))) (setq total 0.0) (if ss (progn (setq count (sslength ss)) (setq i 0) (while (< i count) (setq obj (vlax-ename->vla-object (ssname ss i))) (setq total (+ total (vla-get-area obj))) (setq i (1+ i)) ) (alert (strcat "Total Area of " (itoa count) " objects is: " (rtos total 2 2))) (princ (strcat "\nTotal Area: " (rtos total 2 2))) ) (princ "\nNo valid objects selected.") ) (princ) ) (vl-load-com) Use code with caution. How to Install and Run the Script above into Notepad.
;; If selection set exists (if ss (progn ;; Loop through each object in selection set (repeat (setq i (sslength ss)) (setq ent (ssname ss (setq i (1- i)))) (setq obj (vlax-ename->vla-object ent)) If you have never loaded a LISP file
The text placement portion of the script uses the active text style's default height. If your active text style has a fixed height set to 0 , AutoCAD will prompt for height during execution, which may break the automation sequence. Ensure your active text style has a pre-defined height, or tweak the _-text macro parameters in the script to match your specific template workflows. Conclusion
:
Note: This is a foundational example of a Total Area script.
If you have never loaded a LISP file before, the process is straightforward. Follow these steps to get the routine running in your current AutoCAD session: Step 1: Save the Code Open (Windows) or any plain text editor. Copy and paste the code block provided above.
Avoid typos and missed objects during manual data entry.
If you need more than just a simple sum, consider these variations:
(defun c:TOTALAREA (/ ss count total i obj) (setq ss (ssget '((0 . "CIRCLE,HATCH,POLYLINE,LWPOLYLINE")))) (setq total 0.0) (if ss (progn (setq count (sslength ss)) (setq i 0) (while (< i count) (setq obj (vlax-ename->vla-object (ssname ss i))) (setq total (+ total (vla-get-area obj))) (setq i (1+ i)) ) (alert (strcat "Total Area of " (itoa count) " objects is: " (rtos total 2 2))) (princ (strcat "\nTotal Area: " (rtos total 2 2))) ) (princ "\nNo valid objects selected.") ) (princ) ) (vl-load-com) Use code with caution. How to Install and Run the Script above into Notepad.
;; If selection set exists (if ss (progn ;; Loop through each object in selection set (repeat (setq i (sslength ss)) (setq ent (ssname ss (setq i (1- i)))) (setq obj (vlax-ename->vla-object ent))
The text placement portion of the script uses the active text style's default height. If your active text style has a fixed height set to 0 , AutoCAD will prompt for height during execution, which may break the automation sequence. Ensure your active text style has a pre-defined height, or tweak the _-text macro parameters in the script to match your specific template workflows. Conclusion
:
Note: This is a foundational example of a Total Area script.