03-31-2020
07:21 AM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
03-31-2020
07:21 AM
Yes, learn to program! Prob the simplest would be a LISP:
(vl-load-com)
(defun c:TextStats ( / lst)
(if (and (setq lst (ssget '((0 . "TEXT"))))
(setq lst (mapcar '(lambda (x) (distof (cdr (assoc 1 (entget x))))) (vl-remove-if 'listp (mapcar 'cadr (ssnamex lst))))))
(princ (strcat "\nMin: " (vl-princ-to-string (apply 'min lst)) " - Max: " (vl-princ-to-string (apply 'max lst)) " - Avr: " (rtos (/ (apply '+ lst) (float (length lst))) 2 3))))
(princ)
)