關(guān)于等高線(xiàn)檢查程序的研究

1、<p>　　關(guān)于等高線(xiàn)檢查程序的研究</p><p>　　摘要：在地形圖數(shù)據(jù)結(jié)構(gòu)檢查的過(guò)程中，利用程序來(lái)實(shí)現(xiàn)檢查，可以大幅度降低生產(chǎn)成本，提高效率，本文主要是利用AUTOLISP語(yǔ)言編寫(xiě)程序來(lái)完成等高線(xiàn)所在圖層及其屬性值的檢查，涉及到的軟件平臺(tái)為AutoCAD． </p><p>　　關(guān)鍵詞：AutoCAD，等高線(xiàn)， 檢查程序，研究 </p><p>　　

2、Abstract: in the topographic map data structure of the examination process, use program to realize the check, can reduce the production cost, improve efficiency, this paper is mainly use AUTOLISP language programming to

3、complete contour and the attribute values in the layer check, involves platform as AutoCAD. </p><p>　　Keywords: AutoCAD, contours, check programs, research </p><p>　　中圖分類(lèi)號(hào)：TU74文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)： <

4、/p><p>　　在地形圖數(shù)據(jù)結(jié)構(gòu)檢查的過(guò)程中，應(yīng)用程序來(lái)實(shí)現(xiàn)檢查，可以大幅度降低生產(chǎn)成本，提高效率，現(xiàn)在以AutoCAD平臺(tái)下利用 AUTOLISP語(yǔ)言編寫(xiě)的等高線(xiàn)檢查程序?yàn)槔?，?lái)談?wù)勛约旱捏w會(huì)。 </p><p>　　一 等高線(xiàn)數(shù)據(jù)結(jié)構(gòu)檢查主要包括： </p><p>　?。ㄒ?線(xiàn)條設(shè)計(jì)規(guī)范檢查 </p><p>　　等高線(xiàn)線(xiàn)條設(shè)計(jì)規(guī)范檢查主

5、要是檢查線(xiàn)條是否符合規(guī)范和設(shè)計(jì)要求，主要包括： </p><p><b>　　線(xiàn)寬檢查 </b></p><p><b>　　線(xiàn)型結(jié)構(gòu)檢查 </b></p><p><b>　　回頭線(xiàn)檢查 </b></p><p><b>　　重復(fù)線(xiàn)檢查 </b><

6、/p><p><b>　　交叉線(xiàn)檢查 </b></p><p>　?。ǘ?圖層和屬性值檢查 </p><p>　　（三） 擴(kuò)展屬性檢查 </p><p>　　擴(kuò)展屬性檢查主要指根據(jù)設(shè)計(jì)的要求，對(duì)特定的屬性進(jìn)行檢查，主要包括： </p><p><b>　　屬性碼檢查 </b>&

7、lt;/p><p><b>　　屬性層檢查 </b></p><p><b>　　屬性值檢查 </b></p><p>　　二 等高線(xiàn)層、值相符檢查程序代碼的實(shí)現(xiàn) </p><p>　　AUTOLISP語(yǔ)言是嵌套于A(yíng)utoCAD內(nèi)部的一種計(jì)算機(jī)表處理語(yǔ)言，其可以擴(kuò)大圖形的編輯功能，建立圖形數(shù)據(jù)庫(kù)和對(duì)數(shù)據(jù)

8、庫(kù)的訪(fǎng)問(wèn)和修改，其強(qiáng)大的功能使建立在 AutoCAD平臺(tái)下的地形圖軟件更能很好的滿(mǎn)足客戶(hù)的要求。 </p><p>　　用AUTOLISP語(yǔ)言來(lái)編寫(xiě)等高線(xiàn)層、值相符檢查程序，源碼和說(shuō)明如下： </p><p>　　(defun C:DGXC() </p><p>　　(setvar "cmdecho" 0) </p><p&g

9、t;　　(if (car (atoms-family 1 '("vl-load-com"))) (vl-load-com)) </p><p>　　(setq dgj(getreal "\n 輸入等高距: ")) </p><p>　　(setq sqx(getstring "\n 輸入等高線(xiàn)首曲線(xiàn)層:")) </p

10、><p>　　(setq sqxk(getreal "\n 輸入首曲線(xiàn)寬度:")) </p><p>　　(setq jqx(getstring "\n 輸入等高線(xiàn)計(jì)曲線(xiàn)層:")) </p><p>　　(setq jqxk(getreal "\n 輸入計(jì)曲線(xiàn)寬度:")) </p><p&g

11、t;　　(setq ss (xzj sqx jqx)) </p><p>　　(setq n (sslength ss) i 0 x 0) </p><p>　　(repeat n </p><p>　　(setq stm (ssname ss i)) </p><p>　　(setq object(vlax-ename->vla-ob

12、ject stm)) </p><p>　　(setq gcz (vla-get-Elevation object)) </p><p>　　(setq l_with(vla-get-ConstantWidth object)) </p><p>　　(if (= gcz 0) (vla-put-Color object 2)) </p><p&

13、gt;　　(setq tc(vla-get-Layer Object)) </p><p>　　(if (= dgj 2.5) </p><p><b>　　(progn </b></p><p>　　(setq km(rem gcz dgj)) ;; 為零對(duì) </p><p>　　(setq ys(rem (/ gcz

14、 dgj) 4.0))) ;; 為零計(jì)曲線(xiàn) </p><p><b>　　(PROGN </b></p><p>　　(setq km(rem gcz dgj )) </p><p>　　(setq ys(rem (/ gcz dgj) 5.0)))) </p><p>　　(if (/= km 0) </p>

15、;<p><b>　　(progn </b></p><p>　　(vla-put-Color object 2) </p><p>　　(setq x 1) )) </p><p>　　(if (and (= ys 0) (= tc sqx)) </p><p><b>　　(progn <

16、;/b></p><p>　　(vla-put-Color object 2) </p><p>　　(setq x 1))) </p><p>　　(if (and (/= ys 0) (= tc jqx)) </p><p><b>　　(progn </b></p><p>　　(vl

17、a-put-Color object 2) </p><p>　　(setq x 1))) </p><p>　　(setq i(+ 1 i))) </p><p>　　(vlax-release-object object) </p><p>　　(if (= x 0) (alert "等高線(xiàn)層、值都相符")) <

18、/p><p>　　(setq kk (ssget "x" (list '(-4 . "　　'(-4 . "OR>")(cons 62 2) '(-4 . "AND>")))) </p><p><b>　　(if kk </b></p><p>

19、;　　(alert (strcat "圖內(nèi)共有" (itoa(sslength kk)) "根曲線(xiàn)層、值不符，注意查改!" ))) </p><p>　　(setq stm nil dgj nil km nil ys nil kk nil xx nil xxx nil) </p><p>　　(setvar "cmdecho" 1

20、)) </p><p>　　(defun xzj(lay1 lay2) </p><p>　　(ssget "x" (list'(-4 . "") '(-4 . "") '(-4 . "AND>")))) </p><p>　　以上代碼經(jīng)運(yùn)行后，能夠很好的檢

21、查地形圖等高線(xiàn)的圖層、高程值和線(xiàn)寬是否與設(shè)計(jì)相符，并用不同的顏色值體現(xiàn)在窗口界面上。 </p><p><b>　　四、結(jié)束語(yǔ) </b></p><p>　　國(guó)內(nèi)很多的地形圖編輯和入庫(kù)軟件都是建立在A(yíng)utoCAD平臺(tái)下的，因而利用AUTOLISP語(yǔ)言可以根據(jù)不同的需求進(jìn)行二次開(kāi)發(fā)，提高軟件的編輯和檢查功能，使我們?cè)趯?shí)際工作中大幅度降低生產(chǎn)成本，提高效率。 </p

22、><p><b>　　參考文獻(xiàn) </b></p><p>　　[1]陳伯雄等.VisualLISP程序設(shè)計(jì)—技巧與范例(第三版).北京:人民郵電出版社,2002 </p><p>　　[2]胡仁喜等. AUTOLISP 機(jī)械設(shè)計(jì)高級(jí)應(yīng)用實(shí)例.北京:機(jī)械工業(yè)出版社,2005 </p><p>　　[3]鄔倫等.地理信息系統(tǒng).北