kaixinmao 发表于 2005-7-9 16:48:00

这是我编写的机械材料表汇总程序的简化后程序

(defun huizong1(lst / ls x y)<BR>(setq ls nil)<BR>       (foreach x lst<BR>                       (if (setq y (assoc (car x) ls))<BR>                                       (setq ls (cons x ls))<BR>                                       (setq ls (subst (list (car x) (+ (cadr x)(cadr y))) x ls))))<BR>       )<BR>)

xiaoshi112 发表于 2011-2-5 00:23:09

页: [1]
查看完整版本: 这是我编写的机械材料表汇总程序的简化后程序