05-11-2017
12:00 PM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
05-11-2017
12:00 PM
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))))))))