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

浅沧

调用tzt命令的时候出现如下错误提示，将代码复制保存成lsp文件后加载的。

664571221

lsp文件要方在哪里，是不是每次开cad先加载lsp

奥特蛋

请问有没得支持CAD2008的

jake2017

谢谢大神分享！

xiongkun

感谢分享，学习一下

ZYX2129

太牛了，高人

嘉伟钢结构

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

Klein

学习了，谢谢楼主，之前一直不知道怎么判断缺失的字体
(vla-getfont x 'a 'b 'c 'd 'e)
a就是字体样式X的字体名称

Klein

浅沧 发表于 2022-8-15 16:05
调用tzt命令的时候出现如下错误提示，将代码复制保存成lsp文件后加载的。

代码中自定义了出错处理函数*error*,错误处理函数中不允许使用command命令，改一下就好了

1. (defun *error* (msg)  ;错误处理
   
2.     (setvar "regenmode" 1)
   
3.     (command-s "undo" "e")
   
4.     (setvar "cmdecho" 1)
   
5.     (princ msg)
   
6.   )

(defun *error* (msg)  ;错误处理<br />     (setvar "regenmode" 1)<br />     (command-s "undo" "e")<br />     (setvar "cmdecho" 1)<br />     (princ msg)<br />   )

Klein

楼主自定义了*error*函数，建议先取得原先的错误函数定义，用完了替换回去，否则可能导致其他程序出问题。