如何改变默认的对正方式

ak50

谢谢。

ak50

(defun c:11 ()
  (COMMAND "_justifytext" (SSGET "X" '((0 . "TEXT"))) "" "mc")
  (setq ee (entsel "\n选择要对齐的基准线:")  
  )
  (while (setq en (entsel "\n选选择要对齐的文字:"))
    (setq es (car ee)    
      dat0 (entget es)  
        pt00 (assoc 11 dat0)
          pt0 (cdr pt00)
          ptx(car pt0))
   (setq en (car en)    
      dat (entget en)  
        pt10 (assoc 11 dat)
          pt (cdr pt10)  
    )
    (entmod (subst (cons 11 (list ptx (cadr pt))) pt10 dat))
  )
)
这个是改正了的垂直对齐的程序，呵呵虽然简单，可是也是在多位老大的帮助下偶才编出来的：）大家如果觉得有用就拿去用吧：）

比较麻烦的就是不能实现框选直线和文字：）