云何 发表于 2020-1-15 08:31:45

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

求助，我们在标注楼梯踏步的时候常常需要写成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 发表于 2020-1-15 08:42:51

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=93301&highlight=%B1%EA%D7%A2%B5%C8%B7%D6

云何 发表于 2020-1-15 08:51:09

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

松树石头哥 发表于 2020-1-20 14:08:15

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

云何 发表于 2020-2-3 21:56:04

量小，自己修改不是事。我发现源泉工具箱可以。很多工具箱我都只能用到1-2个功能
页: [1]
查看完整版本: 求实现标注文字等分（不是标注断开）