如何通过修改组码72和73修改文字的对齐点

lostbalance

编了个程序，提取第一个文字的对齐方式，即组码72和73的数值，然后把其他文字的组码72和73替换，使所有文字的对齐方式与第一个一样。
以下是我编的代码。运行后，不是对齐方式的控制组码没有被修改，反而是显示内容，也就是组码1变成了组码73的数值。
求教，如何修改这个程序。

1. (defun c:qq( / txt i dxf72 dxf73 txtent)
   
2.     (setq txt (ssget "_:L" '((0 . "TEXT"))))
   
3.     (setq i 0)
   
4.     (repeat (setq len (sslength txt))
   
5.         (setq txtent (entget (ssname txt i)))
   
6.         (setq i (1+ i))
   
7.         (if (not dxf72)
   
8.             (setq dxf72 (rtos (cdr (assoc 72 txtent)))
   
9.                 dxf73 (rtos (cdr (assoc 73 txtent)))
   
10.             )
    
11.             (progn
    
12.                 (setq txtent (subst (cons 1 dxf72) (assoc 72 txtent) txtent))
    
13.                 (setq txtent (subst (cons 1 dxf73) (assoc 73 txtent) txtent))
    
14.                 (entmod  txtent)
    
15.             )
    
16.         )
    
17.     )
    
18.     (princ)
    
19. )

(defun c:qq( / txt i dxf72 dxf73 txtent)<br />     (setq txt (ssget "_:L" '((0 . "TEXT"))))<br />     (setq i 0)<br />     (repeat (setq len (sslength txt))<br />         (setq txtent (entget (ssname txt i)))<br />         (setq i (1+ i))<br />         (if (not dxf72)<br />             (setq dxf72 (rtos (cdr (assoc 72 txtent)))<br />                 dxf73 (rtos (cdr (assoc 73 txtent)))<br />             )<br />             (progn<br />                 (setq txtent (subst (cons 1 dxf72) (assoc 72 txtent) txtent))<br />                 (setq txtent (subst (cons 1 dxf73) (assoc 73 txtent) txtent))<br />                 (entmod  txtent)<br />             )<br />         )<br />     )<br />     (princ)<br /> )

ll_j

试试：
(cons 1 dxf72) --> (cons 72 dxf72)
(cons 1 dxf73) --> (cons 73 dxf73)

lostbalance

ll_j 发表于 2013-11-19 21:56
试试：
(cons 1 dxf72) --> (cons 72 dxf72)
(cons 1 dxf73) --> (cons 73 dxf73)

这个有问题，提示：
; 错误: DXF 组不正确: (72 . "4")

gdslqs

去掉rtos                                 

lostbalance

gdslqs 发表于 2013-11-19 23:20
去掉rtos

去掉rtos的话，也是提示dxf组不正确。

aihuyujian

是不是if 后面的dxf72 第一次的时候未定义？ 用不用在if 函数前加一个 setq dxf72 …… ？

lostbalance

aihuyujian 发表于 2013-11-20 00:25
是不是if 后面的dxf72 第一次的时候未定义？ 用不用在if 函数前加一个 setq dxf72 …… ？

用了if not对第一次的文字组码进行了定义

ZZXXQQ

2. (defun c:qq头( / txt i dxf72 dxf73 txtent)
   
3. (setq txt (ssget "_:L" '((0 . "TEXT"))))
   
4. (setq i 1)
   
5. (setq txtent (entget(ssname txt 0)));第一个文字组码
   
6. (setq dxf72 (assoc 72 txtent));第一个文字72组码
   
7. (setq dxf73 (assoc 73 txtent));第一个文字73组码
   
8. (repeat (setq len (sslength txt))
   
9.   (setq txtent (entget (ssname txt i)))
   
10.   (setq i (1+ i))
    
11.   (setq txtent (subst dxf72 (assoc 72 txtent) txtent))
    
12.   (entmod (subst dxf73 (assoc 73 txtent) txtent))
    
13. )
    
14. (princ)
    
15. )

(defun c:qq头( / txt i dxf72 dxf73 txtent)<br /> (setq txt (ssget "_:L" '((0 . "TEXT"))))<br /> (setq i 1)<br /> (setq txtent (entget(ssname txt 0)));第一个文字组码<br /> (setq dxf72 (assoc 72 txtent));第一个文字72组码<br /> (setq dxf73 (assoc 73 txtent));第一个文字73组码<br /> (repeat (setq len (sslength txt))<br />   (setq txtent (entget (ssname txt i)))<br />   (setq i (1+ i))<br />   (setq txtent (subst dxf72 (assoc 72 txtent) txtent))<br />   (entmod (subst dxf73 (assoc 73 txtent) txtent))<br /> )<br /> (princ)<br /> )

lostbalance

ZZXXQQ 发表于 2013-11-20 08:24

试了下，可以。然后发现，1楼的程序，把rtos、cdr还有cons都删了就可以了。