在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