本文探討了AutoCAD的表格自動化應用方法。

　　工程圖紙中經常遇到大量表格填寫，例如工程勘察中的成果表、設計的材料表，在AutoCAD中文字處理

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

　　關表格填寫程序介紹，但是使用不方便，也不能連續填寫多個表格，長距離線路勘察中線轉點少則幾十個，

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

　　一、程序功能與編寫說明

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

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

　　(2)可以自動分頁，自動填寫工程名稱、檔案號、日期等等;

　　(3)可以自動處理中線成果數據前后的空格，例如：

　　“123123.123”將自動轉化為“123123.123”;

　　(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(或AutoCADforWindows)中，把Zxcg.lsp和Zxcg.dwg拷貝到SUPPORT子目錄下，用鼠標

　　點文件(File)下應用程序(Applications)，或在Com?mand：下敲入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″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″請輸入中線成果數據文件″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″CDA?TE″));取當前日期

　　(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)***