zhd81617 发表于 2009-11-17 11:06:00

学习！

ponww 发表于 2009-11-26 17:05:00

可否將有?號字體點選更改希望之字體如romans等等

tianquan3 发表于 2009-12-16 17:15:00

<p>查找　　替换布局可以了？</p>

逐月飞鸿 发表于 2009-12-17 09:07:00

版主确实厉害

明_明 发表于 2010-4-24 19:52:00

请问能不能 把图中所有汉字显示为？？？ 号的改为 指定的大字体 比如： txt.shx hztxt.shx?汉字 可能有多种样式也可能是ttf 字体 汉字内容不确定字体大小不一

masterlong 发表于 2010-4-25 13:06:00

<p>;;auto_ch_style.lsp</p><p>(defun c:auto_ch_style()<br/>&nbsp;(setvar "cmdecho" 0)<br/>&nbsp;(command "undo" "g")<br/>&nbsp;(setq st_list nil)<br/>&nbsp;(while (setq st_list (tblnext "STYLE" (null st_list)))<br/>&nbsp; (setq st_name (cdr (assoc 2 st_list)))<br/>&nbsp; (setq sz_name (cdr (assoc 3 st_list)))<br/>&nbsp; (setq hz_name (cdr (assoc 4 st_list)))</p><p>&nbsp; ;;(if (or (= hz_name "")(null (findfile hz_name))(null (findfile sz_name)))<br/>&nbsp;&nbsp; (command "style" st_name "romans.shx,@@_hztxt.shx" "0" "0.75" "0" "n" "n" "n")<br/>&nbsp; ;;)去掉分号--无字体文件时替代。保留分号--强制替代。<br/>&nbsp;)<br/>&nbsp;(command "regen")<br/>&nbsp;(command "undo" "e")<br/>(princ)<br/>)<br/>(c:auto_ch_style)</p><p>楼上试试这个</p><p>将"romans.shx,@@_hztxt.shx"改成你常用的字体<br/>将(load "auto_ch_style.lsp")写入ACAD.mnl，则开图即完成替代</p>

ghl_729 发表于 2010-4-27 11:10:00

<p>这个不错</p><p></p>

zfsaaa 发表于 2010-4-28 22:16:00

以下是引用ZZXXQQ在2009-10-7 20:42:00的发言：

如何改为一次加载，TT命令后图中所有AT开头都被选中，并一次性修改？

头大无恼 发表于 2010-6-15 09:49:00

<p>有用</p>

show79 发表于 2010-6-17 10:22:00

想看看一呀
页: 1 [2] 3
查看完整版本: 把此贴删除了