[编程交流] 如何设置文本水平对齐

(defun c:TesT (/ *error* acdoc ss p1 j sset e)
 ;;; Tharwat 16. jan. 2012 ;;;
 (vl-load-com)
 (defun *error* (msg)
   (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
       (princ (strcat "\n** Error: " msg " **"))
   )
   (princ)
 )
 (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
 (if (setq ss (ssget "_:L" '((0 . "TEXT"))))
   (progn
     (vla-StartUndoMark acdoc)
     (setq p1 (cdr (assoc 10 (entget (ssname ss 0)))))
     (repeat (setq j (sslength ss))
       (setq sset (ssname ss (setq j (1- j))))
       (setq e (entget sset))
       (entmod
         (subst (cons 10 (list (car (cdr (assoc 10 e))) (cadr p1)))
                (assoc 10 e)
                e
         )
       )
     )
   )
   (princ)
 )
 (vla-EndUndoMark acdoc)
 (princ)
)

(cons 10 (list (car (cdr (assoc 10 e))) (cadr p1)))