移动尺寸线-如何？

chavlji · 发表于 2022-7-6 09:41:23

我想写一个程序，能够移动尺寸（对齐或线性）的暗基线（带长度文本的线）。所以我想保留定义点（附着到对象的点）不变，只移动暗基线。
如果单击“dim baseline”的一个边缘并将其拖动到某个位置，则为“Line”。

我试过了，但没用：

(setq 
       Ent   (EntGet EName)
       Ent (PutProperty 10 (MovePt (GetProperty 10 Ent) dx dy) Ent))
       (entmod Ent))))

MovePt是我的函数，为dx、dy移动点。PutProperty和GetProperty是我基于assoc函数的过程。。。
知道它为什么不起作用吗？

chavlji · 发表于 2022-7-6 10:02:56

上部代码适用于非注释性标注。

但它是使用注释性样式创建的，不起作用。我应该更改字典中的内容吗？

chavlji · 发表于 2022-7-6 10:19:47

我已经读过了，首先我必须得到当前的anno比例。我能做到。
然后我必须（在字典里）搜索用于此比例的实体，并对其进行更改。
谁能告诉我如何找到这个实体？

chavlji · 发表于 2022-7-6 10:33:32

任何人

请

pBe · 发表于 2022-7-6 10:47:20

也许你可以重新措辞你的问题，或者最好贴一张插图

[编程交流] 移动尺寸线-如何？