(if (= ss nil) (princ "\nNo valid objects selected.") (progn (setq total 0.0) (setq counter 0) (repeat (sslength ss) (setq obj (vlax-ename->vla-object (ssname ss counter))) (if (vlax-property-available-p obj "Area") (progn (setq area (vlax-get-property obj "Area")) (setq total (+ total area)) ) ) (setq counter (1+ counter)) ) ;; Display the result in the command line (princ (strcat "\n=====================================")) (princ (strcat "\nTotal Area of " (itoa (sslength ss)) " objects: ")) (princ (rtos total 2 2)) (princ " Sq. Units.") (princ (strcat "\n=====================================")) ) ) (princ) )
(princ "\nTAREA.LSP Loaded Successfully. Type TAREA to run.") (princ) Don’t worry if you’ve never used LISP before. Follow these three steps: total area autocad lisp
Have a question or a modification you need for the code? Leave a comment below! #AutoCAD #AutoLISP #CADTips #Productivity #Drafting #CivilEngineering #Architecture (if (= ss nil) (princ "\nNo valid objects selected