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...
好的，谢谢
页:
1
[2]