求标注数加减

lzg8877

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

   在此先谢！

wx302008008

(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

谢谢，需要假数加减！

wx302008008

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

更新了一下，你再试试

lzg8877

是的可以了，谢谢师傅