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

陈伟 · 发表于 2025-4-15 09:19:11

本帖最后由陈伟于 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 · 发表于 2025-4-15 10:59:45

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

tranque · 发表于 2025-4-15 12:11:58

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

wangsr · 发表于 2025-4-15 13:50:37

感谢分享感谢分享

MZ_li · 发表于 2025-4-15 14:36:03

感谢分享感谢分享

寒潮大冬瓜 · 发表于 2025-4-15 15:24:46

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

zn1996 · 发表于 2025-4-15 15:27:52

刚需谢谢分享

sunny_8848 · 发表于 2025-4-15 18:52:52

感谢楼主热心分享

不一样地设计 · 发表于 2025-4-15 20:03:02

感谢楼主分享

zhangrunze · 发表于 2025-4-17 09:23:16

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

账号		自动登录	找回密码
密码			注册

[源码] 一键替换所有文字样式查找文字样式

本帖子中包含更多资源

评分

浏览过的版块

[源码] 一键替换所有文字样式 查找文字样式

本帖子中包含更多资源

评分

浏览过的版块

[源码] 一键替换所有文字样式查找文字样式