【已解决】帮忙修改一下代码，已经尺寸标注的数字递减修改

lizhaojun45

下料的时候要用到这个功能，比如，递减，1 或 1.5 或 2 或2.5 或3，根据实际需要来确定递减值。
要求是，递减之后，算出是几位小数就是几位小数，不能对递减之后的值，做自动  四舍五入成整数。
尺寸标注的数值递减的同时，数字颜色也要同时变成粉红色，如图所示，这样就知道哪些尺寸是修改过的了。
图1是修改之前的样子，图上是修改好之后的样子。
这是论坛里，找到的，别人发的代码，不是自己编写的。作者是：st788796，
代码如下：命令是CED，最好是不要改成其它的，

(defun c:CED (/ ss num e txt)
  (and
    (setq ss (ssget '((0 . "Dimension"))))
    (setq num (getreal "\n输入增减数: "))
    (xdrx_setsstodb ss 0)
    (while (setq e (xdrx_getentdata 0))
      (and
        (member (xdrx_getpropertyvalue e "IsA") '("AcDbAlignedDimension" "AcDbRotatedDimension"))
        (if (/= (xdrx_getpropertyvalue e "DimensionText") "")
          (setq txt (distof (xdrx_getpropertyvalue e "DimensionText")))
          (setq txt (xdrx_getpropertyvalue e "Measurement"))
        )
        (xdrx_setpropertyvalue e "Dimtext" (rtos (+ txt num) 2 0))
      )
    )
  )
  (princ)
)
;;;;看后面改好的代码。

lizhaojun45

请各路大神帮忙修改一下。

Lisphk

贴的程序代码做什么的，哪地方不符合你说的了

lizhaojun45

Lisphk 发表于 2019-4-4 12:10
贴的程序代码做什么的，哪地方不符合你说的了

比如，原来的数值是800递减1.5，应该是798.5，而这个插件，算出来的数值是，799，数字颜色也不能在更改的同时，变成洋红色，CAD的洋红 色代号是6号。

lovezp

(rtos (+ txt num) 2 0)) 0改为1试试

lizhaojun45

lovezp兄弟谢谢你，递减运算这一块解决了，我把，(rtos (+ txt num) 2 0)) 0改为2试了试，精度保留2位数，
递减之后得到的数字，它的颜色也想同时改变一下，变成CAD的6号色，洋红色，好区分哪些数字改过了，哪些是没有改过的，请大神们指点一下。

王鹏_pBZlo

修改一下你的数字保留小数点后的位数
来自: 微社区

lovezp

xdrx_setpropertyvalue在帮助文件里找找这个函数，看看有没有颜色这个属性。
来自: 微社区

lizhaojun45

lovezp 发表于 2019-4-5 19:17
xdrx_setpropertyvalue在帮助文件里找找这个函数，看看有没有颜色这个属性。

查到一些这样的参数，我不会编程，不知道怎么使用这些参数，也不知道怎么修改，请大家，有空的时候，帮我改一下。

lovezp

(xdrx_setpropertyvalue (car(entsel)))
你在CAD命令行输入上面的语句 看看返回值是什么。我没装工具箱没法试

lizhaojun45

提示选择对象，我选择了一个尺寸标注。

lovezp

(xdrx_setpropertyvalue e "Color" 6)

lizhaojun45

lovezp,你发的一行代码，我不知道怎么插进去，插在哪一行的哪一个位置，我学没过编程。帮忙说详细一点。

lovezp

(xdrx_setpropertyvalue e "Dimtext" (rtos (+ txt num) 2 0))放在它下面一行就好了
来自: 微社区

lizhaojun45

改好的完整的代码发上来，有需要的朋友自己下载。
;【尺寸标注递减&递增修改】
(defun c:CED (/ ss num e txt)
  (and
    (setq ss (ssget '((0 . "Dimension"))))
    (setq num (getreal "\n输入增减数: "))
    (xdrx_setsstodb ss 0)
    (while (setq e (xdrx_getentdata 0))
      (and
        (member (xdrx_getpropertyvalue e "IsA") '("AcDbAlignedDimension" "AcDbRotatedDimension"))
        (if (/= (xdrx_getpropertyvalue e "DimensionText") "")
          (setq txt (distof (xdrx_getpropertyvalue e "DimensionText")))
          (setq txt (xdrx_getpropertyvalue e "Measurement"))
        )
        (xdrx_setpropertyvalue e "Dimtext" (rtos (+ txt num) 2 2))
        (xdrx_setpropertyvalue e "Color" 6)
      )
    )
  )
  (princ)
)