一键替换所有文字样式 查找文字样式

陈伟

一键查找所有文字样式，一键替换所有文字样式,可用于图纸加密时整体替换文字样式




;;再附上直接输入命令就替换所有文字样式
(defun c:TT (/ keyword doc count style)
  (setq keyword  "")
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq count 0)
  (vlax-for style (vla-get-textstyles doc)
    (if (vl-string-search keyword (vla-get-name style))
      (progn
        (vla-put-fontfile style "gbenor.shx")    ; 替换普通字体
        (vla-put-bigfontfile style "gbcbig.shx") ; 替换大字体
        (setq count (1+ count))
      )
    )
  )
  (alert (strcat "共更新 " (itoa count) " 个文字样式字体！"))
  (princ)
)

muai2010

查找所有文字样式比较直观，
感谢分享

tranque

规整外来图纸，很有用，感谢分享

wangsr

感谢分享感谢分享

MZ_li

感谢分享感谢分享

寒潮大冬瓜

很好→很棒！很好~很棒！！很好……很棒！！！

zn1996

刚需 谢谢分享

sunny_8848

感谢楼主热心分享

不一样地设计

感谢楼主 分享