服務(wù)熱線
0755-26825352
0755-26825352
18948189678
工程圖紙中經(jīng)常遇到大量表格填寫(xiě)，例如工程勘察中的成果表、設(shè)計(jì)的材料表，在AutoCAD中文字處理
比較差，用TEXT、DTEXT命令在表格中定位也不方便，填寫(xiě)的表格既不美觀，還容易出錯(cuò)。在一些雜志中有
關(guān)表格填寫(xiě)程序介紹，但是使用不方便，也不能連續(xù)填寫(xiě)多個(gè)表格，長(zhǎng)距離線路勘察中線轉(zhuǎn)點(diǎn)少則幾十個(gè)，
多則上千，中線數(shù)據(jù)可由計(jì)算直接生成，能否利用中線數(shù)據(jù)直接填表出圖。利用AutoCAD二次開(kāi)發(fā)，編寫(xiě)中
線成果填寫(xiě)程序（zxcg．lsp），改變以往出圖工序（填寫(xiě)、校對(duì)），大大提高工作效率。
一、程序功能與編寫(xiě)說(shuō)明
1、本程序具有下列功能：
（1）直接在文本編輯器（EDIT、QE、WPS等等）編輯、修改數(shù)據(jù)，免去AutoCAD文字編輯、修改之不便；
（2）可以自動(dòng)分頁(yè)，自動(dòng)填寫(xiě)工程名稱、檔案號(hào)、日期等等；
（3）可以自動(dòng)處理中線成果數(shù)據(jù)前后的空格，例如：
“123123．123”將自動(dòng)轉(zhuǎn)化為“123123．123”；
（4）可以自動(dòng)識(shí)別兩種工程名稱數(shù)據(jù)文件；
（5）文本狀態(tài)下數(shù)據(jù)正確無(wú)誤，出圖前無(wú)需在Auto?睠AD中修改，調(diào)圖速度和重新成圖速度相差無(wú)幾，
可直接保存數(shù)據(jù)文件，節(jié)省磁盤空間。
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)于中線成果數(shù)據(jù)格式：
（1）無(wú)曲線
第一行，總點(diǎn)數(shù)（N）
第二至七行，點(diǎn)名（NAME）、里程（K）、高程（H）、坐標(biāo)X、Y、轉(zhuǎn)角（B）……重復(fù)二至七行（沒(méi)有數(shù)
據(jù)項(xiàng)用空行代替）
（2）有曲線
第一行，總點(diǎn)數(shù)（N）
第二至十一行，點(diǎn)名（NAME）、里程（K）、高程（H）、坐標(biāo)X、Y、轉(zhuǎn)角B，半徑R，切線長(zhǎng)T、曲線長(zhǎng)
L、外矢矩E……重復(fù)二至十一行（沒(méi)有數(shù)據(jù)項(xiàng)用空行代替）
2、關(guān)于工程名稱數(shù)據(jù)格式：
（1）單標(biāo)題
第一行，工程名稱
第二行，檔案號(hào)（如測(cè)－3777／表，只需輸入3777）
第三行，日期（可省略，取當(dāng)前日期）
（2）雙標(biāo)題
第一行，工程名稱大標(biāo)題
第二行，工程名稱小標(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?瞞and：下敲入Appload加載Zxcg．lsp，或在
command：下敲入（Load“Zxcg”）即可。然后在Command：下敲入ZX運(yùn)行程序，本程序?qū)⒅形奶崾尽?nbsp;
四、結(jié)束語(yǔ)
該應(yīng)用程序提供了兩種形式的表格，有興趣的AutoCAD用戶不妨增加幾種表格，修改程序中對(duì)應(yīng)的參數(shù)
即可。
附源程序
?。狤RROR＊＊＊＊
（DEFUNERR（X）
??；IFANERROR（SUCHASCTRL－C）
OCCURS
??；WHILETHISCOMMANDISACTIVE
（IF（AND（／ΚX″FUNCTIONCANCELLED″）
（／ΚX″QUIT／EXITABORT″））
（PPINC（STRCAT″ιnERROR：″X）））
（SETVAR″CMDECHO″1）（SETVER″BLIP?睲ODE″1）
（IF（ΚTYPERF）′FILE）（CLOSERF））
（IF（ΚTYPERN）′FILE）（CLOSERN））
（SETQRFNIL）（SETQRNNIL）
（SETQ＊ERROR＊OLDERR）
??；RESTOREOLD＊ERROR＊HANDLER
（PRINC））
?。狥ILETOREAD＊＊＊＊
（DEFUNINPUT（）
（IF（ΚFF1nil）（SEFQFF1（GETVAR″DWGPREFIX″）））
（SETQF1（GETFILED″請(qǐng)輸入中線成果數(shù)據(jù)文件″FF1″DAT″12））
（SETQLF（STRLENF1）FF1（SUBSTRF11（－LF4）））
（IF（ΚFF2nil）（SETQFF2FF1））
（SETQF2（GETFILED″請(qǐng)輸入工程名稱文件″FF2″TXT″12））
（SETQLF（STRLENF2）FF2（SUBSTRF21（－LF4）））
（initget″YesNo″）
（setqYN（getkword″ιn請(qǐng)選擇有曲線元素Yes／No：（N）″））
（if（ΚYNnil）（SETQYN″No″）））
?。狣ATAFORPROGRAMME＊＊＊＊＊
（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″））；取當(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)
