664571221 发表于 2016-4-6 18:51:36

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

本帖最后由 664571221 于 2016-4-6 18:59 编辑

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

流动的清泉 发表于 2016-4-8 11:15:35

(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" " "))
)
页: [1]
查看完整版本: 3币求一个小小的功能，如下说明