服務(wù)熱線(xiàn)
0755-26825352
0755-26825352
18948189678
工程圖紙中經(jīng)常遇到大量表格填寫(xiě)，例如工程勘察中的成果表、設計的材料表，在A(yíng)utoCAD中文字處理
比較差，用TEXT、DTEXT命令在表格中定位也不方便，填寫(xiě)的表格既不美觀(guān)，還容易出錯。在一些雜志中有
關(guān)表格填寫(xiě)程序介紹，但是使用不方便，也不能連續填寫(xiě)多個(gè)表格，長(cháng)距離線(xiàn)路勘察中線(xiàn)轉點(diǎn)少則幾十個(gè)，
多則上千，中線(xiàn)數據可由計算直接生成，能否利用中線(xiàn)數據直接填表出圖。利用AutoCAD二次開(kāi)發(fā)，編寫(xiě)中
線(xiàn)成果填寫(xiě)程序（zxcg．lsp），改變以往出圖工序（填寫(xiě)、校對），大大提高工作效率。
一、程序功能與編寫(xiě)說(shuō)明
1、本程序具有下列功能：
（1）直接在文本編輯器（EDIT、QE、WPS等等）編輯、修改數據，免去AutoCAD文字編輯、修改之不便；
（2）可以自動(dòng)分頁(yè)，自動(dòng)填寫(xiě)工程名稱(chēng)、檔案號、日期等等；
（3）可以自動(dòng)處理中線(xiàn)成果數據前后的空格，例如：
“123123．123”將自動(dòng)轉化為“123123．123”；
（4）可以自動(dòng)識別兩種工程名稱(chēng)數據文件；
（5）文本狀態(tài)下數據正確無(wú)誤，出圖前無(wú)需在A(yíng)uto?睠AD中修改，調圖速度和重新成圖速度相差無(wú)幾，
可直接保存數據文件，節省磁盤(pán)空間。
2、程序說(shuō)明：
程序利用AutoLISP的計算、判斷、字符處理、循環(huán)結構以及調用Text命令等功能對讀入的數據進(jìn)行處理
后填寫(xiě)，與本程序對應的Zxcg．dwg圖形文件含四個(gè)表格圖塊，程序中的有關(guān)參數均取決于四個(gè)圖塊。
二、使用說(shuō)明
1、關(guān)于中線(xiàn)成果數據格式：
（1）無(wú)曲線(xiàn)
第一行，總點(diǎn)數（N）
第二至七行，點(diǎn)名（NAME）、里程（K）、高程（H）、坐標X、Y、轉角（B）……重復二至七行（沒(méi)有數
據項用空行代替）
（2）有曲線(xiàn)
第一行，總點(diǎn)數（N）
第二至十一行，點(diǎn)名（NAME）、里程（K）、高程（H）、坐標X、Y、轉角B，半徑R，切線(xiàn)長(cháng)T、曲線(xiàn)長(cháng)
L、外矢矩E……重復二至十一行（沒(méi)有數據項用空行代替）
2、關(guān)于工程名稱(chēng)數據格式：
（1）單標題
第一行，工程名稱(chēng)
第二行，檔案號（如測－3777／表，只需輸入3777）
第三行，日期（可省略，取當前日期）
（2）雙標題
第一行，工程名稱(chēng)大標題
第二行，工程名稱(chēng)小標題
第三行，檔案號（如測－3777／表，只需輸入3777）
第四行，日期（可省略，取當前日期）
三、加載及運行
在A(yíng)utoCADR12（或AutoCADforWindows）中，把Zxcg．lsp和Zxcg．dwg拷貝到SUPPORT子目錄下，用鼠標
點(diǎn)文件（File）下應用程序（Applications），或在Com?瞞and：下敲入Appload加載Zxcg．lsp，或在
command：下敲入（Load“Zxcg”）即可。然后在Command：下敲入ZX運行程序，本程序將中文提示。
四、結束語(yǔ)
該應用程序提供了兩種形式的表格，有興趣的AutoCAD用戶(hù)不妨增加幾種表格，修改程序中對應的參數
即可。
附源程序
．．．＊＊＊＊ERROR＊＊＊＊
（DEFUNERR（X）
；IFANERROR（SUCHASCTRL－C）
OCCURS
；WHILETHISCOMMANDISACTIVE
（IF（AND（／ΚX″FUNCTIONCANCELLED″）
（／ΚX″QUIT／EXITABORT″））
（PPINC（STRCAT″ιnERROR：″X(qián)）））
（SETVAR″CMDECHO″1）（SETVER″BLIP?睲ODE″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″請輸入中線(xiàn)成果數據文件″FF1″DAT″12））
（SETQLF（STRLENF1）FF1（SUBSTRF11（－LF4）））
（IF（ΚFF2nil）（SETQFF2FF1））
（SETQF2（GETFILED″請輸入工程名稱(chēng)文件″FF2″TXT″12））
（SETQLF（STRLENF2）FF2（SUBSTRF21（－LF4）））
（initget″YesNo″）
（setqYN（getkword″ιn請選擇有曲線(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?睺E″））；取當前日期
（SETQDAT（FIXDAT））（SETQDAT（ITOADAT））
（SETQYY（SUBSTRDAT14）MM（SUBSTRDAT52））
（SETQDD（SUBSTRDAT72）DAT（STRCATYY″－″MM″－″DD））））
（SETQNO（READ－LINERF）N（ATOINO））
（SETQNF26NN29）；首、次頁(yè)行數
（SETQM（FIX（＋（／（－NNF）NN）2）））：計算頁(yè)數
（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″測－″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）；首、次頁(yè)第一行縱坐標
