;;去除宽度因子
(while (setq StrP (vl-string-search "\\W" aa))
(setq
a1 (substr (substr aa (1+ StrP))
(+ 2 (vl-string-search ";" (substr aa (1+ StrP))))
) ;_ end of substr
) ;_ end of setq
(setq aa (strcat (substr aa 1 strp) a1))
) ;_ end of while
;;去除高度因子
(while (setq StrP (vl-string-search "\\H" aa))
(setq
a1 (substr (substr aa (1+ StrP))
(+ 2 (vl-string-search ";" (substr aa (1+ StrP))))
) ;_ end of substr
) ;_ end of setq
(setq aa (strcat (substr aa 1 strp) a1))
) ;_ end of while
;;去除字体定义
(while (setq StrP (vl-string-search "\\f" aa))
(setq
a1 (substr (substr aa (1+ StrP))
(+ 2 (vl-string-search ";" (substr aa (1+ StrP))))
) ;_ end of substr
) ;_ end of setq
(setq aa (strcat (substr aa 1 strp) a1))
) ;_ end of while
;;去除下划线
(while (setq StrP (vl-string-search "\\L" aa))
(setq
a1 (substr (substr aa (1+ StrP))
(+ 2 (vl-string-search ";" (substr aa (1+ StrP))))
) ;_ end of substr
) ;_ end of setq
(setq aa (strcat (substr aa 1 strp) a1))
) ;_ end of while
;;去除上划线
(while (setq StrP (vl-string-search "\\O" aa))
(setq
a1 (substr (substr aa (1+ StrP))
(+ 2 (vl-string-search ";" (substr aa (1+ StrP))))
) ;_ end of substr
) ;_ end of setq
(setq aa (strcat (substr aa 1 strp) a1))
) ;_ end of while
;;去除颜色定义
(while (setq StrP (vl-string-search "\\C" aa))
(setq
a1 (substr (substr aa (1+ StrP))
(+ 2 (vl-string-search ";" (substr aa (1+ StrP))))
) ;_ end of substr
) ;_ end of setq
(setq aa (strcat (substr aa 1 strp) a1))
) ;_ end of while
;;去除字体倾斜因子
(while (setq StrP (vl-string-search "\\Q" aa))
(setq
a1 (substr (substr aa (1+ StrP))
(+ 2 (vl-string-search ";" (substr aa (1+ StrP))))
) ;_ end of substr
) ;_ end of setq
(setq aa (strcat (substr aa 1 strp) a1))
) ;_ end of while
;;去除字间距因子
(while (setq StrP (vl-string-search "\\T" aa))
(setq
a1 (substr (substr aa (1+ StrP))
(+ 2 (vl-string-search ";" (substr aa (1+ StrP))))
) ;_ end of substr
) ;_ end of setq
(setq aa (strcat (substr aa 1 strp) a1))
) ;_ end of while
(while (setq StrP (vl-string-search "{" aa))
(setq aa (strcat (substr aa 1 strp) (substr aa (+ 2 strp))))
) ;_ end of while
(while (setq StrP (vl-string-search "}" aa))
(setq aa (strcat (substr aa 1 strp) (substr aa (+ 2 strp))))
) ;_ end of while
(setq aa (strcat "{\\W" wid ";" aa "}"))
;;下面只是重新设置了MTEXT整体的宽度因子,其它需要设置
(entmod (subst (cons 1 aa) (assoc 1 ed2) ed2))
(princ)
) ;_ end of defun