求助！多行文本数字求和问题！请帮看看。

guankuiwu

首先这个lsp是网上找的，多谢原作者！自己稍微改动了输出。
现运行如下：单行文本正常，多行文本如果文本宽度因子、间距因子，倾斜因子为1时正常，如果不是1的话，会把这些因子的数值加进去最终结果，求助怎样过滤多行文本的其他属性数值！
;-----------------------------------------------------------------------------------------------
;plus->文本计数求和;
(defun C:aaa ( / 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文本数字求和")
  (vl-load-com)
  (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))
            asclst (mapcar '(lambda (x) (if (vl-string-search  (chr x) filter) x 32)) (vl-string->list str))
            strs (strcat (if strs strs "  ") (apply 'strcat (mapcar 'chr asclst)) " "))  
      )
    )
  (if (and ss (/= "" strs))
    (progn
      (setq add (eval (read (strcat "(+ " strs ")"))))
      (setq n2 (getvar "DIMSCALE"))
   (setq insertpt (getpoint "\n请输入文字插入点: "))
     (setq height (getint "\n绘图比例<比例为当前标注比例，回车或右击忽略>:"))
           (if (= height nil)   
               (setq height n2)
           )
      (setq h1 (* height  3))
      (command "_.text"
        "non"
        insertpt
        h1
        ""
       (strcat  (rtos add 2 2) )
      )
      (x_draw ss 4)
          (progn (if ss (x_draw ss 4))(xtcal))  
    )
  )
)
;;;;配套程序(x_draw ss key)
(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)
    )
  )
)

wowan1314

给个测试图看看， 我一般不用多行文字。看来多行文字不是好东西啊
不过好像听哪个说过有过滤多行文字格式得到真实内容的程序。不妨找找看

guankuiwu

wowan1314 发表于 2012-5-4 17:56
给个测试图看看， 我一般不用多行文字。看来多行文字不是好东西啊
不过好像听哪个说过有过滤多行文字格式得 ...

我自己平时也不用，但是有时别人图里有这个！

guankuiwu

没有高手看看啊