怎么修改实现不用选择而自动吧字体变换

怎么修改实现不用选择而自动吧字体变换

(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 就是我 黎亮!
)

(defun C:et(/ s1 ename ti% p11 p10 f en p11n p10n fn fn1)
    (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)
)