[紧急求助]请帮忙编一段小程序

sunfox

由于本人对AutoCAD及AutoLISP均只懂皮毛，但有同学求助，所以想让各位大侠帮忙编一段AutoLISP程序。在此先谢过！！
求平均值：在图中选取数字（实数），求它们的平均值，选中几个就求几个的平均值（一般不超过5个数字）

sunfox

还有，VLX格式的用什么打开，怎么在CAD中使用呢？

最好请您给我一段txt中写出来的.lsp程序：）

myfreemind

试试下面这段程序!

(defun c:aver()

  (setq s (ssget))
  (setq n (sslength s))
  (setq wbs n)
  (setq n (- n 1))
  (setq az 0)
  (while (>= n 0)
    (setq n1 (ssname s n))
    (setq z (cdr (assoc 1 (entget n1))))
    (setq z (distof z 1))
    (setq az (+ az z))
    (setq n (- n 1))
    )
  (setq pjz ( rtos (/ az wbs)))
  
  (print (strcat "平均值为:" pjz ))
  (princ)
  )

sunfox

谢谢，俺去试试～～～

janice

这挺简单的啊

meflying

janice发表于2003-12-3 17:16:00这挺简单的啊

那你也来一个啊，或许有更简便的方法。。。

chamous

谢谢meflying!小弟受用了.

xyp1964

2. (defun c:aver ()
3.   (setq ss (ssget '((0 . "TEXT")))
4. i  -1 j  0 m  0
5.   )
6.   (while (setq s1 (ssname ss (setq i (1+ i))))
7.     (setq z (cdr (assoc 1 (entget s1))))
8.     (if (setq z (distof z))
9.       (progn
10. (setq j (1+ j)
11.        m (+ m z)
12. ))))
13.   (princ "\n平均值 = ")
14.   (princ (/ m j 1.0))
15.   (princ)
16. )

(defun c:aver ()   (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) )