[编程申请]：怎样求出多个数据的平均数，并写在CAD屏幕上

lsy

选取屏幕上的一组数据后，自动求出这一组数据的平均数，并把所求平均数写到CAD屏幕上。

chary3

这个问题应该不难才对，设置两个变量sum和number，sum用于求和，number用于计算数据个数，完成后再用sum除以number即得出结果，选择放置点即可。

自由的鱼

这个不难，你如果用的不是R14，我用VB写个程序给你！

lsy

我用的是cad2002，lsy_0227@163.com

snsj

最初由 lsy 发布
[B]我用的是cad2002，lsy_0227@163.com [/B]

2. [php]
   
3. (defun c:pj (/ ss lth i kj)
   
4. (setq ss (ssget '((0 . "*TEXT")))i 0)
   
5. (repeat (setq lth(sslength ss))
   
6.   (setq kj(cons(atof(cdr(assoc 1(entget(ssname ss i)))))kj))
   
7.          (setq i (1+ i))
   
8.          )
   
9. (princ "平均数为:")(princ (/ (apply '+ kj) lth))
   
10.   (princ)
    
11.   )
    
12. [/php]

[php]<br /> (defun c:pj (/ ss lth i kj)<br /> (setq ss (ssget '((0 . "*TEXT")))i 0)<br /> (repeat (setq lth(sslength ss))<br />   (setq kj(cons(atof(cdr(assoc 1(entget(ssname ss i)))))kj))<br />          (setq i (1+ i))<br />          ) <br /> (princ "平均数为:")(princ (/ (apply '+ kj) lth))<br />   (princ)<br />   )<br /> [/php]

bonme

咱那么搞地