使用ITX之前应先用EDIT等文本编辑软件编辑需要插入到AUTOCAD中文字内容

　　ITX的主要功能有：

　　・自动产生汉字字型；

　　・自动计算行间距；

　　・答应多次修改各个选项的内容；

　　・判定是否存在指定的文件或字型；

　　・保存原有的字型设置。

　　ITX的使用方式如下：

　　・将ITX．LSP拷贝至ACAD12下面的SUPPORT子目录下；

　　・修改SUPPORT子目录下的ACADR12．LSP文件，在该文件中加入（autoload＂itx＂＇（＂itx＂））；

　　・键入ITX启动程序；

　　・首先输入插入的文件名（可以带目录），假如指定的文件不存在，程序将退出；

　　・指定插入点；

　　・输入字型，缺省的字型为HZ。

　　假如用户使用缺省字型（HZ）而且已经定义了该字型，程序则把它设定为当前字型；否则将程序自动产生的HZ 字型设定为当前字型。假如指定的字型不存在，程序将退出。

　　・输入字高，缺省值是当前字高。可以输入数值，也可使用鼠标指定两点确定字高。

　　・输入字间距。首次显示的缺省值是字高的1．5倍。输入方式同上。

　　・确定是否进行调整。回答“Y”重新设定插入点、字型、字高及字间距，直到满足为止。回答“N”结束程序。

　　程序清单如下：

　　程序名：ITX．LSP

　　程序内容：

　　（defun＊ERROR＊（err）（prompt＂ιn非正常退出！请查明是否存在指定的文件或字型．＂）（princ））

　　（defunc：itx（／osfnamekspttslsdstxtdtne）

　　（graphscr）（princ＂ιn插入文字程序．＂）

　　（setvar＂cmdecho＂0）（setvar＂blipmode＂0）

　　（setqos（getvar＂textstyle＂））

　　（setqfname（getstring＂ιn请输入文件名：＂）

）

　　（setqtxt（openfname＂r＂））

　　（if（nulltxt）（quit））

　　（if（tblsearch＂style＂＂HZ＂）

　　（setvar＂textstyle＂＂HZ＂）

　　（command＂style＂＂HZ＂＂txt，hztxt＂＂＂＂0

．85＂＂＂＂＂＂＂＂＂））

　　（setqk＂Y＂）（while（Κk＂Y＂）

　　（if（nullsp）（princ＂ιn请指定插入点：＂）

　　（princ＂ιn请指定插入点〈原插入点〉：＂））

　　（setqt（getpoint））

　　（if（／Κtnil）（setqspt））

　　（setqts（getvar＂textstyle＂））

　　（princ（strcat＂ιn请输入字型名Ι＂ts＂Λ：＂

））

　　（setqt（getstring））

　　（if（／Κt＂＂）（setqtst））

　　（setqe（tblsearch＂style＂ts））

　　（if（nulle）（quit））

　　（setvar＂textstyle＂ts）

　　（princ（strcat＂ιn输入字高Ι＂（rtos（getvar

＂textsize＂））＂Λ：＂））

　　（initget32）（setqt（getdist））

　　（if（／Κtnil）（setvar＂textsize＂t））

　　（if（nullls）（setqls（＊1．5（getvar＂textsi

ze：）））

　　（princ（strcat＂ιn输入字间距Ι＂（rtosls）＂

Λ：＂））

　　（initget32）（setqt（getdist））

　　（if（／Κtnil）（setqlst））

　　（setqds（strcat＂Ν＂（rtosls）＂Ι－90＂））

　　（setqtxt（openfname＂r＂））

　　（setqdt（read－linetxt））

　　（command＂undo＂＂mark＂）

　　（command＂text＂sp＂＂＂＂dt）

　　（setqdt（read－linetxt））

　　（whiledt

　　（command＂text＂ds＂＂＂＂dt）

　　（setqdt（read－linetxt）））

　　（closetxt）

　　（setqk（strcase（getstring＂ιn是否进行调整［

Y／N］ΙNΛ：＂）））

　　（if（Κ＂Y＂k）（command＂undo＂＂back＂））

）

　　（setvar＂cmdecho＂1）

　　（setvar＂blipmode＂1）

　　（setvar＂textstyle＂os）

　　（princ）

　　）