三、加载及运行
在AutoCADR12(或AutoCADforWindows)中,把Zxcg.lsp和Zxcg.dwg拷贝到SUPPORT子目录下,用鼠标点文件(File)下应用程序(Applications),或在Command:下敲入Appload加载Zxcg.lsp,或在command:下敲入(Load“Zxcg”)即可。然后在Command:下敲入ZX运行程序,本程序将中文提示。
四、结束语
该应用程序提供了两种形式的表格,有兴趣的AutoCAD用户不妨增加几种表格,修改程序中对应的参数即可。
附源程序
...****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.73))))
;表格项数及各项横坐标(X)
(SETQYYF285.0YYN305.7);首、次页第一行纵坐标
....****删除数据前后空格(QKG)***