Total Area Autocad Lisp !!better!! -

You should see a message saying "successfully loaded."

; Converts areas from sq. mm to sq. meters (defun C:AREAM2 (/ ss total_mm total_m2) (setq ss (ssget '((0 . "LWPOLYLINE,POLYLINE")))) ; ... (collection code omitted for brevity) (setq total_m2 (/ total_mm 1000000.0)) (alert (strcat "Total area = " (rtos total_m2 2 2) " sq. meters")) ) total area autocad lisp