一種自動檢查并修改高程點Z值的方法

1、a method of automatically checking and modifyingthe elevatbn point" s z valueqian ychong摘 要:本文介紹了運用aumisp語言編寫程序?qū)Ω叱厅cz值進(jìn)行自動檢查并修改的方法。 矢鍵詞:高程;高程點；au此isp1問題的提出高程是地形圖的地形要素之一，由高程點和高程 注記組成。在數(shù)字化地形圖中,高程點應(yīng)具有三維值， 即x、y、z值，其中z值代表高程點的高程。地形圖僅 僅用于制圖時，高程點的z值一般通過高程注記表達(dá)。 在利用地形圖進(jìn)行土方計算、地形圖入庫、建立devi 等工作時，則需用高程點的z值實現(xiàn)，

2、其值必須準(zhǔn)確。 在我們的實際工作中，數(shù)字化地形圖的高程經(jīng)常出現(xiàn) 以下幾種情況：(1) 高程點的z值與高程注記不一致。通常情況 下高程注記是正確的，高程點的z值是錯誤的。(2) 只有高程注記，而無高程點。(3) 只有高程點,而無高程注記，并且無法判斷高 程點z值的正確性。對于以上幾種情況,如果我們靠手動對每一個高 程點進(jìn)行檢查和修改，確實費時費力，而且還容易漏 查。對于是aubcad格式文件或者可以轉(zhuǎn)換為aub2 cad格式的文件的地形圖，可運用aut)cad的二次開 發(fā)語言aut)lisp編程進(jìn)行高程點z值的自動檢查并 修改。2程序設(shè)計思想通常情況下地形圖屮的高程注記是正確的，因出 可以高程注

3、記為基準(zhǔn)，対每一個高程注記與其周圍 程點投索半徑為實際工作中高程注記的可能移動范 圍)的z值進(jìn)行差值比較，如果該差值小于設(shè)定的限 值，則認(rèn)為該高程注記有高程點并且該高程點的z 正確。如果大于設(shè)定的限值并且周圍無高程點則給 程注記加高程點，如果有高程點則需人工判斷是修 高程點的z值還是重新加高程點。限值的選擇和高 注記保留的小數(shù)位數(shù)有關(guān)，如果是兩位小數(shù)位，限值 選0101,如果是一位小數(shù)位，限值可選011,也可以 據(jù)實際情況自行選擇。通過以上工作可以解決前面 出的問題1和問題2。對于問題3,我們要反過來進(jìn)行比較，將地形圖 每一個高程點的z值與該高程點周圍的高程注記( 索半徑同上)進(jìn)行差值比較，如

4、果該差值小于設(shè)定的 值則認(rèn)為該高程點的z值正確，如果大于設(shè)是的限 則認(rèn)為高程點的z值錯誤，將該高程點刪除。3程序?qū)嵗旅嫣峁┙鉀Q問題1和問題2的程序的清單， 大家參考，其他程序可參照該程序做一下修改即可 該程序屮高程所在的圖層設(shè)為“gcd“,搜索半徑 1 ：50哋形圖設(shè)定，程序如下：(deftin c: gcdjc ()(seh-ar h cmdccho” 0)(write - line ”歡迎使用高程點自動檢查與修改程序！ ”) (setq ent (ssgeth xh x (8. n gcdn) (0 m texf ) (if ent(piogn(canmand "zoom&qu

5、ot; m eh)(command n layermgcd)(setq ent_lengtli (sslengtli ent)(setq cnt_nunbcr 0)(rcpcat cnt_ length(setq ent_n<me ( ssname ent ent_number)(clgcd)；調(diào)入高程點檢查與修改子程序(setcj ent_nunber (1 + ent_nimber)(command h layerm0)(command 11 zoomh 11 e” )(write - line ”高程點檢查修改完畢!-)(defbn clgcd ()；高程點檢查與修改子程序(set

6、q data (entget ent_nane)(setq tex (edr (assoc 1 data)；取得高程注記文本值(setq p (edr (assoc 10 data)；取得高程注記文本位置坐標(biāo)(setq pl (polar p (3 1. 25 pi) 710);設(shè)置搜索范圍pr (polarp (3 (1 25 pi) iq 0)(setq ent - p ( ssget " w" pl pr '(0 . h point") (8 ." ged")(if ent - p(p ingn;注記周圍有高程點(setcj p_

7、length ( sslength ent p)(setq p_number 0)(setq p_data (entget ( ssname ent - p p_niniber)；取得高 程點的數(shù)據(jù)念(setq gedz (rt)s (cadddr (assoc 10 p.data) ) 2 2)(setq wc ( - (at)f gedz) (aiof lex)(while (and ( > = (abswc) q 01) ( < pniimber (1 plength)；對周圍搜索到的高程點進(jìn)行差值te較'(setq pnunber (1 + p_ninnber)(s

8、etq p_data (entget (ssname ent p p_nimbcr)(setq gedz (rtos (cadddr (assoc 10 p_data) )22)(setq wc (anf gedz) (at)f tex)(if ( > = (abswc) (1 01)(piugn(comm and h zoanh pl pr)(write - line ”無匹配高程點，請選擇需要修改的高程點, 不選擇則自動加點.”)(rcdrav cnt_nanc 3)；加亮顯示待處理的高程注記(setq p.scl (ssget);交互式獲取需修改的高程點(redraw* ent_n

9、ane 4)；取消加亮顯示(if p_sel(piogn(setq sei (entget ( ssname p_sel 0)(setq x (cadr (assoc 10 sei)y (caddr (assoc 10 sei)(setq zb_new (list 10 x y (anf tex)(setq sei (subst zb_new (assoc 10 sei) sei) (entnod sei)(jiaged)(command ” zoomm n eh)(jiaged)；注記周圍無高程點則fl動加點)(defun jiaged ();加高程點子程序(setq p xy (polar

10、 (polar p (3 q 5 pi) q 5) pi q 8)(ctmmand "point” p xy)(command “change” ” 1p” (atof tex)4結(jié)語以上程序雖然比較簡單,但在我們利用地形圖dbv1和土方計算屮確實起了很大作用o通過將該稻 作修改還可以實現(xiàn)很多其他功能，比如將數(shù)字轉(zhuǎn)荻 程點、批量修改高程點、高程系統(tǒng)間高程轉(zhuǎn)換等功能參考文獻(xiàn)hi郭朝勇等 autocad r14(中文版)二次開發(fā)技術(shù).清華大學(xué)出版社，1999.12j二代龍震工作室.aumcad 2000系列程序設(shè)計基程山東:濟(jì)南出版社,200(1(±接第57頁)(5)在文件的第一行插入點的總個數(shù)，便得到了 開思(scs)測量成圖軟件所需的標(biāo)準(zhǔn)格式。3結(jié)語wool是大家都非常熟悉的，絕大多數(shù)計算機初 有。利用表格與文字的相互轉(zhuǎn)換功能實現(xiàn)數(shù)據(jù)文件笊 格式轉(zhuǎn)換，簡單易學(xué)，操作靈活、方便，對于topcon全 站儀這種格式的數(shù)據(jù)尤其具有明顯優(yōu)勢。對于蔡司 (elt