[LISP程序]：行对齐，为什么选中的文字都重叠到一起呢

mr.feng76

;使得表格中的一行单行文字行对齐
(defun c:hang()
        
        (setq p (ssget) )
        (setq m 0 )
        (setq n (sslength p))
        (while (< m n)              
        (setq e (entget (ssname p m)))
        (setq e
         (subst (cons 72 4)
          (assoc 72 e)
          e
         )
        )
      (entmod e)
       (setq m(+ 1 m) )
       );end 72
;;;;;;;;;;;;;;;
        (setq m 0 )
       (while (< m n)
         (setq e
         (subst (cons 73 0)
          (assoc 73 e)
          e
         )
        )
      (entmod e);end 73
      
      (setq m (+ 1 m) )
);end 73
      (setq m 0 )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
     (setq p1 (getpoint "\nD-L point: "))
     (setq p2 (getpoint "\nU-R point: "))
     (setq x1 (car p1) y1(cadr p1) x2 (car p2) y2 (cadr p2))
     (setq y (/ (+ y1 y2) 2))
     (while (< m n)
     (setq e (entget (ssname p m)))
     (setq qx (car (assoc 11 e)))       ;返回x坐标
     (setq hang (list qx y 0))           ;好像hang第一次幅值后不能改变，为什么？
     (setq e
         (subst (cons 11 hang)
          (assoc 11 e)
          e
         )
        )
      (entmod e)
    (setq m (+ 1 m) )
     );end while
;;;;;;;;;;;;;;;;;;;;;;;;;;;
)end defun

zxmmelly

是单行文字的 justify 设置的问题，不能只用组码72，注意看看73的含义。

mr.feng76

我确实不知道73的含义，只是觉得组码73也是控制单行文字插入点的因素，谁能帮帮我啊

zxmmelly

justify 设置的不同决定了定位点组码的不同，10是第一定位点，11是第二定位点。
当72和73的值非0时，忽略第一定位点，当72 和73的值为0或没有时，第二定位点是没有意义的。

仔细看一下帮助文件当中DXF参考里关于TEXT的描述.

aeo

最初由 zxmmelly 发布
[B]justify 设置的不同决定了定位点组码的不同，10是第一定位点，11是第二定位点。
当72和73的值非0时，忽略第一定位点，当72 和73的值为0或没有时，第二定位点是没有意义的。

仔细看一下帮助文件当中DXF参考里关于... [/B]

还不全面:
左(L)   dxf10起作用.
对齐(A)/调整(F)   时两点共同起作用.
其他差不多dxf11起作用.