服務(wù)熱線
0755-26825352
0755-26825352
18948189678
工程圖紙中經(jīng)常遇到大量表格填寫，例如工程勘察中的成果表、設(shè)計(jì)的材料表，在AutoCAD中文字處理
比較差，用TEXT、DTEXT命令在表格中定位也不方便，填寫的表格既不美觀，還容易出錯。在一些雜志中有
關(guān)表格填寫程序介紹，但是使用不方便，也不能連續(xù)填寫多個(gè)表格，長距離線路勘察中線轉(zhuǎn)點(diǎn)少則幾十個(gè)，
多則上千，中線數(shù)據(jù)可由計(jì)算直接生成，能否利用中線數(shù)據(jù)直接填表出圖。利用AutoCAD二次開發(fā)，編寫中
線成果填寫程序（zxcg．lsp），改變以往出圖工序（填寫、校對），大大提高工作效率。
一、程序功能與編寫說明
1、本程序具有下列功能：
（1）直接在文本編輯器（EDIT、QE、WPS等等）編輯、修改數(shù)據(jù)，免去AutoCAD文字編輯、修改之不便；
（2）可以自動分頁，自動填寫工程名稱、檔案號、日期等等；
（3）可以自動處理中線成果數(shù)據(jù)前后的空格，例如：
“123123．123”將自動轉(zhuǎn)化為“123123．123”；
（4）可以自動識別兩種工程名稱數(shù)據(jù)文件；
（5）文本狀態(tài)下數(shù)據(jù)正確無誤，出圖前無需在Auto?睠AD中修改，調(diào)圖速度和重新成圖速度相差無幾，
可直接保存數(shù)據(jù)文件，節(jié)省磁盤空間。
2、程序說明：
程序利用AutoLISP的計(jì)算、判斷、字符處理、循環(huán)結(jié)構(gòu)以及調(diào)用Text命令等功能對讀入的數(shù)據(jù)進(jìn)行處理
后填寫，與本程序?qū)?yīng)的Zxcg．dwg圖形文件含四個(gè)表格圖塊，程序中的有關(guān)參數(shù)均取決于四個(gè)圖塊。
二、使用說明
1、關(guān)于中線成果數(shù)據(jù)格式：
（1）無曲線
第一行，總點(diǎn)數(shù)（N）
第二至七行，點(diǎn)名（NAME）、里程（K）、高程（H）、坐標(biāo)X、Y、轉(zhuǎn)角（B）……重復(fù)二至七行（沒有數(shù)
據(jù)項(xiàng)用空行代替）
（2）有曲線
第一行，總點(diǎn)數(shù)（N）
第二至十一行，點(diǎn)名（NAME）、里程（K）、高程（H）、坐標(biāo)X、Y、轉(zhuǎn)角B，半徑R，切線長T、曲線長
L、外矢矩E……重復(fù)二至十一行（沒有數(shù)據(jù)項(xiàng)用空行代替）
2、關(guān)于工程名稱數(shù)據(jù)格式：
（1）單標(biāo)題
第一行，工程名稱
第二行，檔案號（如測－3777／表，只需輸入3777）
第三行，日期（可省略，取當(dāng)前日期）
（2）雙標(biāo)題
第一行，工程名稱大標(biāo)題
第二行，工程名稱小標(biāo)題
第三行，檔案號（如測－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īng)用程序提供了兩種形式的表格，有興趣的AutoCAD用戶不妨增加幾種表格，修改程序中對應(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）
?。籖ESTOREOLD＊ERROR＊HANDLER
（PRINC））
?。狥ILETOREAD＊＊＊＊
（DEFUNINPUT（）
（IF（ΚFF1nil）（SEFQFF1（GETVAR″DWGPREFIX″）））
（SETQF1（GETFILED″請輸入中線成果數(shù)據(jù)文件″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?睺E″））；取當(dāng)前日期
（SETQDAT（FIXDAT））（SETQDAT（ITOADAT））
（SETQYY（SUBSTRDAT14）MM（SUBSTRDAT52））
（SETQDD（SUBSTRDAT72）DAT（STRCATYY″－″MM″－″DD））））
（SETQNO（READ－LINERF）N（ATOINO））
（SETQNF26NN29）；首、次頁行數(shù)
（SETQM（FIX（＋（／（－NNF）NN）2）））：計(jì)算頁數(shù)
（SETQNL（REM（－NNF）NN））（IF（ΚNL0）（SETQM（－M1）NLNN））
（IF（ΙΚNNF）PROGN（SETQM1）（SETQNLN）））
（princ″共讀入″）（PRINCN）（PRINC″點(diǎn)，分″）（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））））
?。槐砀耥?xiàng)數(shù)及各項(xiàng)橫坐標(biāo)（X）
（SETQYYF285．0YYN305．7）；首、次頁第一行縱坐標(biāo)
