復(fù)雜征地圖標(biāo)注使用LISP 語(yǔ)言實(shí)現(xiàn)的方法

劉存桂 唐 勇

(安徽省交通規(guī)劃設(shè)計(jì)研究總院股份有限公司，安徽合肥 230088)

1 使用緯地本身的標(biāo)注方法的弊端

在使用緯地生成征地線的時(shí)候，隨征地線同時(shí)生成的征地線點(diǎn)位標(biāo)注僅能反映當(dāng)前征地線的點(diǎn)位坐標(biāo)，那么當(dāng)征地線修改的時(shí)候，這個(gè)標(biāo)注已經(jīng)不能反映更改后的征地線的實(shí)際位置了。要修改更改后點(diǎn)的位置坐標(biāo)，在緯地中通常先使用工具—＞點(diǎn)到曲線的命令求出該點(diǎn)的樁號(hào)和距離，然后手動(dòng)更改原來(lái)的標(biāo)注值。當(dāng)只有極少數(shù)點(diǎn)需重新標(biāo)注時(shí)，這種方法也不算太過(guò)浪費(fèi)時(shí)間。但是，現(xiàn)在的征地圖通常需要從項(xiàng)目起點(diǎn)到項(xiàng)目終點(diǎn)全線微調(diào)，那就涉及成千上萬(wàn)的點(diǎn)位需要重新標(biāo)注，再使用緯地自身的標(biāo)注方法顯然不太現(xiàn)實(shí)。

而且，現(xiàn)在業(yè)主一般要求每個(gè)點(diǎn)位要標(biāo)注完整的樁號(hào)，而不是簡(jiǎn)化的樁號(hào)(例如K0+220要標(biāo)注完整的K0+200，而不是緯地里簡(jiǎn)化的+200)，這樣也便于在實(shí)際征地放樣中快速的找到所需的位置。而這個(gè)要求是緯地?zé)o能為力的。

2 本程序的由來(lái)和構(gòu)思

基于緯地的弊端和業(yè)主的要求，我們考慮能不能使用LISP擴(kuò)展程序一次性解決以上的問(wèn)題，能不能使生成好的標(biāo)注不需要進(jìn)行再次的加工(譬如:更改字體，更改圖層，更新標(biāo)注內(nèi)容等等)，這就是本程序的由來(lái)。那么，有了編制這個(gè)程序的想法，就需要好好構(gòu)思這個(gè)程序的組織結(jié)構(gòu)使其能準(zhǔn)確無(wú)誤的實(shí)現(xiàn)目標(biāo)要求。最終定下的實(shí)現(xiàn)方法為:1)把生成的道路中線連成一個(gè)整體的多段線。2)使用一個(gè)主程序，提供用戶選擇道路中線，要標(biāo)注的征地線和輸入路線起點(diǎn)樁號(hào)的接口。3)為了應(yīng)付特殊情況，需要增加一個(gè)手動(dòng)選點(diǎn)單樁標(biāo)注的主程序。4)分解程序使之模塊化，易于實(shí)現(xiàn)最終目標(biāo)。

3 程序的具體實(shí)現(xiàn)

3.1 多點(diǎn)標(biāo)注模式主程序

該主程序所要實(shí)現(xiàn)的功能如下:1)定義所需的主變量，記錄各個(gè)系統(tǒng)變量狀態(tài)，預(yù)先加載visual函數(shù)接口;2)調(diào)用所需的AutoCAD線型，定義標(biāo)注所在的圖層和字體樣式;3)提供了用戶點(diǎn)選和輸入的接口;4)計(jì)算征地線上的點(diǎn)距，對(duì)符合點(diǎn)距要求的點(diǎn)分別計(jì)算垂足和樁號(hào);5)調(diào)用標(biāo)注分解確認(rèn)子程序，標(biāo)注征地線上的各點(diǎn);6)程序運(yùn)行結(jié)束后恢復(fù)各系統(tǒng)變量。

具體程序?qū)崿F(xiàn)如下:

3.2 單點(diǎn)標(biāo)注模式主程序

其實(shí)現(xiàn)的功能和調(diào)用的參數(shù)、函數(shù)基本同多點(diǎn)標(biāo)注模式主程序。不同之處在于:1)用戶接口僅需點(diǎn)選道路中線及輸入道路中線對(duì)應(yīng)的起點(diǎn)樁號(hào);2)之后單點(diǎn)要標(biāo)注的征地線上任意一點(diǎn)即可生成該點(diǎn)所要標(biāo)注的各項(xiàng)參數(shù)。

具體程序?qū)崿F(xiàn)如下:

3.3 標(biāo)注分解確認(rèn)子程序

該子程序所要實(shí)現(xiàn)的功能如下:1)接收主程序所確定的中線樁號(hào)、征地線標(biāo)注點(diǎn)距中線距離、征地線標(biāo)注點(diǎn)相對(duì)于中線的垂足與中線起點(diǎn)形成的弧度矢量、征地線標(biāo)注點(diǎn)與中線起點(diǎn)形成的弧度矢量、征地線上的標(biāo)注點(diǎn)的坐標(biāo)、字符分割線的終點(diǎn)坐標(biāo)。2)轉(zhuǎn)換數(shù)字格式的中線樁號(hào)為標(biāo)準(zhǔn)形式的字符串格式，如:接收的數(shù)字格式樁號(hào)2856.5轉(zhuǎn)換成K2+856.5的標(biāo)準(zhǔn)樁號(hào)標(biāo)注格式字符串。3)取得標(biāo)注分割線的上、下標(biāo)注，生成標(biāo)準(zhǔn)的上、下標(biāo)注形式，如:上標(biāo)注形式為:“樁號(hào) Y坐標(biāo)值”，下標(biāo)注形式為:“距離X坐標(biāo)值”。4)依據(jù)接收的兩個(gè)弧度矢量判斷征地線上的點(diǎn)在道路中線的左側(cè)或右側(cè)。5)使用entmake函數(shù)在CAD中生成征地線上點(diǎn)的標(biāo)準(zhǔn)標(biāo)注。

具體程序?qū)崿F(xiàn)如下:

4 具體使用和總結(jié)

在多點(diǎn)標(biāo)注模式下，使用本程序只需用戶單選道路中線，單選所要標(biāo)注的征地線，輸入道路中線對(duì)應(yīng)的道路起點(diǎn)樁號(hào)即可生成整條征地線的標(biāo)準(zhǔn)標(biāo)注，在單點(diǎn)標(biāo)注模式下，使用本程序只需用戶單選道路中線，輸入道路中線對(duì)應(yīng)的道路起點(diǎn)樁號(hào)，然后單點(diǎn)所要標(biāo)注的征地線上的點(diǎn)，即可生成該點(diǎn)對(duì)應(yīng)的標(biāo)準(zhǔn)標(biāo)注。這對(duì)于需要調(diào)整一次或數(shù)次的征地圖來(lái)說(shuō)，相比緯地程序的繁瑣標(biāo)注更改手段而言，無(wú)疑大大節(jié)省了勞動(dòng)時(shí)間，使得用戶可以把更多的精力放在如何滿足土地規(guī)范和業(yè)主要求上面。也可以騰出大量的時(shí)間從事整個(gè)項(xiàng)目里其他的工作。

［1］郭秀娟，于全通，范小鷗.AutoLISP語(yǔ)言程序設(shè)計(jì)［M］.北京:化學(xué)工業(yè)出版社，2008.

［2］鄭益民.公路工程CAD［M］.北京:清華大學(xué)出版社，2010.

［3］Autodesk公司.AutoCAD標(biāo)準(zhǔn)幫助文檔:AutoCAD群碼表［Z］.

［4］周 明，董仁揚(yáng).Visual LISP程序設(shè)計(jì)及其應(yīng)用教程［M］.上海:上海科學(xué)技術(shù)文獻(xiàn)出版社，2008.

［5］趙景亮.AutoCAD 2004與AutoLISP二次開(kāi)發(fā)技術(shù)［M］.北京:清華大學(xué)出版社，2004.

［6］藍(lán)屹生.AutoLISP學(xué)習(xí)導(dǎo)引［M］.北京:中國(guó)鐵道出版社，2003.

［7］曾洪飛，張 帆，盧擇臨.AutoCAD VBA＆ VB.NET開(kāi)發(fā)基礎(chǔ)與實(shí)例教程［M］.北京:中國(guó)電力出版社，2008.

［8］二代龍震工作室.AutoCAD LISP/VLISP函數(shù)庫(kù)查詢(xún)辭典［M］.北京:中國(guó)鐵道出版社，2003.

［9］施佩娟.道路CAD［M］.北京:機(jī)械工業(yè)出版社，2013.

［10］符明娟.道路工程制圖與CAD［M］.北京:科學(xué)出版社，2004.

［11］王文波.AutoCAD2010二次開(kāi)發(fā)實(shí)例教程［M］.北京:機(jī)械工業(yè)出版社，2013.