干掉选择字体对话框，开图自动替换字体（2021.3.2增加c#版本）

yanchao316 · 发表于 2021-3-1 18:02:51

这个很好用，但是发现个矛盾的地方，对于有些打开很慢的图，如果选择“忽略缺少的shx文件并继续”图就要等非常久，甚至打不开，即使打开了，中途操作，比如re也会卡很久。这个是CAD自身问题，但是这么忽略字体就会卡。

print1985 · 发表于 2021-3-1 18:43:30

afrgrgfdgdgt111 发表于 2021-3-1 17:17
大佬可以上传个lsp文件吗，我复制的代码加载错误

论坛代码高亮有问题
你把第一句：[code="lisp]
和最后一句：[/code]
删掉就可以了

afrgrgfdgdgt111 · 发表于 2021-3-2 08:57:48

本帖最后由 afrgrgfdgdgt111 于 2021-3-2 09:04 编辑

print1985 发表于 2021-3-1 18:43
论坛代码高亮有问题
你把第一句：
删掉就可以了

好了谢谢大佬

my258 · 发表于 2021-3-2 09:28:12

学习学习了,谢谢分享

afrgrgfdgdgt111 · 发表于 2021-3-2 10:10:32

print1985 发表于 2021-3-1 18:43
论坛代码高亮有问题
你把第一句：
删掉就可以了

请问大佬有不修改文字样式的小插件吗

print1985 · 发表于 2021-3-2 11:11:47

afrgrgfdgdgt111 发表于 2021-3-2 10:10
请问大佬有不修改文字样式的小插件吗

试试这个自己根据需要修改
Tssdeng.shx,Tssdchn.shx为英文、中文字体，0.8为宽高比

如果不是你想要的论坛搜搜一下很多源码

;修改文字字体(文字样式)gzt
(defun c:gzt (/ e txtst)
(if (setq e (car (nentsel "\n选择需要修改字体的文字（CAD单行文字）")))
(if (setq txtst (cdr (assoc 7 (entget e))))
(progn
(command "style" txtst "Tssdeng.shx,Tssdchn.shx" "" "0.8" "" "n" "n" "n") ;Tssdeng.shx,Tssdchn.shx为英文、中文字体，0.8为宽高比
(command "regen") ;重新生成图纸，防止修改后未刷新文字
(princ "\n文字样式已修改")
)
(princ "\n不是CAD单行文字，请重新选择")
)
)
(princ)
)

czb203 · 发表于 2021-3-2 11:41:20

大佬可以上传个lsp文件吗，我复制的代码加载错误

print1985 · 发表于 2021-3-2 11:49:58

czb203 发表于 2021-3-2 11:41
大佬可以上传个lsp文件吗，我复制的代码加载错误

明经上传不了附件
如果复制的代码如果有问题请到晓得下载lsp
http://bbs.xdcad.net/thread-727707-1-1.html

afrgrgfdgdgt111 · 发表于 2021-3-2 15:20:23

print1985 发表于 2021-3-2 11:11
试试这个自己根据需要修改
Tssdeng.shx,Tssdchn.shx为英文、中文字体，0.8为宽高比

感谢大佬，我回头也得学习下制作lisp程序了

print1985 · 发表于 2021-3-2 16:06:48

yanchao316 发表于 2021-3-1 18:02
这个很好用，但是发现个矛盾的地方，对于有些打开很慢的图，如果选择“忽略缺少的shx文件并继续”图就要等 ...

试试才发的C#版

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

[源码] 干掉选择字体对话框，开图自动替换字体（2021.3.2增加c#版本）