修改标注11组码后，为什么第一个标注的位置会上移（左移）？

hubeiwdlue

    代码是一个标注文字居中的功能，通过修改70和11组码实现。但是在使用过程中发现，每次修改完毕后，第一个标注，也就是左边或上边的第一个标注，位置会发现改变，其余标注不存在这个问题。第一个标注是用线性标注画的，其余是用连续标注画的。这是什么原因呢，要如何修改才能避免以上情况发生？代码如下：

2. (defun c:tt(/ en ent i len p10 p10x p10y p11 p13 p13x p13y p14 p14x p14y pt1 ss zhigao)
   
3.   (if (setq ss (ssget "I"))
   
4.     t
   
5.     (setq ss (ssget '((0 . "DIMENSION"))))
   
6.   )
   
7.   (setq len (sslength ss)
   
8.     i len
   
9.   )
   
10.   (repeat len
    
11.     (setq en (ssname ss (setq i (1- i))))
    
12.     (setq ent (entget en))
    
13.     (setq zhigao (Vlax-Get (Vlax-Ename->Vla-Object en) 'TextHeight));字高
    
14.     (setq p10 (cdr(assoc 10 ent)));标注线右端点坐标
    
15.     (setq p11 (cdr(assoc 11 ent)));标注文字坐标
    
16.     (setq p13 (cdr(assoc 13 ent)));左标注点坐标
    
17.     (setq p14 (cdr(assoc 14 ent)));右标注点坐标
    
18.     (setq p10x (car p10)
    
19.       p10y (cadr p10)
    
20.       p13x (car p13)
    
21.       p13y (cadr p13)      
    
22.       p14x (car p14)
    
23.       p14y (cadr p14)
    
24.     )
    
25.     (cond
    
26.       ((= (fix (+ 0.5 p10x)) (fix (+ 0.5 p14x)));横向标注
    
27.         (setq pt1 (list (* 0.5 (+ p13x p14x)) (+ p10y (* 0.3 zhigao)) 0));文字居中坐标
    
28.         (setq ent (subst(cons 70 160)(assoc 70 ent)ent))
    
29.         (setq ent (subst(cons 11 pt1)(assoc 11 ent)ent))
    
30.         (entmod ent)
    
31.         (entupd en)
    
32.       )
    
33.       ((= (fix (+ 0.5 p10y)) (fix (+ 0.5 p14y)));纵向标注
    
34.         (setq pt1 (list (- p10x (* 0.3 zhigao)) (* 0.5 (+ p13y p14y)) 0));文字居中坐标
    
35.         (setq ent (subst(cons 70 160)(assoc 70 ent)ent))
    
36.         (setq ent (subst(cons 11 pt1)(assoc 11 ent)ent))
    
37.         (entmod ent)
    
38.         (entupd en)
    
39.       )
    
40.     )
    
41.   )
    
42.   (princ)
    
43. )

(defun c:tt(/ en ent i len p10 p10x p10y p11 p13 p13x p13y p14 p14x p14y pt1 ss zhigao)<br />   (if (setq ss (ssget "I"))<br />     t<br />     (setq ss (ssget '((0 . "DIMENSION"))))<br />   )<br />   (setq len (sslength ss)<br />     i len<br />   )<br />   (repeat len <br />     (setq en (ssname ss (setq i (1- i))))<br />     (setq ent (entget en))<br />     (setq zhigao (Vlax-Get (Vlax-Ename->Vla-Object en) 'TextHeight));字高<br />     (setq p10 (cdr(assoc 10 ent)));标注线右端点坐标<br />     (setq p11 (cdr(assoc 11 ent)));标注文字坐标<br />     (setq p13 (cdr(assoc 13 ent)));左标注点坐标<br />     (setq p14 (cdr(assoc 14 ent)));右标注点坐标<br />     (setq p10x (car p10)<br />       p10y (cadr p10)<br />       p13x (car p13)<br />       p13y (cadr p13)      <br />       p14x (car p14)<br />       p14y (cadr p14)<br />     )<br />     (cond<br />       ((= (fix (+ 0.5 p10x)) (fix (+ 0.5 p14x)));横向标注<br />         (setq pt1 (list (* 0.5 (+ p13x p14x)) (+ p10y (* 0.3 zhigao)) 0));文字居中坐标<br />         (setq ent (subst(cons 70 160)(assoc 70 ent)ent))<br />         (setq ent (subst(cons 11 pt1)(assoc 11 ent)ent))<br />         (entmod ent)<br />         (entupd en)<br />       )<br />       ((= (fix (+ 0.5 p10y)) (fix (+ 0.5 p14y)));纵向标注<br />         (setq pt1 (list (- p10x (* 0.3 zhigao)) (* 0.5 (+ p13y p14y)) 0));文字居中坐标<br />         (setq ent (subst(cons 70 160)(assoc 70 ent)ent))<br />         (setq ent (subst(cons 11 pt1)(assoc 11 ent)ent))<br />         (entmod ent)<br />         (entupd en)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

录屏如下：

飞雪神光

这的原因

飞雪神光

这个可以设置 文字移动方式

1. (Vlax-put (Vlax-Ename->Vla-Object en) 'TextMovement 1)

(Vlax-put (Vlax-Ename->Vla-Object en) 'TextMovement 1)

hubeiwdlue

谢谢大神指导。

hubeiwdlue

谢谢神光大神，70组码的修改，也是为了设置文字移动方式，但是组码修改并不完美，属性修改和"AIDIMTEXTMOVE"命令是一致的，有三个设置，分别是0，acDimLineWithText 尺寸线跟随文字移动。1，acMoveTextAddLeader 文字独立于尺寸线移动，但添加一条从文字到尺寸线的引线。2，acMoveTextNoLeader 文字独立于尺寸线移动，不添加从文字到尺寸线的引线。这样设置和绘图结果一致。

hubeiwdlue

修改之后的代码如下，可以实现标注文字居中，我主要用来处理结构缝处的标注：

2. (defun c:tt(/ en ent i len p10 p10x p10y p11 p13 p13x p13y p14 p14x p14y pt1 ss zhigao)
   
3.   (if (setq ss (ssget "I"))
   
4.     t
   
5.     (setq ss (ssget '((0 . "DIMENSION"))))
   
6.   )
   
7.   (setq len (sslength ss)
   
8.     i len
   
9.   )
   
10.   (repeat len
    
11.     (setq en (ssname ss (setq i (1- i))))
    
12.     (setq ent (entget en))
    
13.     (setq zhigao (Vlax-Get (Vlax-Ename->Vla-Object en) 'TextHeight));字高
    
14.     (setq p10 (cdr(assoc 10 ent)));标注线右端点坐标
    
15.     (setq p11 (cdr(assoc 11 ent)));标注文字坐标
    
16.     (setq p13 (cdr(assoc 13 ent)));左标注点坐标
    
17.     (setq p14 (cdr(assoc 14 ent)));右标注点坐标
    
18.     (setq p10x (car p10)
    
19.       p10y (cadr p10)
    
20.       p13x (car p13)
    
21.       p13y (cadr p13)      
    
22.       p14x (car p14)
    
23.       p14y (cadr p14)
    
24.     )
    
25.     (cond
    
26.       ((= (fix (+ 0.5 p10x)) (fix (+ 0.5 p14x)));横向标注
    
27.         (setq pt1 (list (* 0.5 (+ p13x p14x)) (+ p10y (* 0.3 zhigao)) 0));文字居中坐标
    
28.         (Vlax-put (Vlax-Ename->Vla-Object en) 'TextMovement 2)
    
29.         (setq ent (subst(cons 11 pt1)(assoc 11 ent)ent))
    
30.         (entmod ent)
    
31.         (entupd en)
    
32.       )
    
33.       ((= (fix (+ 0.5 p10y)) (fix (+ 0.5 p14y)));纵向标注
    
34.         (setq pt1 (list (- p10x (* 0.3 zhigao)) (* 0.5 (+ p13y p14y)) 0));文字居中坐标
    
35.         (Vlax-put (Vlax-Ename->Vla-Object en) 'TextMovement 2)
    
36.         (setq ent (subst(cons 11 pt1)(assoc 11 ent)ent))
    
37.         (entmod ent)
    
38.         (entupd en)
    
39.       )
    
40.     )
    
41.   )
    
42.   (princ)
    
43. )

(defun c:tt(/ en ent i len p10 p10x p10y p11 p13 p13x p13y p14 p14x p14y pt1 ss zhigao)<br />   (if (setq ss (ssget "I"))<br />     t<br />     (setq ss (ssget '((0 . "DIMENSION"))))<br />   )<br />   (setq len (sslength ss)<br />     i len<br />   )<br />   (repeat len <br />     (setq en (ssname ss (setq i (1- i))))<br />     (setq ent (entget en))<br />     (setq zhigao (Vlax-Get (Vlax-Ename->Vla-Object en) 'TextHeight));字高<br />     (setq p10 (cdr(assoc 10 ent)));标注线右端点坐标<br />     (setq p11 (cdr(assoc 11 ent)));标注文字坐标<br />     (setq p13 (cdr(assoc 13 ent)));左标注点坐标<br />     (setq p14 (cdr(assoc 14 ent)));右标注点坐标<br />     (setq p10x (car p10)<br />       p10y (cadr p10)<br />       p13x (car p13)<br />       p13y (cadr p13)      <br />       p14x (car p14)<br />       p14y (cadr p14)<br />     )<br />     (cond<br />       ((= (fix (+ 0.5 p10x)) (fix (+ 0.5 p14x)));横向标注<br />         (setq pt1 (list (* 0.5 (+ p13x p14x)) (+ p10y (* 0.3 zhigao)) 0));文字居中坐标<br />         (Vlax-put (Vlax-Ename->Vla-Object en) 'TextMovement 2)<br />         (setq ent (subst(cons 11 pt1)(assoc 11 ent)ent))<br />         (entmod ent)<br />         (entupd en)<br />       )<br />       ((= (fix (+ 0.5 p10y)) (fix (+ 0.5 p14y)));纵向标注<br />         (setq pt1 (list (- p10x (* 0.3 zhigao)) (* 0.5 (+ p13y p14y)) 0));文字居中坐标<br />         (Vlax-put (Vlax-Ename->Vla-Object en) 'TextMovement 2)<br />         (setq ent (subst(cons 11 pt1)(assoc 11 ent)ent))<br />         (entmod ent)<br />         (entupd en)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

：