开图自动替换字体
本帖最后由 wharan 于 2022-10-18 16:50 编辑看到很多朋友需要开图自动替换字体，我也发一个自用的开图自动替换字体程序。原理：将程序加入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"))
)
)
)
loveu515 发表于 2022-9-28 13:11
autocad是不是没有这个ACADDOC.LSP啊？
没有，你可以自己定义，然后放在AutoCAD支持的路径，比如Support下，即可 he378980280 发表于 2022-10-18 14:14
请教下具体怎么操作啊？自己设置了一下没成功，在acaddoc.lsp里面加了启动，然后把Style_Replace 放到了LSP ...
设置不成功，已给出具体设置办法。看原帖 wharan 发表于 2022-9-28 18:21
没有，你可以自己定义，然后放在AutoCAD支持的路径，比如Support下，即可
谢谢啦，没成功，改成手动的啦快捷命令;P 感谢大佬分享~~ 感謝大佬分享~~ 替换不会在弹窗了吗？
andyzha 发表于 2022-9-23 08:32
替换不会在弹窗了吗？
设好了就不会有弹窗 (vla-put-width x 0.75)，这一句起啥作用？ 谢谢分享{:1_1:} azbd 发表于 2022-9-23 11:36
(vla-put-width x 0.75)，这一句起啥作用？
这一句是把字体宽高比设置成0.75 感谢楼主无私奉献 怎么用呢？