本文探討了AutoCAD的表格自動(dòng)化應(yīng)用方法。

　　工程圖紙中經(jīng)常遇到大量表格填寫(xiě)，例如工程勘察中的成果表、設(shè)計(jì)的材料表，在AutoCAD中文字處理

　　比較差，用TEXT、DTEXT命令在表格中定位也不方便，填寫(xiě)的表格既不美觀，還容易出錯(cuò)。在一些雜志中有

　　關(guān)表格填寫(xiě)程序介紹，但是使用不方便，也不能連續(xù)填寫(xiě)多個(gè)表格，長(zhǎng)距離線(xiàn)路勘察中線(xiàn)轉(zhuǎn)點(diǎn)少則幾十個(gè)，

　　多則上千，中線(xiàn)數(shù)據(jù)可由計(jì)算直接生成，能否利用中線(xiàn)數(shù)據(jù)直接填表出圖。利用AutoCAD二次開(kāi)發(fā)，編寫(xiě)中線(xiàn)成果填寫(xiě)程序(zxcg.lsp)，改變以往出圖工序(填寫(xiě)、校對(duì))，大大提高工作效率。

　　一、程序功能與編寫(xiě)說(shuō)明

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

　　(1)直接在文本編輯器(EDIT、QE、WPS等等)編輯、修改數(shù)據(jù)，免去AutoCAD文字編輯、修改之不便;

　　(2)可以自動(dòng)分頁(yè)，自動(dòng)填寫(xiě)工程名稱(chēng)、檔案號(hào)、日期等等;

　　(3)可以自動(dòng)處理中線(xiàn)成果數(shù)據(jù)前后的空格，例如：

　　“123123.123”將自動(dòng)轉(zhuǎn)化為“123123.123”;

　　(4)可以自動(dòng)識(shí)別兩種工程名稱(chēng)數(shù)據(jù)文件;

　　(5)文本狀態(tài)下數(shù)據(jù)正確無(wú)誤，出圖前無(wú)需在Auto?CAD中修改，調(diào)圖速度和重新成圖速度相差無(wú)幾，

　　可直接保存數(shù)據(jù)文件，節(jié)省磁盤(pán)空間。

　　2、程序說(shuō)明：

　　程序利用AutoLISP的計(jì)算、判斷、字符處理、循環(huán)結(jié)構(gòu)以及調(diào)用Text命令等功能對(duì)讀入的數(shù)據(jù)進(jìn)行處理

　　后填寫(xiě)，與本程序?qū)?yīng)的Zxcg.dwg圖形文件含四個(gè)表格圖塊，程序中的有關(guān)參數(shù)均取決于四個(gè)圖塊。

　　二、使用說(shuō)明

　　1、關(guān)于中線(xiàn)成果數(shù)據(jù)格式：

　　(1)無(wú)曲線(xiàn)

　　第一行，總點(diǎn)數(shù)(N)

　　第二至七行，點(diǎn)名(NAME)、里程(K)、高程(H)、坐標(biāo)X、Y、轉(zhuǎn)角(B)……重復(fù)二至七行(沒(méi)有數(shù)

　　據(jù)項(xiàng)用空行代替)

　　(2)有曲線(xiàn)

　　第一行，總點(diǎn)數(shù)(N)

　　第二至十一行，點(diǎn)名(NAME)、里程(K)、高程(H)、坐標(biāo)X、Y、轉(zhuǎn)角B，半徑R，切線(xiàn)長(zhǎng)T、曲線(xiàn)長(zhǎng)

　　L、外矢矩E……重復(fù)二至十一行(沒(méi)有數(shù)據(jù)項(xiàng)用空行代替)

　　2、關(guān)于工程名稱(chēng)數(shù)據(jù)格式：

　　(1)單標(biāo)題

　　第一行，工程名稱(chēng)

　　第二行，檔案號(hào)(如測(cè)-3777/表，只需輸入3777)

　　第三行，日期(可省略，取當(dāng)前日期)

　　(2)雙標(biāo)題

　　第一行，工程名稱(chēng)大標(biāo)題

　　第二行，工程名稱(chēng)小標(biāo)題

　　第三行，檔案號(hào)(如測(cè)-3777/表，只需輸入3777)

　　第四行，日期(可省略，取當(dāng)前日期)

　　三、加載及運(yùn)行

　　在AutoCADR12(或AutoCADforWindows)中，把Zxcg.lsp和Zxcg.dwg拷貝到SUPPORT子目錄下，用鼠標(biāo)

　　點(diǎn)文件(File)下應(yīng)用程序(Applications)，或在Com?mand：下敲入Appload加載Zxcg.lsp，或在

　　command：下敲入(Load“Zxcg”)即可。然后在Command：下敲入ZX運(yùn)行程序，本程序?qū)⒅形奶崾尽?/p>

　　四、結(jié)束語(yǔ)

　　該應(yīng)用程序提供了兩種形式的表格，有興趣的AutoCAD用戶(hù)不妨增加幾種表格，修改程序中對(duì)應(yīng)的參數(shù)

　　即可。

　　附源程序

　　...****ERROR****

　　(DEFUNERR(X)

　　;IFANERROR(SUCHASCTRL-C)

　　OCCURS

　　;WHILETHISCOMMANDISACTIVE

　　(IF(AND(/ΚX″FUNCTIONCANCELLED″)

　　(/ΚX″QUIT/EXITABORT″))

　　(PPINC(STRCAT″ιnERROR：″X)))

　　(SETVAR″CMDECHO″1)(SETVER″BLIP?MODE″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″請(qǐng)輸入中線(xiàn)成果數(shù)據(jù)文件″FF1″DAT″12))

　　(SETQLF(STRLENF1)FF1(SUBSTRF11(-LF4)))

　　(IF(ΚFF2nil)(SETQFF2FF1))

　　(SETQF2(GETFILED″請(qǐng)輸入工程名稱(chēng)文件″FF2″TXT″12))

　　(SETQLF(STRLENF2)FF2(SUBSTRF21(-LF4)))

　　(initget″YesNo″)

　　(setqYN(getkword″ιn請(qǐng)選擇有曲線(xià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″CDA?TE″));取當(dāng)前日期

　　(SETQDAT(FIXDAT))(SETQDAT(ITOADAT))

　　(SETQYY(SUBSTRDAT14)MM(SUBSTRDAT52))

　　(SETQDD(SUBSTRDAT72)DAT(STRCATYY″-″MM″-″DD))))

　　(SETQNO(READ-LINERF)N(ATOINO))

　　(SETQNF26NN29);首、次頁(yè)行數(shù)

　　(SETQM(FIX(+(/(-NNF)NN)2)))：計(jì)算頁(yè)數(shù)

　　(SETQNL(REM(-NNF)NN))(IF(ΚNL0)(SETQM(-M1)NLNN))

　　(IF(ΙΚNNF)PROGN(SETQM1)(SETQNLN)))

　　(princ″共讀入″)(PRINCN)(PRINC″點(diǎn)，分″)(PRINCM)(PRINC″頁(yè)填寫(xiě)!″)

　　(SETQYY8XX230);行距、頁(yè)距

　　(SETQI1X00Y00DAH(STRCAT″測(cè)-″DAH″/″))

　　(IF(ΚYN″NO″)(SETQDI(LIST678.58103.58125.08150.08180.08208.08))

　　(SETQDI(LIST1071.9088.39105.58122.61140.30156.83172.86188.07208.00232.73))))

　　;表格項(xiàng)數(shù)及各項(xiàng)橫坐標(biāo)(X)

　　(SETQYYF285.0YYN305.7);首、次頁(yè)第一行縱坐標(biāo)

　　....****刪除數(shù)據(jù)前后空格(QKG)***