[转贴]：cad的字体统一办法

一丝冷风 · 发表于 2006-9-18 12:37:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

DWG图形交流时，字体是一个比较麻烦的问题，现编制如下小程序给予解决，功能如下：把图形中所有文字式样的定义改为同一个定义，式样的名称保持不变，我是把文字式样的定义都改为了TASD的“sysz,syfs”，大家如果不喜欢，可以把程序中的sysz,syfs，改为其他的定义即可！！！
命令名称：TYZT

(defun c:tyzt ()
(while (setq x (tblnext "style" (not tlst)))
(setq tlst (cons (cdr(assoc 2 x)) tlst))
)
(setq cn1 (length tlst))
(setq cn2 cn1)
(repeat cn1
(setq cn2 (- cn2 1))
(command "-style" (nth cn2 tlst) "sysz,syfs" "" "" "" "" "" "")
)
)

tyzt.rar

KENSHIN709 · 发表于 2006-9-20 11:03:20

用cht改变字体的功能也有同样的效果！！

marcoyuwen · 发表于 2006-10-7 15:03:08

如果用command 调用style命令，必须考虑TASD的高度设置是0还是大于0。

wnjdw · 发表于 2006-10-13 21:47:44

我也觉得CAD中字体太多，不知道有没有一个统一的或者万能和字体啊？

围棋 · 发表于 2006-10-25 12:03:31

这样会把多种字体改了，也不好。

meng1984814 · 发表于 2006-10-30 08:50:23

ding a

xihuliuyue · 发表于 2006-11-7 17:58:53

这种问题经常遇到，我的机器是win98的，到别人的xp上打开文件字体就成了？号，总是要style一次修改，楼主这主意太好了，顶死你

dfdf1183 · 发表于 2006-11-8 15:07:33

在什么环境下输入这些命令啊?

chesexzh · 发表于 2006-11-19 21:44:55

我是新手，请问怎样把这个程序写入CAD？？

G666W · 发表于 2006-11-20 19:36:36

我认为TSSD的字体挺好,但是TSSDENG2是空心的,哪位同仁有类似细等线体的字体啊!

jpll · 发表于 2006-11-21 14:19:05

不错，正需要

qj866 · 发表于 2006-11-23 09:43:05

CAD字体很烦，前阵有张施工图，在没有打开之前，通过缩略图，标注什么都能看到，可是打开后标注全没了，只剩下外围的墙了，还不全。

wqqqw · 发表于 2006-11-24 21:25:05

看不懂,楼主能不能说下怎么把你写的这个弄进CAD里去?

gps00 · 发表于 2006-11-25 19:38:06

太好了，没有全看懂，目前正在学习语言中，

李军 · 发表于 2006-11-28 20:27:04

好东东，下来用了

就是运行有点慢

不会用的下载这个附件，在CAD里加载即可

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

[转贴]：cad的字体统一办法

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子