lisp求平均值的问题

杨春平

水吉空 发表于 2017-8-24 18:28
06年的代码了，，可以复制在txt文件，改为lsp就可以用了。

我把无痕的代码复制在txt文件，改为lsp还是不行唉——

杨春平

水吉空 发表于 2017-8-24 18:28
06年的代码了，，可以复制在txt文件，改为lsp就可以用了。

我把无痕的代码复制在txt文件，改为lsp还是不行唉

水吉空

杨春平 发表于 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-25 11:00
(defun c:pjz (/ ss lst n) (defun xss2lst (ss / i e lst)   (setq i -1)    (while (setq e(ssname ss  ...

好的，谢谢

杨春平

水吉空 发表于 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  ...

好的，谢谢