0 Members and 1 Guest are viewing this topic.
(defun c:SumLen ( / getlen len ss i ) (defun getlen ( object / area ) (vl-catch-all-apply '(lambda () (setq len (vla-get-length object ) ) ) ) (if len len 0.0) ) (cond ( (setq len 0.0 ss (ssget)) (repeat (setq i (sslength ss)) (setq len (+ len (getlen (vlax-ename->vla-object (ssname ss (setq i (1- i)) ) ) ) ) ) ) ) ) (if len len 0.0) )