一、程序功能与编写说明

　　1、本程序具有下列功能：

　　（1）直接在文本编辑器（EDIT、QE、WPS等等）编辑 、修改数据，免去AutoCAD文字编辑、修改之不便；

　　（2）可以自动分页，自动填写工程名称、档案号、日期等等；

　　（3）可以自动处理中线成果数据前后的空格，例如 ：“123123．123”将自动转化为“123123．23”；

　　（4）可以自动识别两种工程名称数据文件；

　　（5）文本状态下数据准确无误，出图前无需在Auto CAD中修改，调图速度和重新成图速度相差无几，可直接保存数据文件，节省磁盘空间。

　　2、程序说明：

　　程序利用AutoLISP的计算、判定、字符处理、循环结构以及调用Text命令等功能对读入的数据进行处理后填写，与本程序对应的Zxcg．dwg图形文件含四个表格图块，程序中的有关参数均取决于四个图块。　　

二、使用说明

　　1、关于中线成果数据格式：

　　（1）无曲线

　　第一行，总点数（N）

　　第二至七行，点名（NAME）、里程（K）、高程（H）、坐标X、Y、转角（B）……重复二至七行（没有数据项用空行代替）

　　（2）有曲线

　　第一行，总点数（N）

　　第二至十一行，点名（NAME）、里程（K）、高程（H）、坐标X、Y、转角B，半径R，切线长T、曲线长L、外矢矩E 　　……重复二至十一行（没有数据项用空行代替）

　　2、关于工程名称数据格式：

　　（1）单标题

　　第一行，工程名称

　　第二行，档案号（如测－3777／表，只需输入3777）

　　第三行，日期（可省略，取当前日期）

　　（2）双标题

　　第一行，工程名称大标题

　　第二行，工程名称小标题

　　第三行，档案号（如测－3777／表，只需输入3777）

　　第四行，日期（可省略，取当前日期）

三、加载及运行

　　在AutoCADR12（或AutoCADfor）中，把Zxcg ．lsp和Zxcg．dwg拷贝到SUPPORT子目录下，用鼠标点文件（File）下应用程序（Applications），或在Command ：下敲入Appload加载Zxcg．lsp，或在Command：下敲入（Load“Zxcg”）即可。然后在Command：下敲入ZX运行程序，本程序将中文提示。

四、结束语

　　该应用程序提供了两种形式的表格，有爱好的Auto CAD用户不妨增加几种表格，修改程序中对应的参数即可。

　　附源程序

　　．．．＊＊＊＊ERROR＊＊＊＊

　　（DEFUNERR（X）；IFANERROR（SUCHASCTRL－C）

　　OCCURS ；WHILETHISCOMMANDISACTIVE

　　（IF（AND（／ΚX″FUNCTIONCANCELLED ″）

　　（／ΚX″QUIT／EXITABORT″））

　　（PPINC（STRCAT″ιnERROR：″X）））

　　（SETVAR″CMDECHO″1）（SETVER″BLIPMODE″1）

　　（IF（ΚTYPERF）′FILE）（CLOSERF））

　　（IF（ΚTYPERN）′FILE）（CLOSERN））

　　（SETQRFNIL）（SETQRNNIL）

　　（SETQ＊ERROR＊OLDERR）；RESTOREOLD＊ERROR＊HANDLER

　　（PRINC））

　　．．．＊＊＊＊FILETOREAD＊＊＊＊

　　（DEFUNINPUT（）

　　（IF（ΚFF1nil）（SEFQFF1（GETVAR″DWGPREFIX″）））

　　（SETQF1（GETFILED″请输入中线成果数据文件″FF1″DAT″12））

　　（SETQLF（STRLENF1）FF1（SUBSTRF11（－LF4）））

　　（IF（ΚFF2nil）（SETQFF2FF1））

　　（SETQF2（GETFILED″请输入工程名称文件″FF2″TXT″12））

　　（SETQLF（STRLENF2）FF2（SUBSTRF21（－LF4）））

　　（initget″YesNo″）

　　（setqYN（getkword″ιn请选择有曲线元素Yes／No：（N）″））

　　（if（ΚYNnil）（SETQYN″No″）））

　　．．．＊＊＊＊DATAFORPROGRAMME＊＊＊＊＊

　　（DEFUNDDAT（）

　　（SETQRF（OPENF1″r″））（SETQRN（OPENF2″r″））

　　（SETQGN（READ－LINERN）GG1DAH（READ－LINERN））

　　（IF（ΚATOIDAH）0）（PROGN（SETQGG2GN2DAHDAH（READ－LINERN））））

　　（SETQDAT（READ－LINERN））

　　（IF（ΚDATNIL）（PROGN（SETQDAT（GETVAR″CDATE″））；取当前日期

　　（SETQDAT（FIXDAT））（SETQDAT（ITOADAT））

　　（SETQYY（SUBSTRDAT14）MM（SUBSTRDAT52））

　　（SETQDD（SUBSTRDAT72）DAT（STRCATYY″－″MM″－″DD））））

　　（SETQNO（READ－LINERF）N（ATOINO））

　　（SETQNF26NN29）；首、次页行数

　　（SETQM（FIX（＋（／（－NNF）NN）2）））：计算页数

　　（SETQNL（REM（－NNF）NN））（IF（ΚNL0）（SETQM（－M1）NLNN））

　　（IF（ΙΚNNF）PROGN（SETQM1）（SETQNLN）））

　　（princ″共读入″）（PRINCN）（PRINC″点，分″）（PRINCM）（PRINC″页填写！″）

　　（SETQYY8XX230）；行距、页距

　　（SETQI1X00Y00DAH（STRCAT″测－″DAH″／″））

　　（IF（ΚYN″NO″）（SETQDI（LIST678．58103．58125．08150．08180．08208．08））

　　（SETQDI（LIST1071．9088．39105．58122．61140．30156．83172．86188．07208．00232．））））

　　；表格项数及各项横坐标（X）

　　（SETQYYF285．0YYN305．7）；首、次页第一行纵坐标

　　．．．．＊＊＊＊删除数据前后空格（QKG）＊＊＊＊＊＊

　　（DEFUNQKG（）

　　（SETQLE1）

　　（WHILE（〈LE（STRLENTXT））（RPOGN（SETQLF（＋1LE））

　　（WHILE（Κ（SUBSTRTXT11）″″）（PROGN （SETQTXT（SUBSTRTXT2（STRLENTXT）））））））

　　（SETQLE（STRLENTXT））

　　（IF（〉LE2）（WHILE（AND（Κ（SUBSTRTXTLE1）″″）（ΛLE2））

　　（PROGN（SETQLE（－LE1）TXT（SUBSTRTXT1LE））））））

　　．．．．．＊＊＊＊＊ZXTX＊＊＊＊＊＊

　　（DEFUNZXTX（）

　　（PRINC″ιn正在填写中线成果数据，请稍候！″）

　　（WHILE（ΙΚIM）（PROGN（SETQPT0（LISTX0Y0））

　　（SETQP1（LIST（＋X0236．0）348．5））（SETQP2 （LIST（＋X0207．0）342．0））

　　（SETQP3（LIST（＋X0227．0）342．0））（SETQP4（LIST（＋X0222．2）335．6））

　　（IF（ΚYN″No″）（IF（ΚI1）（SETQZX″＊PZX－F″）（SETQZX″＊PZX－N″））；图块选择

　　（IF（ΚI1）（SETQZX″＊QZX－F″）（SETQZX″＊QZX－N″）））

　　（COMMAND″INSERT″ZXPT0″1″″0″）

　　（IF（ΚI1）（PROGN（SETQP2（LIST（＋X0207．0）336．0））

　　（SETQP3（LIST（＋X0227．0）336．0））（SETQP4 （LIST（＋X0222．2）329．6））

　　（SETQP5（LIST（＋X0125．1）329．5））（SETQP6（LIST（＋X0185．9）329．5））

　　（IF（ΚGG2）（PROGN（SETQP5（LIST（＋X0125．1 ）333．5））

　　（SETQP6（LIST（＋X0185．9）333．5））（SETQP7 （LIST（＋X0135．1）323．5））

　　（SETQP8（LIST（＋X0175．9）323．5））））

　　（COMMAND″TEXT″″S″″HZ″″J″″A″P5P6GN）

　　（COMMAND″TEXT″″J″″M″P4″2．5″″0″DAT ）

　　（IF（ΚGG2）（COMMAND）″TEXT″″J″″A″P7P8 GNZ））））

　　（IF（ΚI1）（SETQJNF）（SETQJNN））