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

1、<p>　　關(guān)于等高線檢查程序的研究</p><p>　　摘要：在地形圖數(shù)據(jù)結(jié)構(gòu)檢查的過程中，利用程序來實現(xiàn)檢查，可以大幅度降低生產(chǎn)成本，提高效率，本文主要是利用AUTOLISP語言編寫程序來完成等高線所在圖層及其屬性值的檢查，涉及到的軟件平臺為AutoCAD． </p><p>　　關(guān)鍵詞：AutoCAD，等高線， 檢查程序，研究 </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>　　中圖分類號：TU74文獻標識碼：A 文章編號： <

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

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

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

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

8、庫的訪問和修改，其強大的功能使建立在 AutoCAD平臺下的地形圖軟件更能很好的滿足客戶的要求。 </p><p>　　用AUTOLISP語言來編寫等高線層、值相符檢查程序，源碼和說明如下： </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 輸入等高線首曲線層:")) </p

10、><p>　　(setq sqxk(getreal "\n 輸入首曲線寬度:")) </p><p>　　(setq jqx(getstring "\n 輸入等高線計曲線層:")) </p><p>　　(setq jqxk(getreal "\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)) ;; 為零對 </p><p>　　(setq ys(rem (/ gcz

14、 dgj) 4.0))) ;; 為零計曲線 </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 "等高線層、值都相符")) <

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)) "根曲線層、值不符，注意查改!" ))) </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)運行后，能夠很好的檢

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

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