服務熱線
0755-26825352
0755-26825352
18948189678
工程圖紙中經常遇到大量表格填寫，例如工程勘察中的成果表、設計的材料表，在AutoCAD中文字處理
比較差，用TEXT、DTEXT命令在表格中定位也不方便，填寫的表格既不美觀，還容易出錯。在一些雜志中有
關表格填寫程序介紹，但是使用不方便，也不能連續(xù)填寫多個表格，長距離線路勘察中線轉點少則幾十個，
多則上千，中線數據可由計算直接生成，能否利用中線數據直接填表出圖。利用AutoCAD二次開發(fā)，編寫中
線成果填寫程序（zxcg．lsp），改變以往出圖工序（填寫、校對），大大提高工作效率。
一、程序功能與編寫說明
1、本程序具有下列功能：
（1）直接在文本編輯器（EDIT、QE、WPS等等）編輯、修改數據，免去AutoCAD文字編輯、修改之不便；
（2）可以自動分頁，自動填寫工程名稱、檔案號、日期等等；
（3）可以自動處理中線成果數據前后的空格，例如：
“123123．123”將自動轉化為“123123．123”；
（4）可以自動識別兩種工程名稱數據文件；
（5）文本狀態(tài)下數據正確無誤，出圖前無需在Auto?睠AD中修改，調圖速度和重新成圖速度相差無幾，
可直接保存數據文件，節(jié)省磁盤空間。
2、程序說明：
程序利用AutoLISP的計算、判斷、字符處理、循環(huán)結構以及調用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?瞞and：下敲入Appload加載Zxcg．lsp，或在
command：下敲入（Load“Zxcg”）即可。然后在Command：下敲入ZX運行程序，本程序將中文提示。
四、結束語
該應用程序提供了兩種形式的表格，有興趣的AutoCAD用戶不妨增加幾種表格，修改程序中對應的參數
即可。
附源程序
?。狤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））
．．．＊＊＊＊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″）））
?。狣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″））；取當前日期
（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）；首、次頁第一行縱坐標
