(vla-put-alignment (vlax-ename->vla-object(car(entsel))) 4)

brainstorm

想让文字居中，按下面操作，文字不见了，如何解决
(vla-put-alignment (vlax-ename->vla-object(car(entsel))) 4)

Lisphk

在设置下 TextAlignmentPoint
你可以看看开源通用函数库里面的，修改对齐方式而文字位置不变的帖子。
用 对齐 搜索 开源函数库

marting

修改前， 文字左对齐，看下图，TextAlignmentPont=‘(0 0 0) , ALignment=0



修改对齐方式为“正中”，可以看到，对齐alignment=10, 对齐点TextAlignmentPont等于原来左对齐的插入点InsertPoint



所以，你要修改对齐方式，除了要设置alignment外，还要设置对齐点TextAlignmentPoint
下面代码修改对齐方式为正中。

1. (defun c:tt ()
   
2.   (if (setq e (car (entsel "\n拾取文字<退出>:")))
   
3.     (progn
   
4.       (setq o                (vlax-ename->vla-object e)
   
5.             insertPoint        (vla-get-InsertionPoint o)
   
6.       )
   
7.       (vla-put-alignment o 10)
   
8.       (vla-put-textalignmentpoint o insertpoint)
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )
    
13. 
    

(defun c:tt ()<br />   (if (setq e (car (entsel "\n拾取文字<退出>:")))<br />     (progn<br />       (setq o                (vlax-ename->vla-object e)<br />             insertPoint        (vla-get-InsertionPoint o)<br />       )<br />       (vla-put-alignment o 10)<br />       (vla-put-textalignmentpoint o insertpoint)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

可见，修改对齐方式后，文字的插入点是要变化的，表现就是文字会移动位置。如果你想改变对齐后，而文字位置还不变，用开源函数库的

1. (XD::Text:AdjustAlignMent etxt 1 2)
   

(XD::Text:AdjustAlignMent etxt 1 2)<br />

brainstorm

谢谢热心回答 讲的很细致

yoyoho

感谢分享程序！！！