求一个求和数字型文本的程序

无痕

2. (defun c:addtt( / n lst)
3.    (ssget '((0 . "*TEXT")))
4.    (apply '+
5.              (vlax-for x (vla-get-activeselectionset(vla-get-activedocument(vlax-get-acad-object)))
6.    (if (setq n (distof(vla-get-textstring x)))   (setq lst(cons n lst)) lst)
7.   )
8.    )
9. )

(defun c:addtt( / n lst)    (ssget '((0 . "*TEXT")))    (apply '+              (vlax-for x (vla-get-activeselectionset(vla-get-activedocument(vlax-get-acad-object)))    (if (setq n (distof(vla-get-textstring x)))   (setq lst(cons n lst)) lst)   )    ) )