CAD
可以这样在
CAD里用LSP算数字的平均值，运行命令test269然后选文本就行了：lsp(defun c:test269 () (setq ss (ssget '((0 . TEXT))) i -1 j 0 m 0 ) (while (setq s1 (ssname ss (setq i (1+ i)))) (setq z (cdr (assoc 1 (entget s1)))) (if (setq z (distof z)) (progn (setq j (1+ j) m (+ m z) ) ) ) ) (princ n平均值 = ) (princ (/ m j 1.0)) (princ))
简单说就是选中所有文本，挑出能当数字的，加起来求个平均。
