一个数字相加的程序，大家看看错在哪~！

liujiayi6v

(defun c:tat ( / ss filter mspace n e str asclst strs add pt txt txth)
  (defun *error* (msg) (if ss (x_draw ss 4)) (setq *error* oerr))
  (princ "\n选择要计算的文本:")
  (setq oerr *error*
        ss (ssget '((0 . "*TEXT")))
        filter "0123456789.-+"
        mspace (vla-get-modelspace(vla-get-activedocument (vlax-get-
acad-object)))
        str nil strs nil)
  (if ss
    (repeat (setq n (sslength ss))
      (x_draw ss 3)
      (setq n (1- n)
            e (ssname ss n)
            str (vla-get-textstring(vlax-ename->vla-object e))
            strs (strcat (if strs strs " ") (x_txt2 str) " ")) ;;排除mtext bug.v1.1-2004.1
      )
    )
  (if (and ss (/= "" strs))
    (progn
      (setq add (eval (read (strcat "(+ " strs ")"))))
      (princ "\n文本数字和为: ")(princ add)
      (if (setq pt (getpoint "\n标注位置<重新计算>:"))
          (progn
            (setq prec (getint "\n精度(小数位数):")
                  txt (rtos add 2 prec)
                  txth (getdist "\n字高:"))
            (vla-addtext mspace txt (vlax-3D-point pt) txth)
            (x_draw ss 4)
            (princ) add)
          (progn (if ss (x_draw ss 4))(xtcal))  ;多次<重新计算>可以作为一个简易统计查看器.
      )
    )
    (progn (princ "\n!空选集或文本中无有效数字!\n") nil)
  )
)
;;
(defun x_draw (ss key / n e)
  (if (= 'PICKSET (type ss))
    (repeat (setq n (sslength ss))
      (setq n (1- n)
            e (ssname ss n))
      (redraw e key)
    )
  )
)
;;
(defun x_txt2 (str / i key1 key2 str1)
(setq i 1 key2 nil)
(repeat (strlen str)
(cond
((= "{\\f" (substr str i 3)) (setq i (+ 3 i) key1 1 key2 1))
((and key1 (= "}" (substr str i 1))) (setq key1 nil key2 nil))
((and key1 (= ";" (substr str i 1))) (setq key2 nil))
((not key2)
(setq st (substr str i 1)
str1 (strcat (if (not str1) "" str1)
(cond
((= "." st)(if (wcmatch (substr str (1+ i) 1) "#") st " "))
((member st '("+" "-")) (if (wcmatch (substr str (1+ i) 1) "#,'.") st "
"))
(T (if (wcmatch filter (strcat "*" st "*")) st " "))
)
))
)
)
(setq i (1+ i))
)
(setq str str1)
)

Gu_xl

回复 liujiayi6v 的帖子

你这是给大家出考题呐！我运行了一下，可以得到结果！程序代码内容没具体看！你要让人帮你看程序的问题，起码你得把你运行中有什么问题告诉别人，别人才能帮你！你就把一段代码搁这儿，让别人帮你看，谁有时间帮你一行一行去分析代码！

guankuiwu

我运行了没什么反映，没结果！[em0]