[求助]：屏幕所有数字求平均值

hsb-hy

各位编程大师，在CAD中能否实现，屏幕上的数字（任意多个），求其平均值，放置由使用者指定位置。

屏幕数字如图示：

david96007

怎么跟平均值干上了？！

命令为：pja，可以过滤不是数字的字母！

2. 
   
3. 
   
4. 
   
5. (defun c:pja (/ ssmj sslen n fangliang entmj str_fl)
   
6.   (princ "\n选择需要平均的数字:")
   
7.   (setq        ssmj          (ssget '((0 . "TEXT")))
   
8.         sslen          (sslength ssmj)
   
9.         n          0
   
10.         j          0
    
11.         FangLiang 0
    
12.   )
    
13.   (while (< n sslen)
    
14.     (setq entmj (entget (ssname ssmj n)))
    
15.     (setq mj (distof (cdr (assoc 1 entmj))))
    
16.     (if        (numberp mj)
    
17.       (setq fangliang (+ fangliang mj)
    
18.             j              (1+ j)
    
19.       )
    
20.     )
    
21.     (setq n (1+ n))
    
22.   )
    
23.   (setq str_fl (rtos (/ fangliang j) 2 2))
    
24.   (setq pt (getpoint "点取平均值位置:"))
    
25.   (setq        entmj (subst (cons 1 str_fl) (assoc 1 entmj) entmj)
    
26.         entmj (subst (cons 10 pt) (assoc 10 entmj) entmj)
    
27.   )
    
28.   (entmake entmj)
    
29.   (princ "\n求得")
    
30.   (princ j)
    
31.   (princ "个数字的平均值为:")
    
32.   (princ str_fl)
    
33.   (princ)
    
34. )

<br /> <br /> <br /> (defun c:pja (/ ssmj sslen n fangliang entmj str_fl)<br />   (princ "\n选择需要平均的数字:")<br />   (setq        ssmj          (ssget '((0 . "TEXT")))<br />         sslen          (sslength ssmj)<br />         n          0<br />         j          0<br />         FangLiang 0<br />   )<br />   (while (< n sslen)<br />     (setq entmj (entget (ssname ssmj n)))<br />     (setq mj (distof (cdr (assoc 1 entmj))))<br />     (if        (numberp mj)<br />       (setq fangliang (+ fangliang mj)<br />             j              (1+ j)<br />       )<br />     )<br />     (setq n (1+ n))<br />   )<br />   (setq str_fl (rtos (/ fangliang j) 2 2))<br />   (setq pt (getpoint "点取平均值位置:"))<br />   (setq        entmj (subst (cons 1 str_fl) (assoc 1 entmj) entmj)<br />         entmj (subst (cons 10 pt) (assoc 10 entmj) entmj)<br />   )<br />   (entmake entmj)<br />   (princ "\n求得")<br />   (princ j)<br />   (princ "个数字的平均值为:")<br />   (princ str_fl)<br />   (princ)<br /> )

hsb-hy

多谢你！因为在方格网法土方计算中要用到这个功能，有了它，就不用拿着计算器来一个一的相加，再求平均值！真是你一伸后，帮我解千愁！

已经使用了，非常满意，不过还有个小问题，怎样才能将最后一位是零的零也显示出来呢？

david96007

你在哪儿读的大学？什么专业？我家ld是总图专业的，没见她这样计算过土方啊？！

hsb-hy

用QQ聊好吗？我是测量专业！没得大学！