标注值求和

adc

这个程序的功能是标注求和，但是遇到一个问题，如果遇到标注值改动过了而且标注线的长度跟标注值不一致，就不知道该怎样处理了，哪位能指导一下，谢谢，希望是根据改动过的标注值求和
(defun c:tt (/ ss i num)
  (setq num 0)
  (if (setq ss (ssget'((0 . "DIMENSION")(-4 . "<OR")(70 . 32)(70 . 33)(-4 . "OR>"))))
    (repeat (setq i (sslength ss))
      (setq num (+ num (cdr (assoc 42 (entget (ssname ss (setq i (1- i))))))))
    )
  )
  (princ num)
  (princ)
)

sdwy196912

找标注的组代码为1的情况下的返回值
选择一个图元查询:DIMENSION
(-1 . <Entity name: 41f06d8>)
(0 . "DIMENSION")
(5 . "83")
(100 . "AcDbEntity")
(67 . 0)
(8 . "0")
(100 . "AcDbDimension")
(2 . "*D2")
(10 11.4267 2.67084 0.0)
(11 11.4267 4.89764 0.0)
(12 0.0 0.0 0.0)
(70 . 32)
--------------
(1 . "9.5")
-------------
(52 . 0.0)
(53 . 0.0)
(54 . 0.0)
(51 . 0.0)
(210 0.0 0.0 1.0)
(3 . "STANDARD")
(100 . "AcDbAlignedDimension")
(13 13.3764 7.12445 0.0)
(14 13.7346 2.67084 0.0)
(15 0.0 0.0 0.0)
(16 0.0 0.0 0.0)
(40 . 0.0)
(50 . 1.5708)
(100 . "AcDbRotatedDimension")

flytoday

http://bbs.mjtd.com/thread-73621-2-1.html
ZZXXQQ 哥编滴标注求和更好支持弧线标注的....

induh62662

喜欢中....哈哈哈?~！

趣意人生

收藏学习下！