[编程申请]：关于ET.lsp

触电

pkpm自带et.lsp如下：
(defun C:ets(/ s1 ename ti% p11 p10 f en p11n p10n fn fn1)
    (princ "ET-Supper Made by LeaLeung.\n")        ;超级ET程式制造者：黎亮!
    (princ "Select Text to change:\n")
    (setq
        s1
        (ssget '((0 . "TEXT")))                ;构造针对TEXT的选择集
    )

    (setq ti% 0)
    (if (/= s1 nil)
     (progn
       (while
        (<=
                ti%
                (- (sslength s1) 1)
        )
        (setq ename(ssname s1 ti%))
        (setq p11 nil)                        ;将p11置空
        (setq e (entget ename))                ;取实体表e
        (setq p11 (assoc  11 e))        ;取对齐点
             (setq p10 (assoc 10 e))        ;取其始点表
             (setq f (assoc 10 e))        ;如上
             (setq en e)
             (if (= (cdr f) 0) (setq p11n (cons 11 (cdr p10))))

             (if (/= (cdr f ) 0)
               (progn
                 (setq p10n (cons 10 (cdr p11)));将对齐点位构成其始点表赋给p10n
                 (setq en (subst p10n p10 en))        ;用新的其始点位更换旧的其始 点表
               )
              )
              (setq fn 0)
              (setq fn (cons 72 fn))                ;(72 . 0) 为左齐
              (setq fn1 (assoc 72 en))                ;取旧的对齐方式
              (setq e (subst fn fn1 e))                ;更换旧的对齐方式为左齐
              (entmod e)
              (setq ti%(+ 1 ti%))
         )  ;end while
      ) ;endprogn s1/=nil
    )  ;endif  s1 /= nil
    (setq s1 nil)
    (princ "Made by LeaLeung")        ;LeaLeung 就是我 黎亮!
)
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
对齐方式默认为左齐，申请改为可选择“左齐。居中。右齐”等对齐方式，多谢！！