求各位大神看下帮我改下这个程序选面积标注出计算式

664571221

图上已经有面积或者长度的标注比如A=1M2  A=2M2,我现在想框选这些标注按前面这些标注，出一个计算式和结果，如A=1+2=3M2，请大神改正下

(defun c:CDXJ ( )
    (setq sum+ "L=")
    (setq sum 0.0)
    (while  (setq ss(entsel))
              (setq get_txt (cdr (assoc 1  (entget (car ss)))));
              (setq get_num (substr get_txt 3 (- (strlen get_txt) 4) ) );
              (setq sum (+ sum (atof get_num )))
              (setq sum+ (strcat sum+ get_num "+"))
     )
     (setq  sum+(strcat (substr sum+ 1 (1- (strlen sum+) )) "=" ))
     (princ sum+)(princ sum)

((
       (setq sum1(strcat "" sum+ "" ))
       (set-clip-string sum+ )           ;複製到剪貼簿
       (vl-cmdf "_.text" "j" "mc" (getpoint "\n文本放置點") "250" "0" sum+)
       (and bak_cecolor (setvar 'cecolor bak_cecolor))
       (and bak_dimzin (setvar 'dimzin bak_dimzin))
       )
     )
   ;(setvar "osmode" osmode)
   (setvar "cmdecho" 1)
   (princ)


   )


;;剪貼簿函數
(defun set-clip-string (str / html result)
  (and
    (= (type str) 'str)
    (setq html (vlax-create-object "htmlfile"))
    (setq result (vlax-invoke (vlax-get (vlax-get html 'parentwindow)
                                        'clipboarddata
                              ) 'setdata "Text" str
                 )
    )
    (vlax-release-object html)
  )
)

tryhi

楼主这120个提问帖没问出点经验来，提问至少要给出应用场景吧，应用效果吧，除了13行两层莫名其妙的括号来看不出来你要问什么