【導(dǎo)讀】本人聲明，所呈交的學位論文系本人在導(dǎo)師指導(dǎo)下獨立完成的研究成果。文中依法引用他人的成果，均已做出明確標注或得到許可。論文內(nèi)容未包含法。本人如違反上述聲明，愿意承擔由此引發(fā)的一切責任和后果。利用規(guī)劃成為當今社會研究的熱點。GIS在土地利用規(guī)劃過程中，其快捷的數(shù)據(jù)查詢、編輯、統(tǒng)計、分析、輸出性能，很好地彌補了傳統(tǒng)布局方式的缺點。通過對GIS軟件對比，本文將。本文以昌吉市1:100000基期數(shù)據(jù)庫規(guī)劃區(qū)為。地用途區(qū)代碼字段給管制區(qū)代碼字段批量附屬性的問題。最后根據(jù)制作土地利。了利用ArcGIS軟件做本次土地規(guī)劃的意義。

　　

【正文】 吉市 2021 年建設(shè)用地為 公頃，到 2021 年全市建設(shè)用地規(guī)模要控制在 公頃，由此可知，建設(shè)用地需求不斷增長，建設(shè)用地節(jié)約利用水平較低，需要積極探索節(jié)約集約利用 模式。 有待進一步解決的問題與不足 由于篇幅的限制及對 ArcGIS 強大的空間分析功能模塊的了解不夠深入，所以沒有對其空間分析功能做實例分析，這是一個需要被及時解決的問題，如果就昌吉市潛在建設(shè)用地做空間分析，對空間分析的功能肯定有很大收獲 ,這需要在以后的實際工作中去不斷地提高。 Visual Studio 編程語言在本文中的應(yīng)用算是一個突破，對于初學者有一定的難度，不管是在編寫程序代碼還是嵌入ArcToolBox 中都遇到了很多問題，但最終還是得到了解決， ArcGIS 的強大功能還需要在以后的工作學習中不 斷加強。 展望 運用 ArcGIS 進行土地適宜性評估 ,劃分土地用途區(qū)時 ,提取數(shù)字高程模型的信息。應(yīng)用空間分析功能，確定各地塊的利用形式。利用其強大的二次開發(fā)功能開發(fā)出更多工具，以便高效準確的完成復(fù)雜的工序。利用二次開發(fā)功能使空間屬性數(shù)據(jù)以 Web 形式發(fā)布，通過點擊就可以查詢信息。 27 參考文獻 [1] 牟乃夏，劉文寶，王海銀。 ArcGIS 10 地理信息系統(tǒng) 教程一從初學到精通區(qū) [J]。 北京測繪出版社， 2021。 [2] 黨安榮，賈海峰。 ArcGIS8 Desktop 地理信息系統(tǒng)應(yīng)用指南 。 北京 ，清華大學出版社， 2021。 [3] 朱光，季曉燕，戎兵 。 地理信息系統(tǒng)基本原理及應(yīng)用 [J]。 北京 ， 測繪出版社， 1997。 [4] 劉偉。市級土地利用總體規(guī)劃圖編制方法探討 [J]。 北京 ，中國地質(zhì)大學碩士論文，2021。 [5] 國土資源部 。 全國土地利用總體規(guī)劃綱要 (20212020)。 北京 ， 中國法制出版社，2021。 [6] 鄔倫，劉瑜，張晶。 地理信息系統(tǒng) —— 原理、方法和應(yīng)用 [M]。北京， 科學出版社，2021。 [7] 游江南。 GIS 空間分析在土地管理工作中的應(yīng) 用 [J]。太原師范學院學報，自然科學版， 2021（ 2）。 [8] 鄧青春，辜寄蓉，江瀏光艷?；? ArcGIS 的縣 （ 市 ）級土地利用規(guī)劃建庫流程研究 [J]?，F(xiàn)代商貿(mào)工業(yè) ， 2021（ 12） ： 297298。 [9] 李建松。地理信息系統(tǒng)原理 [J]。武漢 ,武漢大學出版社， 2021. [10] 彭芳。鄉(xiāng)鎮(zhèn)土地利用總體規(guī)劃圖的編制方法探討 [D]。重慶，重慶大學， 2021。 [11] 昌吉市土地利用總體規(guī)劃大綱 (20212020年 )。 [12] 吳良林。土地利用總體規(guī)劃中 G1S技術(shù)應(yīng)用研究田。熱帶地理， 1999,19 (4) :371一 375。 [13] 胡銀根，吳沖龍。我國土地利用規(guī)劃信息系統(tǒng)現(xiàn)狀、問題與解決途徑探討 [J]。地理信息世界， 2021,4(2): 1521。 [14] 楊宏鵬，王阿川，王妍瑋。 GIS二次開發(fā)方法與實現(xiàn) [J]。信息技術(shù)， 2021 (8) :65一 67。 28 致謝 大學本科四年已經(jīng)過去，這是我增長知識和閱歷的四年。有幸遇到各位良師益友，在學校探索求知的同時，也為自己的人生畫卷增添了絢麗的一筆，值得回憶和珍藏。 本文的實踐部分是在新疆 烏魯木齊市城市勘察測繪院 實習期間 完成 ，在 短短兩 個 多月的時間里，我學到了不少東西，無論是理論知識還是為人處事，都是是一筆寶貴的財富，為自己將來工作打下了堅實的基礎(chǔ)。 在本 論 文完成之際，我想說的是論文寫作的時間雖然短暫，我卻從 短短的時間 中學到了很多的東西。首先 特別感謝我的導(dǎo)師胡新玲老師，在論文寫作的這段時間中一直對我悉心指導(dǎo)， 提出建議， 嚴格要求，給我很多鍛煉和提高的機會，并以其嚴謹求實的治學態(tài)度對我產(chǎn)生了很大的影響，使我深受啟迪。在此， 感謝測量教研室的所有老師四年來對我的學習和生活的關(guān)心與教導(dǎo)，四年來，他們不僅無私地給我了測量知識，還給了我不少的社會實踐經(jīng)驗 ，以及一些成長的道理。特此感謝你們，說一聲：“老師，你們辛苦了。 最后，感謝測繪 111 班的同學們。因為有了你們的關(guān)心、幫助、理解和支持使我在大學校園里過的很充實很快樂。我會永遠記得你們。 此外，謹以此文獻給所有關(guān)心、支持過我的朋友及家人，借以表達我最美好的祝愿！ 大學四年匆匆而過，馬上我們就要進入工作崗位了。祝愿所有老師身體健康 ,工作順利。祝愿所有同學工作順心，學業(yè)有成。我也會在今后的漫漫長路中更加努力。 29 附錄 Imports System Imports Imports Imports Imports Imports Imports Imports Imports Imports //Visual Studio與 ArcGIS面向接口的頭文件 Imports Imports Imports Imports Imports Imports Imports Imports Imports Imports Imports Imports Imports Imports Imports Imports Imports Imports Imports Public Class plfsx Private Sub get_cs(ByVal sourcename As String, ByVal newID As String) Try Dim pMxDoc As ImxDocument //定義代碼存儲位置 Dim pMap As IMap pMxDoc = pMap = Dim select_pLayer As ILayer Dim select_pMapLayers As IEnumLayer select_pMapLayers = select_pLayer = Do Until select_pLayer Is Nothing If = TDYTQ Then //條件語句，選擇“ TDYTQ”字段 Exit Do End If select_pLayer = Loop 30 If Not select_pLayer Is Nothing Then Dim select_pFLayer As IFeatureLayer select_pFLayer = select_pLayer Dim pQFilter As IQueryFilter pQFilter = New QueryFilter = TDYTQLXDM like 39。% + sourcename + %39。 //查詢“ TDYTQDM” Dim myCursor As ICursor myCursor = (pQFilter, False) Dim select_pFeature As IFeature select_pFeature = Dim n As Integer //定義一個整型字符串，從 0開始循環(huán)，直到字段全部檢查完 n = 0 Do Until select_pFeature Is Nothing n = n + 1 select_pFeature = Loop = n n = 0 myCursor = (pQFilter, False) select_pFeature = Do Until select_pFeature Is Nothing 39。Dim pEditor As IEditor 39。Dim pFeatureEdit As IFeatureEdit 39。Dim pID As New UID 39。Dim bInOperation As Boolean 39。 = 39。pEditor = (pID) 39。() 39。bInOperation = True ((GZQLXDM)) = newID 39。(edit feature) 39。bInOperation = False 31 () select_pFeature = n = n + 1 = n //添加 ProgressBar按鈕，來顯示程序運行狀態(tài) Loop Else MsgBox(Please add selecting layer!) End If () 39。Refresh the TOC Catch End Try End Sub Private Sub GroupBox1_Enter(ByVal sender As , ByVal e As ) Handles End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles get_cs((), ()) //批量附屬性 get_cs((), ()) get_cs((), ()) get_cs((), ()) get_cs((), ()) get_cs((), ()) get_cs((), ()) get_cs((), ()) End Sub End Class