lisp求平均值的问题

mojoer · 发表于 2006-8-6 15:17:00

小弟刚接触二次开发,想在cad下实现框选一组数据求取平均值,用lisp实现,先谢谢了

水吉空 · 发表于 2017-8-25 11:00:11

杨春平发表于 2017-8-25 09:44
我把无痕的代码复制在txt文件，改为lsp还是不行唉

(defun c:pjz (/ ss lst n) (defun xss2lst (ss / i e lst) (setq i -1) (while (setq e(ssname ss (setq i (1+ i)))) (setq lst (cons e lst)) ) lst ) (if (setq ss (ssget '((0 . "*TEXT")(1 . "#*#")))) (progn (foreach n (xss2lst ss) (if (setq v (distof(cdr(assoc 1(entget n))))) (setq lst(cons v lst))) ) (princ "\n 求和结果=") (princ(/ (apply '+ lst)(length lst))) ) )(princ) ) (princ "\n pjz = 求数字文本平均值.----by 无痕 2006.8")
复制这一段就可以了，再不行就仿照他的自己写，例子都给出来了。

水吉空 · 发表于 2017-8-24 18:28:48

杨春平发表于 2017-8-24 17:03
大神，我不会二次开发，但是特别想用改该程序，是不是把代码复制到txt中，保存为lsp格式的就可以了？求指教 ...

06年的代码了，，可以复制在txt文件，改为lsp就可以用了。

杨春平 · 发表于 2017-8-28 09:23:29

水吉空发表于 2017-8-25 11:00
(defun c:pjz (/ ss lst n) (defun xss2lst (ss / i e lst) (setq i -1) (while (setq e(ssname ss ...

好的，谢谢

vken7az2p · 发表于 2006-8-6 18:06:00

(defun ar-average (lst / n ll i);;求平均数函数
(setq n 0)
(setq ll 0.)
(setq i 0)
(setq n (length lst))
(repeat n
(setq ll (+ ll (abs (nth i lst))))
(setq i (1+ i))
)
(setq aver (/ ll n))
aver
)

EXP:
(setq lst (list 10. 20. 30. 40.))
(setq average (ar-average lst))
_$ 25.0

不知道是这样算的吗

有错的话请提供一下数学公式吧

alin · 发表于 2006-8-6 21:02:00

(defun C:test (/ ss idx lst aver)
(if (setq ss (ssget '((0 . "*TEXT"))))
    (progn
      (setq idx 0)
      (while (<= idx (1- (sslength ss)))
(if (numberp (read (cdr (assoc 1 (entget (ssname ss idx))))))
   (setq
     lst (cons (read (cdr (assoc 1 (entget (ssname ss idx)))))
        lst
  )
   )
)
(setq idx (1+ idx))
      )
      (if (> (length lst) 0)
(progn
   (setq aver (/ (apply '+ lst) (length lst)))
   (alert (strcat (itoa (length lst))
    " number(s) selected.\nAverage: "
    (rtos aver 2 4)
   )
   )
)
(alert "No numder selected.")
      )
    )
    (alert "No numder selected.")
)
)

无痕 · 发表于 2006-8-6 23:45:00

;; pjz = 求数字文本平均值.----by 无痕 2006.8
(defun c:pjz (/ ss lst n)
(defun xss2lst (ss / i e lst)
(setq i -1)
(while (setq e(ssname ss (setq i (1+ i))))
(setq lst (cons e lst))
) lst
)
(if (setq ss (ssget '((0 . "*TEXT")(1 . "#*#"))))
(progn (foreach n (xss2lst ss)
(if (setq v (distof(cdr(assoc 1(entget n))))) (setq lst(cons v lst)))
)
(princ "\n 求和结果=")
(princ(/ (apply '+ lst)(length lst)))
)
)(princ)
)
(princ "\n pjz = 求数字文本平均值.----by 无痕 2006.8")

laoxie_198 · 发表于 2006-8-7 11:30:00

(defun c:pjz()
(setq xzj (ssget))
(setq sm (sslength xzj))
(setq j 0)
(setq i 0)
(setq c 0)
(repeat sm
    (setq ca (cdr(nth 1 (entget(ssname xzj j)))))
    (if (or (= ca "MTEXT") (= ca "TEXT"))
      (progn
(if (atof(cdr (assoc 1 (entget(ssname xzj j)))))
   (progn
     (setq i (+ i 1))
     (setq sz (atof(cdr (assoc 1 (entget(ssname xzj j))))))
     (setq zs (+ sz c))
     (setq c zs)
     )
   )
)
      )
    (setq j (+ j 1))
    )

(setq pjs (/ zs i))
(print "平均数是:" )
pjs
)

mojoer · 发表于 2006-8-8 11:47:00

太感谢楼上的各位了,谢谢!!

mojoer · 发表于 2006-8-8 11:56:00

经过测试,由无痕兄所写的代码简洁,且能够实现,再次向热心的朋友表示感谢

杨春平 · 发表于 2017-8-24 16:57:21

求大神分享CAD求平均值的程序？

杨春平 · 发表于 2017-8-24 17:03:01

大神，我不会二次开发，但是特别想用改该程序，是不是把代码复制到txt中，保存为lsp格式的就可以了？求指教

账号		自动登录	找回密码
密码			注册