Total Area Autocad Lisp ((install)) -

(if obj-list (progn (foreach item (reverse obj-list) (princ (strcat "\n" (car item) ": " (rtos (cadr item) 2 2) " sq units")) )

Automatically convert square inches to square feet or square meters. total area autocad lisp

;; Helper function to check if object has area property (defun vlax-property-available-p (obj prop) (not (vl-catch-all-error-p (vl-catch-all-apply 'vlax-get-property (list obj prop)))) ) (if obj-list (progn (foreach item (reverse obj-list) (princ