数字求和的LISP程序

<BR><FONT face=宋体 size=2>(defun c:pickad1 (/ psub1 ss totn)                ;拾取数字和(可作减法)<BR>         (defun psub1 (ss / tot n en adn)<BR>                         (setq tot 0.0<BR>                 n                 0<BR>                         )<BR>                         (while (setq en (ssname ss n))<BR>                                         (setq adn (atof (cdr (assoc 1 (entget en)))))<BR>                                         (setq tot        (+ tot adn)<BR>                                 n        (1+ n)<BR>                                         )<BR>                         )<BR>                         tot<BR>         )<BR><BR>         (prompt "\n拾取数字求差: ")<BR>         (prompt "\n请先选择被减的数字: ")<BR>         (setq        ss                 (ssget '((0 . "TEXT")))<BR>        totn (psub1 ss)<BR>         )<BR>         (prompt "\n再选择要减去的数字: ")<BR>         (setq        ss                 (ssget '((0 . "TEXT")))<BR>        totn (- totn (psub1 ss))<BR>         )<BR>         (princ (strcat "\n数字和: "))<BR>         (princ totn)<BR>         (princ)<BR>)</FONT>