在AUTO CAD中使用汉字的一些技巧

Author: 河南陈红 Date: 1996-01-12

        一、利用西文AUTO CAD速度快的特点，先在西文方式下绘图，然后把图调到汉化方式下写汉字，这对于汉字比较少的情况，不失为一种办法。
        二、把常用的汉字以块的形式存储起来，需要时直接用块插入，这样做比较简便，但需要一个汉字库，我们可以直接借用汉化AUTO CAD中的汉字矢量库，字库的文件名是HZTXT.SHX，先把在汉化AUTO CAD目录下的HZTXT.SHX文件拷贝到西文AUTO CAD目录下，然后在西文图形方式中用STYLE命令配置即可。
        COMMAND：STYLE
        STANDARD
        HZTXT
        三、当输入的汉字比较多时，可先把文字用WPS或WS等其它文字处理程序以文本文件(.TXT)方式存储起来，利用AUTO LISP编一程读出文字内容，然后写到合适的位置上。
        HZ.LSP程序清单如下：
        (defun c:HZ()
        (command:"style""standard""hxtxt""5""1""""""\r)
        (setq p (getpoint "start point:\n"))
        (setq num getint "enter line:"))
        (setq f (open "wz.txt""r"))
        (setq a l)
        (while (<=a num)
        (setq d (read-line f))
        (command "text" p "d\r)
        (setq p (list(car p)(-(cadr p)8)))
        (setq a (+a l))
        )
        (close f)
        )
        p:写文字的起始位置
        num:文字的行数
        在汉化AUTO CAD中写文字，汉字比英文字母和数字要小，这是由于汉字矢量库文件构成时，定义字体本身有关信息存在一些问题。在HZTXT.SHX文件中，有一“字体高度”参数，它是保证能正确绘出所需大小汉字字形的关键数据，该参数用于TEXT命令计算字体高度所具有的比例因子，直接影响到绘出或显示的字形的大小，只需将该参数修正过来即可，方法为：
        C:\CAD\DEBUG HZTXT.SHX
        -E 847D 0F
        -W
        -Q
        C:\CAD