[分享]：文字与尺寸样式的设置

yxc

我也是从那些帖子中看到，在试一试就验证了，我也不知道有什么规律没有~~

smzli

好贴.其实我一直在为有时候不能输入汉字的问题不爽,我是英文系统.

涛子

我说一下，gbcbig.shx是工程标注字体，宽度因子为0.7

cad517

最初由 dxh 发布
[B]可是怎么才能知道对应字体特殊符号底代码呢? [/B]

用SHX Viewer 1.1软件，改软件本站有下载

http://www.xdcad.net/down/show.php?id=260

cad517

最初由 dxh 发布
[B]非常感谢,那个帖子好多内容我看不太懂,你还是好事做到底,直接告诉我输入特殊符号的代码吧. [/B]

1.国标编码，在acad中可以用“\M+5xxxx”方法输入。
2.区位码是10进制码，与国标码换算关系如下：
将国标编码分成高位及低位两段，各自减去A0，然后化为10进制，就是区位码。
3.gb字体中平方号0902就是国标码A9A2，输入时用\m+a9a2,钢筋要用\m+5a8f0，不过这样太烦了，可以用ll_j网友介绍的方法，在输入法中设定。
4.给你一个计算器，可以换算10进制和二进制，好像谁添过。

cad517

图

dxh

非常感谢CAD517.


转贴:我贴一个小程序，在acad中运行一下，在D盘根下产生一个asc.txt，这就是我们常用的字符，将此TXT文件用Mtext插入ACAD中，就可知大字体文件有哪些符号。
各符号对应的位置为国标编码，在acad中可以用“\M+5xxxx”方法输入（R14中Mtext不支持，dtext支持）。
区位码是10进制码，与国标码换算关系如下：
将国标编码分成高位及低位两段，各自减去A0，然后化为10进制，就是区位码。以上字体中平方号0902就是国标码A9A2……

2. [font=courier new]
   
3. code: (defun c:Asc (/ f1 i j k l m)
   
4.   (setq        f1 (open "d:\\asc.txt" "w")
   
5.         i  160
   
6.         j  159
   
7.         k  0
   
8.         l  0
   
9.   )
   
10.   (repeat 15
    
11.     (setq l (1+ l))
    
12.     (if (>= l 10)
    
13.       (setq m (chr (+ 55 l)))
    
14.       (setq m (chr (+ 48 l)))
    
15.     )
    
16.     (princ (strcat "A" m "\n") f1)
    
17.     (setq i (1+ i))
    
18.     (princ "   0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F\n" f1)
    
19.     (repeat 6
    
20.       (setq k (1+ k))
    
21.       (princ (strcat (chr (+ 64 k)) " ") f1)
    
22.       (repeat 16
    
23.         (setq j (1+ j))
    
24.         (if (= j 160)
    
25.           (princ "   " f1)
    
26.           (princ (strcat (chr i) (chr j) " ") f1)
    
27.         )
    
28.       )
    
29.       (princ "\n" f1)
    
30.     )
    
31.     (setq j 159 k 0)
    
32.     (princ "\n" f1)
    
33.   )
    
34.   (close f1)
    
35.   (princ)
    
36. )
    
37. [/font]

[font=courier new]<br /> code: (defun c:Asc (/ f1 i j k l m)<br />   (setq        f1 (open "d:\\asc.txt" "w")<br />         i  160<br />         j  159<br />         k  0<br />         l  0<br />   )<br />   (repeat 15<br />     (setq l (1+ l))<br />     (if (>= l 10)<br />       (setq m (chr (+ 55 l)))<br />       (setq m (chr (+ 48 l)))<br />     )<br />     (princ (strcat "A" m "\n") f1)<br />     (setq i (1+ i))<br />     (princ "   0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F\n" f1)<br />     (repeat 6<br />       (setq k (1+ k))<br />       (princ (strcat (chr (+ 64 k)) " ") f1)<br />       (repeat 16<br />         (setq j (1+ j))<br />         (if (= j 160)<br />           (princ "   " f1)<br />           (princ (strcat (chr i) (chr j) " ") f1)<br />         )<br />       )<br />       (princ "\n" f1)<br />     )<br />     (setq j 159 k 0)<br />     (princ "\n" f1)<br />   )<br />   (close f1)<br />   (princ)<br /> )<br /> [/font]

其它：陈老师的字体A1～A3、A7区的字符符号国标，可以直接用输入法中的一般符号输入方法输入。



请教CAD517怎么运行这个程序呀?怎么将此TXT文件用Mtext插入ACAD中.

dxh

cad517怎么不回答我呀.

yxc

简单的运行方法，复制以上程序代码，粘贴到acad命令行即可运行之~~

cad517

最初由 dxh 发布
[B]cad517怎么不回答我呀. [/B]

将该文件保持成*.lsp文件，在cad中加载运行，之后会在d盘产生一个asc.txt文件，打开它，复制到mtext（多行文字编辑器）中，你就看到了各个字符。


其实，用ShxViewer软件更方便一些！

cad517

在d盘产生的asc.txt文件，gbenor+gbcbig

cad517

复制到编辑器里

cad517

用ShxViewer打开gbenor.shx更方便

dxh

非常感谢CAD517，不过我现在很忙，没有时间去实践。

heping9805

当我在新建GB样式的时候，出现了这样的提示：“试图执行系统不支持的操作”然后就不能继续下去了。