陈伟 发表于 4 天前

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

本帖最后由 陈伟 于 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)
)



muai2010 发表于 4 天前

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

tranque 发表于 4 天前

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

wangsr 发表于 4 天前

感谢分享感谢分享

MZ_li 发表于 4 天前

感谢分享感谢分享

寒潮大冬瓜 发表于 4 天前

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

zn1996 发表于 4 天前

刚需 谢谢分享

sunny_8848 发表于 4 天前

感谢楼主热心分享

不一样地设计 发表于 4 天前


感谢楼主 分享

zhangrunze 发表于 前天 09:23

蛮不错的~感谢分享；
操作还是单个功能的方式快捷点；
页: [1]
查看完整版本: 一键替换所有文字样式 查找文字样式