本帖最后由 陈伟 于 2025-4-15 15:17 编辑





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




;;再附上直接输入命令就替换所有文字样式
(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)
)





网友答: 只有常规字体没有大字体的文字样式，会不会强行加上大字体？

网友答: 蛮不错的~感谢分享；
操作还是单个功能的方式快捷点；

网友答: 请问只替换缺失字体样式的代码需要怎么写

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

网友答: 感谢分享感谢分享

网友答: 感谢分享感谢分享

网友答: 很好→很棒！很好~很棒！！很好……很棒！！！

网友答: 刚需 谢谢分享

网友答: 感谢楼主热心分享

网友答:
感谢楼主 分享