AutoLISP在AutoCAD自動(dòng)拼接測(cè)量圖中的應(yīng)用

李永慶

（水利部海河水利委員會(huì)科技咨詢中心，天津 300170）

工程測(cè)量

AutoLISP在AutoCAD自動(dòng)拼接測(cè)量圖中的應(yīng)用

李永慶

（水利部海河水利委員會(huì)科技咨詢中心，天津 300170）

采用AutoLISP編程語(yǔ)言，以AutoCAD作為平臺(tái)，分別測(cè)試簡(jiǎn)單測(cè)量圖和復(fù)雜測(cè)量圖自動(dòng)拼接的耗時(shí)，結(jié)果說(shuō)明采用AutoLISP實(shí)現(xiàn)測(cè)量圖自動(dòng)拼接，可大大縮短耗時(shí)，提高設(shè)計(jì)人員的工作效率。

AutoLISP；AutoCAD；測(cè)量圖；拼接

1 概況

AutoLISP是AutoCAD內(nèi)置的編程語(yǔ)言，功能強(qiáng)大，應(yīng)用范圍廣泛，但在規(guī)劃設(shè)計(jì)工作中應(yīng)用較少。針對(duì)手動(dòng)拼接測(cè)量圖效率低下的問(wèn)題，以AutoCAD作為平臺(tái)，利用AutoLISP編程語(yǔ)言進(jìn)行二次開(kāi)發(fā)，可實(shí)現(xiàn)自動(dòng)批量拼圖，有效地解決了這一問(wèn)題。

2 程序分析

2.1 地形圖拼接原理

AutoCAD格式的測(cè)量圖中，圖形按照測(cè)量對(duì)象的投影坐標(biāo)布置，所以每個(gè)文件中圖形的位置，相對(duì)于AutoCAD坐標(biāo)軸的原點(diǎn)（0，0，0）是固定的。利用AutoCAD插入“塊”的功能，指定插入點(diǎn)為（0，0，0），將單個(gè)測(cè)量圖文件以“塊”的形式插入，使用“分解”命令將“塊”分解。重復(fù)插入、分解的步驟，就可以將多張地形圖合并。

2.2 程序?qū)崿F(xiàn)

以下為拼接程序源代碼：

程序流程說(shuō)明：①使用函數(shù)getfiled，彈出文件選擇對(duì)話框，提示用戶選擇一個(gè)測(cè)量圖文件，獲取該文件在磁盤中的完整路徑；②使用函數(shù)vl-filename-di-rectory處理上一步獲取的文件路徑，得到測(cè)量圖所在的目錄；③使用函數(shù)vl-directory-files獲取目錄中所有測(cè)量圖的文件名；④使用函數(shù)foreach，循環(huán)執(zhí)行將單個(gè)文件插入、分解的步驟；⑤程序執(zhí)行完畢。

2.3 使用方法

將需要拼接的測(cè)量圖文件保存在同一個(gè)目錄中，但不要把拼接后的文件保存在這個(gè)目錄中。若測(cè)量圖比較復(fù)雜，應(yīng)適當(dāng)減少文件的數(shù)量，分塊拼接。

操作步驟：①將程序源代碼以文本格式保存，文件名任意，文件后綴為“.lsp”；②打開(kāi)AutoCAD程序，新建一個(gè)dwg格式的文件；③在AutoCAD執(zhí)行“appload”命令，在彈出對(duì)話框中加載保存的程序文件；④在Auto-CAD執(zhí)行“he_bing”命令，在彈出的對(duì)話框中選擇一個(gè)需要合并的測(cè)量圖文件；⑤等待程序執(zhí)行完成。

3 手動(dòng)拼接與自動(dòng)拼接的耗時(shí)比較

在同樣的工作環(huán)境中，針對(duì)不同類型的測(cè)量圖，采用手動(dòng)拼接、自動(dòng)拼接兩種方法進(jìn)行測(cè)試。

3.1 簡(jiǎn)單測(cè)量圖

使用永定河河道1∶10000帶狀測(cè)量圖，該測(cè)量圖文件中圖形對(duì)象較少，分別測(cè)試10張和40張測(cè)量圖的拼接耗時(shí)，測(cè)試結(jié)果如表1。

表1 簡(jiǎn)單測(cè)量圖拼接耗時(shí)單位：s

通過(guò)表1可知，對(duì)于圖形對(duì)象較少的河道帶狀測(cè)量圖，10張測(cè)量圖手動(dòng)拼接總耗時(shí)是自動(dòng)測(cè)量拼接總耗時(shí)的17.75倍；40張測(cè)量圖手動(dòng)拼接總耗時(shí)是自動(dòng)測(cè)量拼接總耗時(shí)的23.08倍。由此可見(jiàn)，對(duì)圖形對(duì)象較少的簡(jiǎn)單測(cè)量圖，利用AutoLISP編程語(yǔ)言自動(dòng)拼接效率更高。

3.2 復(fù)雜測(cè)量圖

漳衛(wèi)新河左堤洪水風(fēng)險(xiǎn)圖編制是全國(guó)重點(diǎn)地區(qū)洪水風(fēng)險(xiǎn)圖編制工作的一部分，漳衛(wèi)新河左堤防洪保護(hù)區(qū)涉及河北、山東兩省的9個(gè)縣級(jí)行政區(qū)，保護(hù)區(qū)面積約5949km2，AutoCAD格式1∶10000電子測(cè)量圖共計(jì)286張。

該類型測(cè)量圖文件中圖形對(duì)象較多，當(dāng)需要拼接的復(fù)雜測(cè)量圖超過(guò)20張時(shí)，結(jié)果文件過(guò)大，嚴(yán)重影響在AutoCAD中的操作，因此本次測(cè)試對(duì)比10張和20張測(cè)量圖的拼接耗時(shí)。

測(cè)試結(jié)果如表2。

表2 復(fù)雜測(cè)量圖拼接耗時(shí)單位：s

通過(guò)表2可知，對(duì)于圖形對(duì)象較多的復(fù)雜測(cè)量圖，10張測(cè)量圖手動(dòng)拼接總耗時(shí)是自動(dòng)測(cè)量拼接總耗時(shí)的8.11倍；20張測(cè)量圖手動(dòng)拼接總耗時(shí)是自動(dòng)測(cè)量拼接總耗時(shí)的8.33倍。由此可見(jiàn)，針對(duì)圖形對(duì)象較多的復(fù)雜測(cè)量圖，利用AutoLISP編程語(yǔ)言自動(dòng)拼接效率較高。

4 結(jié)語(yǔ)

（1）AutoLISP是AutoCAD內(nèi)置的編程語(yǔ)言，功能強(qiáng)大，但在規(guī)劃設(shè)計(jì)工作中應(yīng)用較少。

（2）針對(duì)手動(dòng)拼接測(cè)量圖效率低下的問(wèn)題，以AutoCAD作為平臺(tái)，利用AutoLISP編程語(yǔ)言進(jìn)行二次開(kāi)發(fā)，實(shí)現(xiàn)測(cè)量圖的自動(dòng)拼接，并對(duì)比手動(dòng)拼接測(cè)量圖的耗時(shí)，結(jié)果說(shuō)明采用AutoLISP自動(dòng)拼接測(cè)量圖，速度快，效率高，減少人為操作誤差，提高了拼接的準(zhǔn)確性，設(shè)計(jì)人員在規(guī)劃設(shè)計(jì)工作中采用該方法，可顯著提高工作效率。

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

［2］黃曉宇.從AutoLISP走向Visual LISP［J］.微電腦世界，1998，38.

［3］周紹烈.AutoLISP程序設(shè)計(jì)中的若干問(wèn)題［J］.大連鐵道學(xué)院學(xué)報(bào)，1991（1）.

［4］李世國(guó).AutoCAD高級(jí)開(kāi)發(fā)技術(shù)［M］.北京：機(jī)械工業(yè)出版社，1999.

App lication of AutoLISP in AutoCAD for sp licing topographicmaps automatically

LIYong-qing
（Haihe RiverWater Conservancy Commission，MWR，Science and Technology Consultation Center，Tianjin 300170，China）

As AutoCAD as a platform，AutoLISP programming language was used to respectively test the time consuming of automaticallysplicingsimple and complextopographic maps，the results show that the automatically splicing topographic mapsis realized by using AutoLISP，it can greatly shorten the time consuming，and then enhancing the working efficiency of the design personnel.

AutoLISP；AutoCAD；topographicmap；splicing

TV222.2

B

1672-9900（2015）01-0093-02

2015-02-03

李永慶（1983-），男（漢族），河北廣宗人，本科，主要從事水利規(guī)劃設(shè)計(jì)工作，（Tel）18622282650。