lzg8877 发表于 2022-6-8 09:02:01

求标注数加减

本帖最后由 lzg8877 于 2022-6-8 11:07 编辑

请问哪位师傅可帮忙开发一下，标注数（手改数，假数）相加相减的！

   在此先谢！

wx302008008 发表于 2022-6-9 12:43:44

本帖最后由 wx302008008 于 2022-6-9 21:11 编辑


(defun c:rrr ( / ss n i a sum ent)   ;标注数相加
      (princ "选择要相加的标注：")
      (setq ss (ssget '((0 . "DIMENSION")))
                  n (sslength ss)
                  i 0
                  sum 0
      )
      (while (< i n)
                (Setq ent (entget (ssname ss i))
                          a (if (= (cdr (assoc 1 ent)) "")
                                (cdr (assoc 42 ent))
                                (atof (cdr (assoc 1 ent)))
                             )
                        sum (+ a sum)
                        i (+ 1 i)
                )
      )
      (princ sum)
      (princ)
)

lzg8877 发表于 2022-6-9 16:00:44

谢谢，需要假数加减！

wx302008008 发表于 2022-6-9 21:11:45

lzg8877 发表于 2022-6-9 16:00
谢谢，需要假数加减！

更新了一下，你再试试

lzg8877 发表于 2022-6-10 09:25:12

是的可以了，谢谢师傅
页: [1]
查看完整版本: 求标注数加减