(XD::Text:AdjustAlignMent)修改对齐方式而文字位置不变

Lispboy · 发表于 2013-8-20 08:23:50

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

;|
修改对齐方式而位置不变
参数：
e --- 文字实体名
hmode-水平对齐方式 0-5
vmode-竖向对齐方式0-3
返回值：
t
|;
(defun XD::Text:AdjustAlignMent (e hmode vmode / box1 box2 mat mat0 p1 p2)
(setq box1 (XD::Entity:BoxAtEcs e e)
p1 (car box1)
mat0 (xdrx_matrix_identity 3)
)
(xdrx_text_setHozMode e hmode)
(if (and
(/= 3 hmode)
(/= 5 hmode)
)
(xdrx_text_setVerMode e vmode)
)
(setq box2 (XD::Entity:BoxAtEcs e e)
p2 (car box2)
mat (xdrx_matrix_setTransLation mat0 (mapcar
'-
(trans p1 1 0)
(trans p2 1 0)
)
)
)
(xdrx_entity_transform e mat)
t
)

Free-Lancer · 发表于 2013-8-20 08:26:57

可以适用 Attref 吗?

Lispboy · 发表于 2013-8-20 08:50:52

本帖最后由 Lispboy 于 2013-8-20 08:52 编辑

Free-Lancer 发表于 2013-8-20 08:26
可以适用 Attref 吗?

做一个ATTDEF的演示，做前心里没底，因为没考虑ATTDEF，测试后，发现，老大的API也一样支持ATTDEF里面的文字，看：
A 是 nentsel 得到的值，(car a)是属性文字

演示里面会看到，用CAD的编辑属性命令，修改对齐方式后，属性文字是移动位置的。
用上面的函数执行后，可以修改对齐方式，而位置不变。

st788796 · 发表于 2013-8-20 09:05:30

Lispboy 发表于 2013-8-20 08:50
做一个ATTDEF的演示，做前心里没底，因为没考虑ATTDEF，测试后，发现，老大的API也一样支持ATTDEF里面的 ...

属性定义时有个锁定位置，试试这种情况

Lispboy · 发表于 2013-8-20 09:41:12

st788796 发表于 2013-8-20 09:05
属性定义时有个锁定位置，试试这种情况

从API看，
xdrx_attrib_setLockPosition
xdrx_attrib_lockPosition

要R17版本CAD以上才有，锁定是锁定属性的位置，那就直接修改对齐点就行了，如果想移动，有锁定，用API解锁下就是了。

ll_j · 发表于 2013-8-20 09:57:57

文本有倾斜角的情况，对齐点会有些不同，你测试一下还行不行（我没玩API），如果行，就没什么问题了。

vincentli · 发表于 2014-12-8 21:07:32

学习一下，平时改这个都要花时间，这下好了

浮世小半生 · 发表于 2015-4-25 01:41:33

{:soso_e179:}

czcxxx_01 · 发表于 2015-9-5 15:32:22

{:soso_e179:}{:soso_e160:}{:soso_e156:}

账号		自动登录	找回密码
密码			立即注册

[文本] (XD::Text:AdjustAlignMent)修改对齐方式而文字位置不变

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

浏览过的版块