比較差,用TEXT、DTEXT命令在表格中定位也不方便,填寫的表格既不美觀,還容易出錯。在一些雜誌中有
關表格填寫程序介紹,但是使用不方便,也不能連續填寫多個表格,長距離線路勘察中線轉點少則幾十個,
多則上千,中線數據可由計算直接生成,能否利用中線數據直接填表出圖。利用AutoCAD二次開發,編寫中
線成果填寫程序(zxcg.lsp),改變以往出圖工序(填寫、校對),大大提高工作效率。
一、程序功能與編寫說明
1、本程序具有下列功能:
(1)直接在文本編輯器(EDIT、QE、WPS等等)編輯、修改數據,免去AutoCAD文字編輯、修改之不便;
(2)可以自動分頁,自動填寫工程名稱、檔案號、日期等等;
(3)可以自動處理中線成果數據前後的空格,例如:
“123123.123”將自動轉化爲“123123.123”;
(4)可以自動識別兩種工程名稱數據文件;
(5)文本狀態下數據正確無誤,出圖前無需在AutoCAD中修改,調圖速度和重新成圖速度相差無幾,
可直接保存數據文件,節省磁盤空間。
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),或在Command:下敲入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″BLIPMODE″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″CDATE″));取當前日期
(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)***