开图自动替换字体

wharan

看到很多朋友需要开图自动替换字体，我也发一个自用的开图自动替换字体程序。原理：将程序加入AutoLisp自启动引导程序acaddoc.lsp，会将图中所有小字体（西文字型）和大字体（中文字体）全部替换成指定的大字体和小字体，并能屏蔽掉线形字体和Windows字体（程序中不改变Windows字体，可自行添加）。

希望朋友们反馈

本人自启动程序挂载在天正软件的acaddoc.lsp。
自启动程序中有自用的其他程序，自行删除。

(Style_Replace)；字型替换
(MLayers)；常用图层线宽、透明度设置
(Ch_Text_Layer)；将所有AutoCAD文字、天正文字转换到指定图层
(Tufu2TK )；计算天正图框的图幅大小，并添加扩展数据到图标块上

看有朋友说设置不成功，是因为高版本的AutoCAD改变了自启动机制。现在给朋友们一个解决办法：把下载的 Style_Replace.lsp程序放在AutoCAD安装路径下的Support文件夹下，然后修改该文件夹下的acad2023.lsp（也可能是acad2022.lsp、acad2021.lsp等，视版本不同），在程序定义函数的(defun should-load-doc-lsp (/ platform verstr)下 第一行加入(load "Style_Replace.lsp")，第二行加入 (Style_Replace)，然后保存、退出，启动AutoCAD，就可以自动修改字体字形了。
修改后的acad2023.lsp如下红色字体所示：



(defun should-load-doc-lsp (/ platform verstr)
(load "Style_Replace.lsp")
(Style_Replace)
  (setq platform (getvar "PLATFORM"))
  (setq verstr (ver))
  (or (and  (/= nil (vl-string-search "Windows" platform))
            (not (= (substr verstr 1 11) "Visual LISP"))
      )
      (and  (/= nil (vl-string-search "Mac OS" platform))
            (not (= (substr verstr 1 14) "MacOS AutoLISP"))
      )
  )
)

wharan

loveu515 发表于 2022-9-28 13:11
autocad是不是没有这个ACADDOC.LSP啊？

没有，你可以自己定义，然后放在AutoCAD支持的路径，比如Support下，即可

wharan

he378980280 发表于 2022-10-18 14:14
请教下具体怎么操作啊？自己设置了一下没成功，在acaddoc.lsp里面加了启动，然后把Style_Replace 放到了LSP ...

设置不成功，已给出具体设置办法。看原帖

loveu515

wharan 发表于 2022-9-28 18:21
没有，你可以自己定义，然后放在AutoCAD支持的路径，比如Support下，即可

谢谢啦，没成功，改成手动的啦  快捷命令

magicheno

感谢大佬分享~~

白色微風1991

感謝大佬分享~~

andyzha

替换不会在弹窗了吗？

azbd

andyzha 发表于 2022-9-23 08:32
替换不会在弹窗了吗？

设好了就不会有弹窗

azbd

(vla-put-width x 0.75)，这一句起啥作用？

hzyhzjjzh

谢谢分享

wharan

azbd 发表于 2022-9-23 11:36
(vla-put-width x 0.75)，这一句起啥作用？

这一句是把字体宽高比设置成0.75

daixq021

感谢楼主无私奉献

lileiaj

怎么用呢？