大家看一看有没人什么办法

357785513

大家看一看有没人什么办法.大家好,.多行文本的字体有什么办法可以转字体嘛,难道要像我一样,一个一个点进去必掉它的字体,,.大家好帮我看看有没有什么办法可以选择它批量把字体改过来.但不能炸散这些多行文本,就像上图一样,把左边的多行文本改成右边多行文本的字体,有什么快速的方法不,.我就是一个一个点进去改的,弄了半天时间,

357785513

不好意思不记得传附件上去了

357785513

就是这张图,

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

狂刀无痕

用刷子不行么？

357785513

谢谢四楼的不相识的看得见的看不见的瞬间即的永恒的,大哥,啥也别说了.谢谢呀.

357785513

今天早上又发现一个问题,左边的图里有多种字体的情况下就不好用了,能不能改一下,多行文本里有多种字字的情况下能也能用,高人,先谢谢

tengte

(defun MText2Text (MTextString / RegExp s Pattern1 Pattern2 el)
  (setq RegExp (vlax-create-object "Vbscript.RegExp"))
     ;引用正则表达式控件
  (vlax-put-property RegExp "IgnoreCase" 0) ;不忽略大小写
  (vlax-put-property RegExp "Global" 1) ;匹配方式，全文字匹配
  (setq s  MTextString
 attern1 (list (list "\\\\\\\\" 1 "\\") ;字符\\
         (list "\\\\{" 2 "{") ;字符\{
         (list "\\\\}" 3 "}") ;字符\}
         (list "\\\\P" 4 "\n") ;换行符\P
   )
 attern2 (list
     "\\\\p(i|t)(.[^;]*);" ;段落缩进、制表符格式
     "\\\\S(.[^;]*)(\\^|#|\\\\)(.[^;]*);" ;堆迭格式
     "\\\\(F|f|C|H|T|Q|W|A)(.[^;]*);"
     ;字体、颜色、字高、字距、倾斜、字宽、对齐格式
     "\\\\(L|l|O|o)" ;下划线、线格式
     "\\\\~"  ;不间断空格格式
     "({|})"  ;{}
     ;"\n" ;换行符格式(针对Shift+Enter格式)
    )
  )
  (foreach el Pattern1
    (vlax-put-property RegExp "Pattern" (car el))
    (setq s (vlax-invoke-method RegExp "Replace" s (chr (cadr el))))
  )
  (foreach el Pattern2
    (vlax-put-property RegExp "Pattern" el)
    (setq s (vlax-invoke-method RegExp "Replace" s ""))
  )
  (foreach el Pattern1
    (vlax-put-property
      RegExp
      "Pattern"
      (strcat "\\x0" (itoa (cadr el)))
    )
    (setq s (vlax-invoke-method RegExp "Replace" s (caddr el)))
  )
  (vlax-release-object RegExp)
  s
)

(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))
       txt (MText2Text txt)
       ent (subst (cons 1 txt) (assoc 1 ent) ent)
 )
 (entmod ent)
      )
    )
  )
  (princ)
)