请大佬看下这个调整文字位置问题

薄荷微光

我用LISP写的调整文字间距，用这个(vla-put-insertionpoint obj (vlax-3d-point new-pt))更新文字新的坐标位置，当文字是左对齐时没问题，其他对齐方式时不起作用，是什么原因呢，用什么办法解决。

qifeifei

2. (defun MoveTextProper (obj pt)
   
3.   (setq pt (vlax-3d-point pt))
   
4. 
   
5.   (cond
   
6.     ;; 单行文字
   
7.     ((= (vla-get-ObjectName obj) "AcDbText")
   
8.      (setq justify (vla-get-Justify obj))
   
9.      (if (= justify 0)
   
10.        (vla-put-InsertionPoint obj pt)
    
11.        (vla-put-AlignmentPoint obj pt)
    
12.      )
    
13.     )
    
14. 
    
15.     ;; 多行文字
    
16.     ((= (vla-get-ObjectName obj) "AcDbMText")
    
17.      (vla-put-InsertionPoint obj pt)
    
18.     )
    
19.   )
    
20. )
    

(defun MoveTextProper (obj pt)<br />   (setq pt (vlax-3d-point pt))<br /> <br />   (cond<br />     ;; 单行文字<br />     ((= (vla-get-ObjectName obj) "AcDbText")<br />      (setq justify (vla-get-Justify obj))<br />      (if (= justify 0)<br />        (vla-put-InsertionPoint obj pt)<br />        (vla-put-AlignmentPoint obj pt)<br />      )<br />     )<br /> <br />     ;; 多行文字<br />     ((= (vla-get-ObjectName obj) "AcDbMText")<br />      (vla-put-InsertionPoint obj pt)<br />     )<br />   )<br /> )<br />

qifeifei

2. (defun update-text-position-safe (obj new-pt / alignment)
   
3.   (setq alignment (vla-get-Alignment obj))
   
4.   
   
5.   (if (= alignment acAlignmentLeft)
   
6.     ;; 左对齐只更新 InsertionPoint
   
7.     (vla-put-InsertionPoint obj (vlax-3d-point new-pt))
   
8.     ;; 其他对齐方式同时更新两个属性
   
9.     (progn
   
10.       (vla-put-TextAlignmentPoint obj (vlax-3d-point new-pt))
    
11.       (vla-put-InsertionPoint obj (vlax-3d-point new-pt))
    
12.     )
    
13.   )
    
14. )

(defun update-text-position-safe (obj new-pt / alignment)<br />   (setq alignment (vla-get-Alignment obj))<br />   <br />   (if (= alignment acAlignmentLeft)<br />     ;; 左对齐只更新 InsertionPoint<br />     (vla-put-InsertionPoint obj (vlax-3d-point new-pt))<br />     ;; 其他对齐方式同时更新两个属性<br />     (progn<br />       (vla-put-TextAlignmentPoint obj (vlax-3d-point new-pt))<br />       (vla-put-InsertionPoint obj (vlax-3d-point new-pt))<br />     )<br />   )<br /> )