Anuncios

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

ВeekeeCZ
en respuesta a: Anonymous

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)
  )