求实现标注文字等分（不是标注断开）

云何

求助，我们在标注楼梯踏步的时候常常需要写成12×250＝3000,19×167＝3173等形式，如果用天正或探索者把尺寸断开，显示太密。

在下搜了好久，找到如下代码。来源于晓东CAD，但要配合其工具箱使用，觉得为了一个功能而下载整个工具箱和杀鸡取卵何异，所以求教高手作给予解答。
(defun c:XDTB_DimDivVal ( / dims div e val)
  (if (setq div (getint "\n输入等分数<退出>:"))
    (progn
      (while (setq e (car (xdrx_entsel "\n选取要等分区间的标注<退出>:" '
               ((0 . "dim*"))
        )
         )
       )
  (setq val (xdrx_getpropertyvalue e "Measurement"))
  (setq dims (xdrx_getpropertyvalue e "dimdec"))
  (xdrx_setpropertyvalue e "DimText" (xdrx_prompt div "X"
              (rtos (/ val div) 2
                    dims
              ) "=" (rtos val 2
                    dims
                    ) t
             )
  )
      )
    )
  )
  (princ)
)

xj6019

http://bbs.mjtd.com/forum.php?mo ... A%D7%A2%B5%C8%B7%D6

云何

我不是要把它断开，是要把文字替换为N*其均值的形式，如果不能等分，可以写成N*均值＋余数，比如12×1200＋485＝14885

松树石头哥

直接修改标注属性就行了，就是有点麻烦！

云何

量小，自己修改不是事。我发现源泉工具箱可以。很多工具箱我都只能用到1-2个功能