改变文字的对齐方式

gaics

俺用"JUSTIFYTEXT"修改，位置不会变！

;-------------------------------------------------------------------------
;文字对齐方式：左
;-------------------------------------------------------------------------
(defun C:DL()
(command "select" pause)
(command "JUSTIFYTEXT" "p" "" "L")
(princ)
)  

;-------------------------------------------------------------------------
;文字对齐方式：中
;-------------------------------------------------------------------------
(defun C:DM()
(command "select" pause)
(command "JUSTIFYTEXT" "p" "" "C")
(princ)
)
;-------------------------------------------------------------------------
;文字对齐方式：右
;-------------------------------------------------------------------------
(defun C:DR()
(command "select" pause)
(command "JUSTIFYTEXT" "p" "" "R")
(princ)
)   

yeahyeah

这是我做的一个，希望能够帮上忙
http://bbs.mjtd.com/thread-107186-1-1.html

illcyt

tranney 发表于 2013-8-2 20:09
我的还是最简单的吧，贴给大家
;----------修改选定文字对象的对正点而不改变其位置
(defun c:GZ1 () (pr ...

标记一下，收藏了

llsheng_73

我是这么做的，读取文字的textbox计算出它的中心，再加上它目前的对正点得到它的中心坐标，然后改11组和对正方式为正中。。。个人习惯把文字也正中方式对齐，这样文字大小调整后它不会跑