修改文字对齐点后,文字插入点的问题

sailorjt

代码如下 :

(defun c:wzdq (/ en1_type en1 en1_data dq1 dq2 ss i s1  encr  endata endq1 endq2 newdq1 newdq2)
  (while (/= en1_type "TEXT")
    (setq en1 (entsel "\n选取源文字:")) 
    (setq en1_data (entget (car en1)))
    (setq en1_type (cdr (assoc 0 en1_data)))
  )

  (setq dq1 (cdr (assoc 72 en1_data))
 dq2 (cdr (assoc 73 en1_data))
  )
  (prompt "\n选择需修改对齐点的文字:")

  (setq ss (ssget '((0 . "TEXT")))
 i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq endata (entget s1))
    (setq endq1 (assoc 72 endata))   
    (setq endq2 (assoc 73 endata))
    (setq encr (assoc 10 endata))
    (setq newdq1 (cons 72 dq1))
    (setq newdq2 (cons 73 dq2))
    (setq endata (subst newdq1 endq1 endata))
    (setq endata (subst newdq2 endq2 endata))
    (setq endata (subst encr (assoc 10 endata) endata))
    (entmod endata)  
  )

用encr获取未改对齐点时的插入点坐标,然后在修改完后传送，可是修改完后的新文字的插入点与老文字是一样，也就是说插入点无法改，这样的话，修改了对齐点的文字就会离开原来的位置。

该怎么改？

lazybug

(defun c:wzdq (/ en1_type en1 en1_data dq1 dq2 ss i s1 encr endata endq1
        endq2 newdq1 newdq2
       )
    (while (/= en1_type "TEXT")
 (setq en1 (entsel "\n选取源文字:"))
 (setq en1_data (entget (car en1)))
 (setq en1_type (cdr (assoc 0 en1_data)))
    )
    (setq dq1 (cdr (assoc 72 en1_data))
   dq2 (cdr (assoc 73 en1_data))
    )
    (if (zerop dq2)
 (setq n dq1)
 (if (= dq2 3)
     (setq n (+ dq1 6))
     (if (= dq2 2)
  (setq n (+ dq1 9))
  (setq n (+ dq1 12))
     )
 )
    )
    (prompt "\n选择需修改对齐点的文字:")
    (setq ss (ssget '((0 . "TEXT")))
   ;i  -1
    )
    (setq lit '((0 . "L") (3 . "A") (5 . "F") (1 . "C") (4 . "M") (2 . "R") (6 . "TL") (7 . "TC") (8 . "TR") (9 . "ML") (10 . "MC") (11 . "MR") (12 . "BL") (13 . "BC") (14 . "BR")))
    (command "justifytext" ss "" (cdr (assoc n lit)))
    ;|
    (while (setq s1 (ssname ss (setq i (1+ i))))
 (setq endata (entget s1))
 (setq endq1 (assoc 72 endata))
 (setq endq2 (assoc 73 endata))
 (setq encr (assoc 10 endata))
 (setq newdq1 (cons 72 dq1))
 (setq newdq2 (cons 73 dq2))
 (setq endata (subst newdq1 endq1 endata))
 (setq endata (subst newdq2 endq2 endata))
 (setq endata (subst encr (assoc 10 endata) endata))
 (entmod endata)
    )
    |;
    (princ)
)