大家看一看有没人什么办法
大家看一看有没人什么办法.大家好,.多行文本的字体有什么办法可以转字体嘛,难道要像我一样,一个一个点进去必掉它的字体,,.大家好帮我看看有没有什么办法可以选择它批量把字体改过来.但不能炸散这些多行文本,就像上图一样,把左边的多行文本改成右边多行文本的字体,有什么快速的方法不,.我就是一个一个点进去改的,弄了半天时间, 不好意思不记得传附件上去了 <p></p><p>就是这张图,</p>;删MTEXT字形 明经 ZZXXQQ 2009.6.20
(defun c:tt ()
(if (setq ss (ssget '((0 . "MTEXT")))) (progn
(setq i 0)
(repeat (sslength ss)
(setq ent (entget(ssname ss i))
i (1+ i)
txt (cdr(assoc 1 ent))
j 1 k nil
sl (strlen txt))
(while (< j sl)
(if (= (substr txt j 1) ";") (setq k j j sl) (setq j (1+ j)))
)
(if k (progn
(setq txt (substr txt (1+ k))
k nil j 1 sl (strlen txt))
(while (< j sl)
(if (= (substr txt j 1) "}") (setq k j j sl) (setq j (1+ j)))
)
(if k (setq txt (substr txt 1 (1- k))))
(setq ent (subst (cons 1 txt) (assoc 1 ent) ent))
(entmod ent)
))
)
))
(princ)
)
用刷子不行么？ 谢谢四楼的不相识的看得见的看不见的瞬间即的永恒的,大哥,啥也别说了.谢谢呀. 今天早上又发现一个问题,左边的图里有多种字体的情况下就不好用了,能不能改一下,多行文本里有多种字字的情况下能也能用,高人,先谢谢 <p>(defun MText2Text (MTextString / RegExp s Pattern1 Pattern2 el)<br/> (setq RegExp (vlax-create-object "Vbscript.RegExp"))<br/> ;引用正则表达式控件<br/> (vlax-put-property RegExp "IgnoreCase" 0) ;不忽略大小写<br/> (vlax-put-property RegExp "Global" 1) ;匹配方式，全文字匹配<br/> (setq s MTextString<br/> Pattern1 (list (list "<a>\\\\\\\\</a>" 1 "\\") ;字符\\<br/> (list "<a>\\\\</a>{" 2 "{") ;字符\{<br/> (list "<a>\\\\</a>}" 3 "}") ;字符\}<br/> (list "<a>\\\\P</a>" 4 "\n") ;换行符\P<br/> )<br/> Pattern2 (list<br/> "<a>\\\\p(i|t</a>)(.[^;]*);" ;段落缩进、制表符格式<br/> "<a>\\\\S(.[^;]*)(\\^|#|\\\\</a>)(.[^;]*);" ;堆迭格式<br/> "<a>\\\\(F|f|C|H|T|Q|W|A</a>)(.[^;]*);"<br/> ;字体、颜色、字高、字距、倾斜、字宽、对齐格式<br/> "<a>\\\\(L|l|O|o</a>)" ;下划线、线格式<br/> "<a>\\\\</a>~" ;不间断空格格式<br/> "({|})" ;{}<br/> ;"\n" ;换行符格式(针对Shift+Enter格式)<br/> )<br/> )<br/> (foreach el Pattern1<br/> (vlax-put-property RegExp "Pattern" (car el))<br/> (setq s (vlax-invoke-method RegExp "Replace" s (chr (cadr el))))<br/> )<br/> (foreach el Pattern2<br/> (vlax-put-property RegExp "Pattern" el)<br/> (setq s (vlax-invoke-method RegExp "Replace" s ""))<br/> )<br/> (foreach el Pattern1<br/> (vlax-put-property<br/> RegExp<br/> "Pattern"<br/> (strcat "<a href="file://\\x0">\\x0</a>" (itoa (cadr el)))<br/> )<br/> (setq s (vlax-invoke-method RegExp "Replace" s (caddr el)))<br/> )<br/> (vlax-release-object RegExp)<br/> s<br/>)</p><p>(defun c:tt ()<br/> (if (setq ss (ssget '((0 . "MTEXT"))))<br/> (progn<br/> (setq i 0)<br/> (repeat (sslength ss)<br/> (setq ent (entget (ssname ss i))<br/> i (1+ i)<br/> txt (cdr (assoc 1 ent))<br/> txt (MText2Text txt)<br/> ent (subst (cons 1 txt) (assoc 1 ent) ent)<br/> )<br/> (entmod ent)<br/> )<br/> )<br/> )<br/> (princ)<br/>)<br/></p>
页:
[1]
2