3币求一个小小的功能，如下说明

664571221

求一个功能 输入命令QH,框选标注，把他们的标注相加，最好按左到右的顺序，如图,框选的时候，使已经选中的标注处于选择的状态，以区分那些选中那些没中，最好在计算式外面加（），比如（1+1+1+1）

流动的清泉

(defun c:QH
(/ ss BLK blk_name blk_SCL blk_ANG rtn)
  (PRINC "选择标注...")
  (setq ss (ssget '((0 . "DIMENSION"))))
  (OR ss (exit))
  (if (null cal)(arxload "geomcal"))
  (setq        rtn
         (apply
           '+
           ;;(lambda (x) (strcat x "+")) ;;
           (mapcar
             '(lambda (x / temp)        ;(setq x (nth 0 (S2l:ent ss)))
                (setq temp (strcase (dimTextCont x)))
                                        ;(setq temp (strcase "15x@156"))
                (cal (StrRegEx temp
                            '(("(\\d+\\.?\\d*)X@(\\d+\\.?\\d*)\\D*" "$1*$2"))
                  )))
             (S2l:ent ss))))
  ;;(PutClipText (vl-princ-to-string rtn))
  (setq list2 (list (PutClipText (vl-princ-to-string rtn))))
  (setq pt (getpoint "指定相加文字的位置:"))
  (setq num (nth 0 list2 ))
  (command "text" "j" "m" pt 300 0 num)
  ;;(SendManyKeys '("fv" " "))
)