移动尺寸线-如何?
我想写一个程序,能够移动尺寸(对齐或线性)的暗基线(带长度文本的线)。所以我想保留定义点(附着到对象的点)不变,只移动暗基线。如果单击“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函数的过程。。。
知道它为什么不起作用吗? 上部代码适用于非注释性标注。
但它是使用注释性样式创建的,不起作用。我应该更改字典中的内容吗? 我已经读过了,首先我必须得到当前的anno比例。我能做到。
然后我必须(在字典里)搜索用于此比例的实体,并对其进行更改。
谁能告诉我如何找到这个实体? 任何人
请
也许你可以重新措辞你的问题,或者最好贴一张插图
页:
[1]