（完成）[编程申请]：能否将图中所有Style一次全部替换为一个指定的

fzlinrong

但我觉的虽然我的程序第一次设置复杂了点，对于彭文波兄的情况，我的程序可能还方便些。

彭文波

fzlinrong 的程序和XDSoft 实际上对块属性的字型试了还是改不了，不知还有别法否？fzlinrong 的程序特别在AutoCAD2002中运行时，反复提示GZT是不认识的命令，经检查源程序，有两处bug:一是出现用“小字体名，小字体名”来回答-style，二是command中的""回车个数不对。

我有一个改text的字型的程序，自己编的，但是对Block内的字型宽度系数的更改没有效果，供交流。

2. 
   
3. (defun c:stylestandard()
   
4.         (command"-style" "gb" "gbenor,gbcbig" 0 1 0 "" "")
   
5.           (setq tb (tblnext "style" T))
   
6.           (while tb
   
7.                 (setq n (cdr (assoc 2 tb)))
   
8.                       (prompt (strcat "\n\nCurrent Style name is: " n))
   
9.                 (setq wd (rtos (cdr (assoc 41 tb)) 2))
   
10.                       (prompt (strcat ", Width is <"wd"> "))
    
11.                   (setq e (cdr (assoc 3 tb)))
    
12.                       (prompt (strcat ", english font is <" e "> "))
    
13.                     (setq c (cdr (assoc 4 tb)))
    
14.                       (prompt (strcat "\n, big font is <" c "> "))
    
15. 
    
16.                   (cond
    
17.                           ((or(= e "gdt.shx")(= e "symap.shx")(= e "symath.shx")(= e "gbenor.shx"))
    
18.                                        (prompt (strcat "\n--Didn't change because of symble font <" e "> ")))
    
19.                           ((and (= e "gbeitc.shx")(= c "chinese.shx"))
    
20.                                  (princ))
    
21.                         (T
    
22.                                 (command"-style" n "gbenor,gbcbig" 0 1 0 "" ""))
    
23.                 )
    
24.                 (setq tb (tblnext "style" nil))
    
25.         )
    
26.   
    
27. )

<br /> (defun c:stylestandard()<br />         (command"-style" "gb" "gbenor,gbcbig" 0 1 0 "" "")<br />           (setq tb (tblnext "style" T))<br />           (while tb<br />                 (setq n (cdr (assoc 2 tb)))<br />                       (prompt (strcat "\n\nCurrent Style name is: " n))<br />                 (setq wd (rtos (cdr (assoc 41 tb)) 2))<br />                       (prompt (strcat ", Width is <"wd"> "))<br />                   (setq e (cdr (assoc 3 tb)))<br />                       (prompt (strcat ", english font is <" e "> "))<br />                     (setq c (cdr (assoc 4 tb)))<br />                       (prompt (strcat "\n, big font is <" c "> "))<br /> <br />                   (cond<br />                           ((or(= e "gdt.shx")(= e "symap.shx")(= e "symath.shx")(= e "gbenor.shx"))<br />                                        (prompt (strcat "\n--Didn't change because of symble font <" e "> ")))<br />                           ((and (= e "gbeitc.shx")(= c "chinese.shx"))<br />                                  (princ))<br />                         (T<br />                                 (command"-style" n "gbenor,gbcbig" 0 1 0 "" ""))<br />                 )<br />                 (setq tb (tblnext "style" nil))<br />         )<br />   <br /> )

XDSoft

最初由 彭文波 发布
[B]fzlinrong 的程序和XDSoft 实际上对块属性的字型试了还是改不了，不知还有别法否？fzlinrong 的程序特别在AutoCAD2002中运行时，反复提示GZT是不认识的命令，经检查源程序，有两处bug:一是出现用“小字体名，小字体?.. [/B]

申请里面，你没有别的要求啊，详细说说你都要“刷”什么？把需要的都说出来，加一点代码就可以实现。

fzlinrong

最初由 彭文波 发布
[B]fzlinrong 的程序和XDSoft 实际上对块属性的字型试了还是改不了，不知还有别法否？fzlinrong 的程序特别在AutoCAD2002中运行时，反复提示GZT是不认识的命令，经检查源程序，有两处bug:一是出现用“小字体名，小字体?.. [/B]

我的程序就是在CAD2002下编的。
可能你没有hzdz.shx文件，你可以用文本编辑器修改“用户字体库.dat”文件，将里面的内容
("txt.shx,romant.shx")
("hzdx.shx,ht64S.shx")
中的hzdx.shx改为你常用的汉字字体文件即可。
“用户字体库.dat”文件格式第一行第一个为小字体文件，可将你没有的字体统一改为该字体，第二个及后面的为你想保留的字体，这种字体不会被第一种字体更改。第二行是大字体文件，其他定义同第一行，你再试一试，我单位的同事用后都说好。
反复提示GZT是不认识的命令是因为command命令找不到hzdx.shx，命令终止，后面的回车相当于重复gzt命令，从而导致gzt自己调用gzt,因此命令找不到。

彭文波

先谢谢fzlinrong的热情回复。我想我们仅仅作个探讨:
    应该不是有没有hzdz.shx等字体文件的问题，因为我在运行前就将“用户字体库.dat”的内容按“请先阅读我.txt”改为我需要的了，我很理解设立“用户字体库.dat”文件的思路和好处，所以用前就按说明和我的理解用户化了。再说，出错提示是：{{{“hzdx 是常规字体，不是大字体。未知命令“GZT”。}}}（见其他网友的贴），不是找不到字体文件的提示。我单步运行gzt.lsp，发现前贴提到的用“小字体名，小字体”回答-style命令的情况。
    另外，正如指出的，后面的回车相当于重复gzt命令,产生的原因是因为例如用"gnenor,gbcbig"回答-style命令，后面只需回车5次,即5个""号，但是你的程序中有6个""。可能是因为你们单位用的字体还支持“是否垂直? <N>”选项，所以需多一个回车""。
   仅仅作个探讨交流,不妥请指正。

噢,Sorry, 我明白了，是我弄错了!
“用户字体库.dat”的格式榕大侠编程时约定的应该是
    ("常规字体.shx,常规字体.shx")
    ("大字体.shx,大字体.shx")
我没多看就当作如下形式了：
   ("常规字体.shx,大字体.shx")
    ("常规字体.shx,大字体.shx")
怪不得搞错，还是fzlinrong高！希望fzlinrong以后多多开发。

因不知道不能重复法帖,所以,与xdsoft交流的话附加在此:

谢谢XDSoft对我难题的关注。因为我们单位统一要求用"gbenor,gbcbig",所以以前的大量图纸要求标准化,主要难点是:gbenor,gbcbig已经长仿宋体,故字体宽度系数要求全部改为1,这是其一；其二,原运用了大量块及属性,在重新定义style后,块属性文字的宽度系数,倾斜度不随之更新。
--------------------------------------
愿晓东空间成为大家的乐土

fzlinrong

谢谢彭兄的测试，确如彭兄所言，我们单位用的字体还支持“是否垂直? ”选项，所以需多一个回车""。我编程序，当时主要是因为我单位的一个老高工每次用其他专业提的条件时，老是让我帮他调字体，索性我就编一个给他，后来大家都觉得好，就都用上了，因我单位用能垂直的字体比较多，所以这个问题没出现，难怪网友网友提这个问题，我都不知所以然，再次谢谢彭兄，希望以后能做个朋友，最近比较忙，以后有空希望能进一步完善这个程序。
另：
致晓东：
我们在用到别人的图纸时，常常因没有字体文件，因此打开图纸时，常常要指定替换字形，很麻烦，虽然可以用映射字形的方法解决，但总不能将所有的字形都映射，你的字形刷子不能虽然很好用，但本机没有字体文件时，一些字都显示不出来，因本人能力有限，无法编出更好的程序，希望晓东或其他大侠能编一个更好用的。谢谢！

XDSoft

最初由 fzlinrong 发布
[B]谢谢彭兄的测试，确如彭兄所言，我们单位用的字体还支持“是否垂直? ”选项，所以需多一个回车""。我编程序，当时主要是因为我单位的一个老高工每次用其他专业提的条件时，老是让我帮他调字体，索性我就编一个给他，... [/B]

机器中没有字体，肯定要显示问号的。你可以用刷子“刷”成其他字体。

fzlinrong

XD你好，可是在打开图时，提示替换字体对话框，但指定替换中文字体后，中文字体被替换了，但小字体却不见了，如果文字实体中没有中文这个字就无法用鼠标选取，请看

fzlinrong

而该字体的定义如下

秋枫

你可以试试tools菜单下的CAD Standards子菜单下的功能。
更详细的资料可以参考autocad帮助文件。

彭文波

autoCAD2002正如秋枫所言，增加了标准化检查，可以将字体进行检查并替换，但是其标检功能将层/线形/字型等的检查捆在一起，使用起来并不方便！

另，autoCAD2002增加的标准化检查好象支持用户开发“标检功能的插件plugin开发”，但未见有关资料，哪位网友有的话，能否让大伙分享

KINGALLOY

我在cad r14里面加载xdsoft 的 XDTB_TxtStyleMatch 工具，怎么刷不了块里面的文字呢？

XDSoft

最初由 KINGALLOY 发布
[B]我在cad r14里面加载xdsoft 的 XDTB_TxtStyleMatch 工具，怎么刷不了块里面的文字呢？ [/B]

你是在“晓东工具箱”下面用的吗？

你再试验下2002下面如何？

XDSoft

最初由 KINGALLOY 发布
[B]不是，哇这里的信息好及时啊，可以和你交个cad朋友吗? [/B]

那你先到“下载中心”下载晓东工具箱，安装后，在试试论坛提供的程序。

推荐你在2002下面使用“晓东工具箱”。

欢迎你常来！

KINGALLOY

我没有装2002，我现在在用天正3.0，里面加了不少我自己收集和作的快捷命令，舍不得丢，晓东工具集又装不上 cad r14,真的很烦啊。


(qq:  70916542)
晓东工具集装上后看得到按钮，点了之后又没有用，说“Unknown command”  怎么回事？