无痕 发表于 2004-8-27 20:33:00

(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)
)
   )
)
页: 1 [2]
查看完整版本: 求一个求和数字型文本的程序