Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

Ranjit_Singh2
en respuesta a: Anonymous

Here's one way

(defun c:somefunc ()
 (apply '+ (vl-remove-if-not 'numberp
                 (mapcar '(lambda (x) (vl-catch-all-apply 'vla-get-length (list (vlax-ename->vla-object x))))
                          (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget))))))))