二次開發(fā)技術(shù)在地籍測量中的應用聶利挺.docx

CAD二次開發(fā)技術(shù)在地籍測量中的應用摘要數(shù)字化地籍測量已經(jīng)成為我國地籍測量工作的主要方法，其工作效率的提高和制作方法的選擇成了目前的研究方向，快速且準確的生產(chǎn)方法能夠節(jié)省生產(chǎn)成本和提高生產(chǎn)效率。本文簡單介紹了AutoCAD的二次開發(fā)繪圖軟件在地籍測繪中的運行方式和應用技巧。并主要從使用AutoCAD二次開發(fā)繪圖軟件南方CASS7.1對地形圖的繪制，即CASS在地籍測量內(nèi)業(yè)中的應用；以及用AutoCAD的二次開發(fā)工具Visual LISP語言編寫在AutoCAD軟件環(huán)境下快速制作宗地圖的程序這二個方面進行了初步的介紹。通過使用CAD的二次開發(fā)功能，完全實現(xiàn)了數(shù)字化地籍測量的目標，很好的完成了本次地籍測量任務。關(guān)鍵詞：CAD；CASS；Visual LISP；地籍測量；宗地圖ABSTRACTDigital Cadastral Survey has become the main method of work in our Country,improve the work efficiency and methods of making the choice of the current research direction.Fast and accurate methods of production can save production costs and increase productivity.This article explains the AutoCAD drawings software in the secondary development of Operation Mode and application skills of cadastral surveying.And mainly from the use of the secondary development of AutoCAD drawing softwareSouth CASS7.1 Drawing the terrain mapping,That is CASS in cadastral Survey applications within industry;And the secondary development tools with AutoCADVisual LISP language environment in the AutoCAD software program to quickly create maps that were two aspects of the initial introduction. through the use of CAD Secondary development functions,realized completely the target of the digital cadastral survey,Completed well in this task cadastral survey.Key words: CAD; CASS; Visual LISP; cadastral survey; Clan Map目錄目錄摘要1ABSTRACT2目錄3第一章 緒論51.1 數(shù)字化地籍測量簡介51.2. CAD二次開發(fā)的原理應用5第二章 CAD二次開發(fā)介紹72.1 AUTOCAD的二次開發(fā)簡介72.2 AUTOCAD 的二次開發(fā)工具介紹72.2.1 AUTOLISP72.2.2 ADS72.2.3 OBJECTARX82.2.4 VISUAL LISP82.2.5 VBA92.2.6 其它性能9第三章 CAD 開發(fā)的發(fā)展前景和趨勢113 .1 CAD開發(fā)的發(fā)展前景113.2 CAD技術(shù)發(fā)展趨勢11第四章 地籍測量內(nèi)業(yè)的方法和步驟134.1 CASS7.1地形地籍成圖軟件簡介134.2 CASS7.1 繪圖軟件在地籍測繪中的應用134.2.1 數(shù)據(jù)導入134.2.2 根據(jù)測繪草圖繪制地籍現(xiàn)狀圖134.2.3 繪制權(quán)屬線134.2.4 生成地籍表格144.2.5 完成宗地圖144.2.6 老地類碼批量修改144.2.7 用CASS7.1軟件做地籍測量的總結(jié)15第五章 Visual LISP 語言編程快速提取宗地圖165.1 宗地圖提取簡介165.2 Visual Lisp 語言介紹165.2.1 Visual Lisp 的簡單介紹165.2.2 Visual Lisp 的使用特點165.3 程序設計與實現(xiàn)175.3.1 制作宗地圖框175.3.2 自動注記點號、距離、面積195.3.3 程序加載27第六章 結(jié)語28參考文獻30第一章 緒論1.1 數(shù)字化地籍測量簡介國土資源信息化“十五”規(guī)劃(綱要)中明確提出了以信息化建設帶動國土資源信息技術(shù)跨越式發(fā)展和國土資源管理方式的根本轉(zhuǎn)變。抓住國民經(jīng)濟和社會信息化的機遇,加快國土資源管理的信息化,以管理信息化帶動管理科學化和服務社會化。因此,傳統(tǒng)的用圖紙和表格等來記錄存儲土地信息的地籍管理方式已越來越不能適應現(xiàn)代化地籍管理的需要,利用計算機技術(shù)對土地信息進行采集、管理、操作、分析、模擬、顯示、統(tǒng)計、查詢等,實現(xiàn)地籍管理信息化和數(shù)字化已成為土地管理部門的工作重點。地籍測量信息處理的主要工作是通過野外采集的平面圖數(shù)據(jù)及權(quán)屬調(diào)查草圖等信息,繪制出標準地籍分幅圖、宗地圖,并生成相應的各宗地的面積量算表、各街坊界址點成果表和面積統(tǒng)計表、各級土地分類統(tǒng)計表等,為政府提供精確的統(tǒng)計數(shù)字,是土地管理部門進行管理、規(guī)劃的科學依據(jù)。宗地是一系列界址坐標點構(gòu)成的封閉多邊形,宗地圖是土地證上必須附有的圖件,是土地使用者的重要依據(jù),面積是其主要屬性,通常具有法律意義。傳統(tǒng)的宗地圖繪制主要是從分幅地籍圖上蒙繪,其精度主要受分幅地籍圖的精度及蒙繪的精度影響。而對于已經(jīng)數(shù)字化的分幅地籍圖,宗地圖的繪制則主要采用在計算機繪圖系統(tǒng)中對分幅地籍圖進行裁剪,繪制界址線、生成界址點成果表,注記界址邊長、宗面積、權(quán)利人、地類號等屬性的方法來實現(xiàn)。蒙繪法的精度很低,已不能適應現(xiàn)代地籍信息化管理的需要。而采用一般方法利用計算機來進行宗地圖的繪制,工作量大、重復性強、自動化程度低。筆者通過不斷探索與實踐,用南方CASS地籍地形成圖軟件實現(xiàn)繪圖,用VisualLisp 編寫程序?qū)崿F(xiàn)了宗地圖的自動繪制,界址點成果表、各類土地分類統(tǒng)計表和面積統(tǒng)計表的自動生成。提高了工效,降低了勞動強度,取得了良好的工作效果和社會效益。1.2. CAD二次開發(fā)的原理應用用南方CASS實現(xiàn)了繪圖，用Visual Lisp編寫程序作為地籍菜單在CASS顯示。即可直接調(diào)用其功能，例如繪制權(quán)屬線，提取宗地圖，自動計算宗地面積等等。CASS是南方測繪儀器公司在Auto CAD上開發(fā)的新一代數(shù)字化地形地籍地圖軟件，地形地籍測繪的主要基礎是數(shù)字地圖。數(shù)字地圖具備精度高、規(guī)范化、可綜合應用等特點，對各用圖單位進行的規(guī)劃、設計、計算、綜合管理等方面的工作有著極大的優(yōu)越性，并且與過去的手工測圖相比，其效率及效益更高，運用領(lǐng)域更加廣泛。而在城鎮(zhèn)地籍測量中，宗地圖的制作是很關(guān)鍵的一步，宗地圖的精度和制成的速度直接影響地籍測量的進度。本文利用Visual LISP語言編程，僅需兩個綜合程序便能基本完成宗地圖制作，且精度能很好的達成要求。大大強化了AutoCAD在城鎮(zhèn)地籍測量中勘測定界制圖方面的功能。第二章 CAD二次開發(fā)介紹2.1 AUTOCAD的二次開發(fā)簡介AUTOCAD的二次開發(fā)主要涉及以下內(nèi)容：（1）編寫各種用戶自定義函數(shù)并形成若干LISP、ARX、VLX或ADS文件，以及一些DCL文件。（2）建立符合自己要求的菜單文件，一般可在 AUTOCAD 原菜單文件內(nèi)添加自己的內(nèi)容，對于AUTOCAD2000版本還可增加部分菜單文件，然后經(jīng)交互方式加入到系統(tǒng)中去。（3）在系統(tǒng)的ACAD.LSP 或類似文件中加入某些內(nèi)容以便進行各種初始化操作，如在啟動時立即裝入一些文件等。（4）通過系統(tǒng)對話框設置某些路徑。這些操作在程序開發(fā)成功后向其它AUTOCAD系統(tǒng)上安裝應用，特別是需要大批安裝時，需要進行很多文件檢索、內(nèi)容增刪、子目錄創(chuàng)建、文件拷貝、系統(tǒng)設置等繁瑣工作，如能令上述工作全部自動進行，使整個二次開發(fā)程序在無人干預的情況下嵌入系統(tǒng)，將大大提高工作效率。AUTOCAD榮登全球繪圖軟件的龍頭寶座，主要是因為它具有開放的體系結(jié)構(gòu)。它允許用戶和開發(fā)者采用高級編程語言對其進行擴充和修改，即二次開發(fā)，能最大限度地滿足用戶的特殊要求。AUTOCAD第一版于1982年11月由AUTODESK公司推出，目前大家廣泛使用的是AUTOCAD 2004或2007，最新版本是 AUTOCAD 2010，其二次開發(fā)語言及工具也在不斷地涌現(xiàn)。2.2 AUTOCAD 的二次開發(fā)工具介紹2.2.1 AUTOLISPAUTOLISP 的全名是 LIST PROCESSING LANGUAGE，她出現(xiàn)于 1985 年推出的AUTOCAD R2.18 中，是一種嵌入在 AUTOCAD 內(nèi)部的編程語言，是 LISP 原版的一個子集，她一直是低版本 AUTOCAD 的首選編程語言。它是一種表處理語言，是被解釋執(zhí)行的，任何一個語句鍵入后就能馬上執(zhí)行，它對于交互式的程序開發(fā)非常方便。其缺點是繼承了 LISP 語言的編程規(guī)則而導致繁多的括號。2.2.2 ADSADS的全名是AUTOCAD DEVELOPMENT SYSTEM，它是AUTOCAD的C語言開發(fā)系統(tǒng)，ADS 本質(zhì)上是一組可以用C語言編寫AUTOCAD應用程序的頭文件和目標庫，它直接利用用戶熟悉的各種流行的C語言編譯器，將應用程序編譯成可執(zhí)行的文件在AUTOCAD環(huán)境下運行，這種可以在AUTOCAD環(huán)境中直接運行的可執(zhí)行文件叫做ADS應用程序。ADS由于其速度快，又采用結(jié)構(gòu)化的編程體系，因而很適合于高強度的數(shù)據(jù)處理，如二次開發(fā)的機械設計CAD、工程分析CAD、建筑結(jié)構(gòu)CAD、土木工程CAD、化學工程CAD、電氣工程CAD 等。2.2.3 OBJECTARXOBJECTARX是一種嶄新的開發(fā)AUTOCAD應用程序的工具，是以C+為編程語言，采用先進的面向?qū)ο蟮木幊淘?，提供可與AUTOCAD直接交互的開發(fā)環(huán)境，能使用戶方便快捷地開發(fā)出高效簡潔的AUTO CAD應用程序。OBJECTARX并沒有包含在AUTOCAD中，可在AUTODESK公司網(wǎng)站中去下載，其最新版本是OBJECTARX FORAUTOCAD2010，它能夠?qū)UTOCAD的所有事務進行完整的、先進的、面向?qū)ο蟮脑O計與開發(fā)，并且開發(fā)的應用程序速度更快、集成度更高、穩(wěn)定性更強。OBJECTARX從本質(zhì)上講，是一種特定的C+編程環(huán)境，她包括一組動態(tài)鏈接庫（DLL），這些庫與AUTOCAD在同一地址空間運行并能直接利用 AUTOCAD 核心數(shù)據(jù)結(jié)構(gòu)和代碼，庫中包含一組通用工具，使得二次開發(fā)者可以充分利用AUTOCAD的開放結(jié)構(gòu)，直接訪問 AUTOCAD數(shù)據(jù)庫結(jié)構(gòu)、圖形系統(tǒng)以及CAD幾何造型核心，以便能在運行期間實時擴展AUTOCAD的功能，創(chuàng)建能全面享受AUTOCAD固有命令的新命令。OBJECTARX的核心是兩組關(guān)鍵的 API，即ACDB(AUTO CAD數(shù)據(jù)庫)和ACED(AUTO CAD編譯器)，另外還有其它的一些重要庫組件，如ACRX(AUTOCAD實時擴展)、ACGI(AUTO CAD 圖形接口)、ACGE(AUTO CAD幾何庫)、ADSRX(AUTO CAD 開發(fā)系統(tǒng)實時擴展）。OBJECTARX還可以按需要加載應用程序；使用OBJECTARX進行應用開發(fā)還可以在同一水平上與WINDOWS系統(tǒng)集成，并與其它WINDOWS應用程序?qū)崿F(xiàn)交互操作。2.2.4 VISUAL LISPVISUAL LISP 已經(jīng)被完整地集成到 AUTOCAD 2000以上版本中，為開發(fā)者提供了嶄新的、增強的集成開發(fā)環(huán)境，一改過去在 AUTOCAD中內(nèi)嵌ATUOLISP運行引擎的機制，這樣開發(fā)者可以直接使用AUTOCAD中的對象和反應器，進行更底層的開發(fā)。其特點為自身是AUTOCAD中默認的代碼編輯工具；用它開發(fā)AUTOLISP程序的時間被大大地縮短，原始代碼能被保密，以防盜版和被更改；能幫助大家使用ACTIVEX對象及其事件；使用了流行的有色代碼編輯器和完善的調(diào)試工具，使大家很容易創(chuàng)建和分析LISP程序的運行情況。在VISUAL LISP中新增了一些函數(shù)：如基于AUTOLISP的ACTIVEX/COM自動化操作接口；用于執(zhí)行基于AUTO CAD內(nèi)部事件的LISP程序的對象反應器；新增了能夠?qū)Σ僮飨到y(tǒng)文件進行操作的函數(shù)。2.2.5 VBAVBA即MICROSOFT OFFICE中的VISUAL BASIC FOR APPLICATIONS，它被集成到AUTOCAD中。VBA為開發(fā)者提供了一種新的選擇，也為用戶訪問AUTOCAD 2000以上版本中豐富的技術(shù)框架打開一條新的通道。VBA和AUTOCAD中強大的ACTIVEX自動化對象模型的結(jié)合，代表了一種新型的定制AUTOCAD的模式構(gòu)架。通過VBA，可以操作AUTOCAD，控制ACTIVEX和其它一些應用程序，使之相互之間發(fā)生互易活動。而VLISP則是靈活而充分地使用AutoCAD的現(xiàn)有功能，適合于“組合使用”AutoCAD的現(xiàn)有功能。這樣，程序設計著對AutoCAD操作的數(shù)量程度，就明顯地影響著程序設計的結(jié)果。就是說，這種程序設計模式，將能充分利用程序設計著使用AutoCAD的經(jīng)驗和技巧。也可以用VLISP按照ARX/VBA的ActiveX模式寫程序。2.2.6 其它性能可以在AutoLISP程序中引用AutoCAD的幾乎所有的功能，進行圖形處理的自動化，尤其是較深層的應用對象數(shù)據(jù)庫的操作。在Visual LISP的協(xié)助下，從對AutoCAD進行操作的功能上討論，僅比ARX少幾個功能：自定義AutoCAD對象、多圖檔的深入管理等。從目前的情況看，AutoLISP 是 AutoCAD中幾乎所有的應用程序的“總管、大管家”，而且目前只有 AutoLISP 表達式，才能以添加在腳本文件、對話框程序、菜單、甚至VBA程序的 ThisDrawing.SendCommand中，更可以直接用在AutoCAD的命令行中響應幾乎所有的命令。LISP是典型的結(jié)構(gòu)化程序設計語言，AutoLISP是解釋運行，源程序保密性差，巨量數(shù)據(jù)的復雜運算效率較低，文件管理功能簡單，但可以在絕大多數(shù)源程序內(nèi)容不變的條件下，用Visual LISP將其編譯成VLX程序包或者FAS程序，這樣處理之后的AutoLISP程序，將具有與ARX程序相同的高保密性能，也將具有比解釋運行明顯提高的運行效率。而且，AutoLISP程序設計的復雜程度和運行風險大大低與ARX，絕少在程序崩潰后連帶AutoCAD崩潰。第三章 CAD 開發(fā)的發(fā)展前景和趨勢3 .1 CAD開發(fā)的發(fā)展前景市場需求是技術(shù)創(chuàng)新的動力。二十世紀的一個重大變革是全球市場得統(tǒng)一，它使市場競爭更加激烈，產(chǎn)品更新周期加速。在這種背景下，CAD開發(fā)技術(shù)得到迅速普及和極大發(fā)展。海灣戰(zhàn)爭結(jié)束當年，美國評出二十世紀最具影響的十大技術(shù)中，CAD便榜上有名。CAD技術(shù)從最初的工業(yè)設計領(lǐng)域已滲透到人們?nèi)粘Ｉ畹拿總€角落，從機械、電子、航空、航天、郵電、兵工、紡織、建筑、船舶、地質(zhì)、采礦，一直到藝術(shù)、裝演、醫(yī)療、教學、旅游、管理等，可以說無數(shù)不包，以CAD技術(shù)為基礎開發(fā)的各類商業(yè)專業(yè)軟件已超過10萬個，其中以工程設計領(lǐng)域的CAD所占比例最大，發(fā)展和普及速度也最快，并且取得了顯著的經(jīng)濟效益，如美國Autodesk公司開發(fā)AutoCAD己推出了17個版本，應用領(lǐng)域遍及全球各個行業(yè)。近二十年來，隨著計算機硬件技術(shù)的發(fā)展，特別是圖形處理設備的飛速發(fā)展，計算機輔助設計/制造（CAD/CAM）技術(shù)以驚人的速度快速發(fā)展，有專家評價“如果把電子技術(shù)看作是工業(yè)的一次革命的話，那么CAD/CAM是工業(yè)的另一次革命，它是計算機對人類文明的巨大推動在工業(yè)萬面的重要體現(xiàn)，其前景是不可限量的”。據(jù)美國1991年統(tǒng)計，在超大規(guī)模集成電路設計生產(chǎn)十引入CAD技術(shù)后，提高效率18倍，機械工業(yè)提高5倍，建筑行業(yè)提高3倍，出版行業(yè)提高4.4倍。隨著交互式圖形技術(shù)，特別是可視化技術(shù)的提高，其效率會有更明顯的增長。3.2 CAD技術(shù)發(fā)展趨勢隨著CAD技術(shù)的普及應用，CAD技術(shù)正向著開放、集成、智能和標準化的方向發(fā)展。開放性是決定一個系統(tǒng)能否真正達到實用化并轉(zhuǎn)化為現(xiàn)實生產(chǎn)力的基礎，著主要體現(xiàn)在系統(tǒng)統(tǒng)的工作平臺、用戶接口、應用開發(fā)環(huán)境廈與其他系統(tǒng)的信息交換等方面。所謂集成就是向企業(yè)提供一體化的解決方案，通過集成能最大限度地實現(xiàn)企業(yè)信息共享，建立新的企業(yè)運行方式，提高生產(chǎn)效率。完善的標準化體系則是我國CAD軟件開發(fā)及技術(shù)應用與世界接軌的必由之路。作為CAD系統(tǒng)的支撐環(huán)境，開放的操作系統(tǒng)，如：WINDOWS,UNIX 將是今后CAD系統(tǒng)的主流；面向?qū)ο蟮木幊碳夹g(shù)和數(shù)據(jù)庫技術(shù)將為CAD系統(tǒng)的發(fā)展作出貢獻；系統(tǒng)的智能化結(jié)臺專家系統(tǒng)、知識工程，將各個領(lǐng)域的專家經(jīng)驗融臺于CAD系統(tǒng)中，并開發(fā)出智能化用戶界面，使之更為廣大工程設計人員所接受；系統(tǒng)的集成化是大勢所趨，80年代中期CAD/CAM技術(shù)的集成形成了CIMS高科技系統(tǒng)。概括起來今后CAD系統(tǒng)將會在以下幾方面發(fā)展：(1)在計算機圖形和幾何造型技術(shù)上由二維向三維發(fā)展。幾何造型技術(shù)解決了如何將三維圖形轉(zhuǎn)化為數(shù)學模型并存入數(shù)據(jù)庫中的問題，三維造型方法主要有：線框模型、曲面造型和實體造型。三維圖形技術(shù)與數(shù)據(jù)庫技術(shù)相結(jié)合對 CAD/CAM系統(tǒng)的發(fā)展具有極其重要的意義。(2)與圖形學發(fā)展相關(guān)的硬件支持，如：高速圖形圖像處理技術(shù)、三維顯示技術(shù)、三維數(shù)字化儀等。(3)集成化技術(shù)將繼續(xù)得到快速的發(fā)展，從單一行業(yè)領(lǐng)域內(nèi)的業(yè)務性集成， 向多行業(yè)集成發(fā)展，如CIMS系統(tǒng)、工程設計建筑、水、電、暖一體化的集成。(4)與CAD集成的工程數(shù)據(jù)庫技術(shù)仍將繼續(xù)發(fā)展，過去許多基于商用數(shù)據(jù)庫開發(fā)的圖形數(shù)據(jù)庫，效果并不理想。開發(fā)集成化專用數(shù)據(jù)庫是今后的發(fā)展方向，它既能支持幾何信息，也能支持非幾何數(shù)據(jù)，同時能夠支持工程構(gòu)件、零部件、產(chǎn)品等實體的多級描述及長時間的事務處理要求。(5)基于網(wǎng)絡和多媒體技術(shù)的分布式CAD系統(tǒng)將大量發(fā)展，網(wǎng)絡環(huán)境下的分布式CAD系統(tǒng)，將各種不同的CAD作業(yè)、不同的硬、軟件支撐環(huán)境集成于一個網(wǎng)絡環(huán)境，或客戶/服務器環(huán)境下；各種不同的信息表示與傳輸媒體，如聲音、圖形、圖像、數(shù)據(jù)等集成于一個系統(tǒng)內(nèi)，即多媒體CAD系統(tǒng)。(6)智能化、專家系統(tǒng)技術(shù)也是一個熱門研究方向，如何在CAD系統(tǒng)中應用人工智能和知識庫，以提高系統(tǒng)的智能水平并加強人機之間的密切協(xié)作。(7)以可視化技術(shù)和虛擬技術(shù)為核心的集成化和交互式CAD系統(tǒng)是熱門研究方向。第四章 地籍測量內(nèi)業(yè)的方法和步驟4.1 CASS7.1地形地籍成圖軟件簡介CASS是南方測繪公司基于CAD基礎上二次開發(fā)的軟件，CASS7.1數(shù)字化地形地籍成圖軟件，是南方測繪儀器公司在 AutoCAD 基礎上開發(fā)的新一代數(shù)字化地形地籍成圖軟件，主要應用于地形成圖、地籍成圖、工程測量三大領(lǐng)域。CASS7.1除具有AutoCAD強大的圖形編輯功能外，在菜單中特別添加了地籍成圖菜單功能：界址線、界址點、街坊內(nèi)統(tǒng)一編號、自動累加，方便重排瀏覽與查詢編輯；圖形屬性聯(lián)動、地圖圖形屬性合為一體，修改宗地屬性方便快捷；自由分割、合并宗地、宗地面積自動重算、自動面積查錯、繪制地籍表格等功能方便實用，更加符合地籍測繪的實際需要，便于地籍數(shù)據(jù)庫建設中各種圖形的編輯。4.2 CASS7.1 繪圖軟件在地籍測繪中的應用4.2.1 數(shù)據(jù)導入打開CASS7.1界面，首先要確定地圖比例尺，在繪圖處理菜單下點擊“展野外測點”，輸入繪圖比例尺分母即可。然后在彈出的“輸入坐標數(shù)據(jù)文件名”對話框中選擇需要打開的數(shù)據(jù)文件（*.dat 文件），點擊“打開”，即在當前現(xiàn)狀圖中展開測點。4.2.2 根據(jù)測繪草圖繪制地籍現(xiàn)狀圖在底圖上進行測點連線，圈出界線，對地形、地物及地面上的附著物等進行繪制與修改。在菜單中選擇相應的符號繪制房屋、圍墻、道路、植被、管線、水系設施等。軟件中增加了一些實用菜單如市政部件等，功能更加完善。4.2.3 繪制權(quán)屬線在地籍菜單下點擊“繪制權(quán)屬線”，按要求繪制閉合線，輸入該宗地的基本屬性，包括街道號、街坊號、宗地號、權(quán)利人及地類等，單擊任一注記位置，即可產(chǎn)生該宗地的面積。在已經(jīng)繪制好閉合線的前提下，點擊“復合線轉(zhuǎn)為權(quán)屬線”直接將閉合線轉(zhuǎn)為權(quán)屬線，系統(tǒng)將宗地號、地類號、權(quán)利人等信息輸入到權(quán)屬界線里，圖上就產(chǎn)生了該宗地的界址線、各界址邊長及面積，形成一個封閉的宗地；再點擊地籍菜單中“注記界址點”下的“全圖注記”，圖上就產(chǎn)生了該宗地的界址點號，該宗地權(quán)屬界線的繪制就完成了。如果在同一宗地圖中移動或改變過界址線，當界址點名排列較凌亂時，可選擇“重排界址點”功能，使街坊內(nèi)的界址點號重新排序，點擊“注記界址點名”，則軟件自動注記排序后的界址點。一個街坊內(nèi)不同的界址點其編號一般是唯一的，每一宗地的界址點號在地籍圖上一目了然，查詢起來很方便。4.2.4 生成地籍表格選擇地籍菜單下“繪制地籍表格”中的“界址點坐標表”單擊表格左上角點，命令行中出現(xiàn)“選擇定點方法”，一般在生成表格前都已經(jīng)繪制完權(quán)屬線，這里直接回車，選擇復合線或宗地，屏幕上就會產(chǎn)生該宗地的界址點坐標表。CASS7.1還可以根據(jù)需要生成其它地籍表格，比如界址點成果表、以街坊為單位界址點坐標表、以街道為單位宗地面積匯總表、城鎮(zhèn)土地分類面積統(tǒng)計表等，輸入相應的信息就可生成不同的表格。4.2.5 完成宗地圖在圖上標注指北針、圖章，畫出圖框，一個宗地圖的繪制就基本完成了。完成宗地圖有兩種方法：一是采用直接“插入圖塊”方式，插入事先已繪制好1500比例圖章和指北針即可，如插入不同比例圖時，可以對其進行不同比例縮放；二是用地籍菜單中的“繪制宗地圖框”自動生成宗地圖。生成宗地圖也有兩種方法：一是批量生成方法，點擊“繪制宗地圖框”，選擇適合紙張，點擊“批量處理”，彈出“宗地圖參數(shù)對話框”，對“比例尺”進行“自動計算”或“手工輸入”的選擇，還可以選擇是否繪制坐標表等，用鼠標批量選取界址線，可以一次分出一排多幅宗地圖；二是單塊宗地生成方法，點擊“繪制宗地圖框”，按圖比例和大小，選擇適合紙張，點擊“單塊宗地”，彈出“宗地圖參數(shù)對話框”，進行比例尺、坐標表等參數(shù)的設置。選取界址線就可以生成宗地草圖，再按國家統(tǒng)一標準要求整飾后，就完成一幅標準宗地圖。4.2.6 老地類碼批量修改如何在CASS7.1軟件中實現(xiàn)地籍圖全國土地分類（試行）代碼轉(zhuǎn)換成新的土地利用現(xiàn)狀分類代碼，同時保證原有地籍數(shù)據(jù)平臺的一致性，手動修改效率低下容易遺漏，只有在軟件功能上挖掘，現(xiàn)介紹兩種方法。一是運用“地籍管理”中的數(shù)據(jù)庫功能，把地籍圖有效信息轉(zhuǎn)換成*.dbm的數(shù)據(jù)庫文件格式，在Acess軟件環(huán)境下，對表格形式數(shù)據(jù)庫文件內(nèi)的地類代碼行中進行批量替換修改，再把修改好的文件，重新使用外部文件形式導入。二是運用“地籍管理模塊”繪制權(quán)屬線功能，把原有地籍圖成果信息轉(zhuǎn)換成文本文件格式，在文本文件格式中轉(zhuǎn)換成Excel文件，對包含有地類代碼信息的字段進行批量替換，再把替換的文本文件，重新使用外部文件形式導入，生成新的地類代碼地籍成果圖就可以了。4.2.7 用CASS7.1軟件做地籍測量的總結(jié)CASS7.1繪圖軟件不失為一種高效率的測繪軟件，隨著數(shù)字化地籍成圖得到越來越多的廣泛應用，CASS7.1軟件中還有大部分功能有待去開發(fā)、研究，能熟練掌握應用它的功能，將大大提高工作效率。下面再介紹一種可以簡單快速提取宗地圖的方法。第五章 Visual LISP 語言編程快速提取宗地圖5.1 宗地圖提取簡介城鎮(zhèn)地籍測量勘測定界測量中，宗地圖的制作是很關(guān)鍵的一步。但在日常操作中，按現(xiàn)有軟件，其制圖過程很難一步到位，圖面整飾需修改大量的數(shù)據(jù)，比如:縮小宗地比例后，距離、點號等可能壓線，圖上內(nèi)容雜亂無章，需一個個或移動或修改或刪除，重復工作量大，效率低下，容易出現(xiàn)漏洞或差錯。以下介紹利用Visual LISP語言編程，僅需兩個綜合程序便能基本完成宗地圖制作，大大強化了在城鎮(zhèn)地籍測量勘測定界制圖方面的功能。節(jié)省直接使用CASS來提取宗地圖的時間，提高生產(chǎn)效率。5.2 Visual Lisp 語言介紹5.2.1 Visual Lisp 的簡單介紹AutoCAD 軟件具有相當優(yōu)秀的開放型結(jié)構(gòu)(Open architecture)和一個強大的內(nèi)部編程語言(Autolisp語言，可以完成一些計算機工作和作圖功能)，可以方便地讓用戶開發(fā)自己的命令、標準庫文件和各種應用程序等，以滿足不同用戶的特殊需要。目前支持AutoCAD二次開發(fā)環(huán)境的主要有:Autolisp，Visual Lisp,VBA,ObjectARX,ActiveX Automation 及塊和形定義等。本文利用DCL(Dialog-box Control Language)、語言編制對話框、Visual Lisp 語言編程及定制菜單對AutoCAD2004 進行了二次開發(fā)與定制。AutoLISP是對AutoCAD進行二次開發(fā)最常用最有效的手段，是國內(nèi)外AutoCAD應用軟件開發(fā)者的首選工具。由于AutoLISP源程序的可讀性較差，使得AutoLISP程序的編制、修改和維護顯得不是很方便，尤其是對初學者更是如此?，F(xiàn)在VisualLISP的出現(xiàn)，大大改進了老版本AutoLISP的性能，比如源代碼的彩色顯示、語法檢查、即時求值、源代碼編譯等，顯著提高了軟件開發(fā)者的編程效率。利用Visual LISP 編制自己的應用程序，可以強化AutoCAD的應用特性，使AutoCAD成為自己的專業(yè)設計軟件。5.2.2 Visual Lisp 的使用特點Visual Lisp內(nèi)嵌于AutoCAD內(nèi)部。使用時，在command命令行鍵人VLIDE或VLISP，也可以點擊下拉菜單“TOOLS/Autolisp/Visual Lisp Editor，便可進人由文本編輯器、文件編譯器、調(diào)試器、語法撿查器和其他開發(fā)工具等組成的集成開發(fā)環(huán)境。Visual Lisp 提供了可視化編程環(huán)境，它可以檢查程序中的括號對應關(guān)系，由不同顏色所標志的語法檢查系統(tǒng)自動進行匹配?？梢詭椭褂谜哐杆侔l(fā)現(xiàn)打字錯誤，提供實時的語法檢查反饋。它也能夠為AutoLisp源程序提供自動格式化功能。另外，在程序中設置斷點以及高亮顯示正在運行的語句，可以檢測程序段的運行情況，幫助對程序的分析和排錯。Visual Lisp可對源代碼進行編譯生成二進制代碼，增加了程序的安全性，同時加快了程序的運行速度。用戶也很容易地管理多文件應用程序，編譯過的文件可以被封裝成一個單獨的模塊。Visual Lisp包括Lisp和ActiveX Automation之間的接口，用戶可以直接利用對象屬性窗口訪問對象的方法和屬性，并可以使用操作系統(tǒng)級的文件訪問函數(shù)。另外，方便的多文檔的處理環(huán)境也是 Visual Lisp 的一個顯著特點。5.3 程序設計與實現(xiàn)下面是用Visual LISP語言開發(fā)的在AutoCAD中制作宗地圖方面的幾個源程序。5.3.1 制作宗地圖框該程序命令名為“zdtk ,所在層為“zdt，默認比例尺為1 :500，若宗地圖比例尺為1:1000，只輸入1000即可，其余類推。該圖框為宗地圖常用的A4紙圖框。程序 1制作宗地圖框（defun c zdtk()(setvar cm decho 0)(command osnap off)(command layer m zdt )(setq zg1(getvar ltscale)(setq zg (* zg1 2)(setq zdbl(getint 請輸入宗地圖比例尺(500):) )(if (=zdbl nil) (setq zdbl 500)(setq ti(rtos (getvar cdate) 2 6)(setq nn( substr ti 1 4)(setq yy( substr ti 5 2) )(setq rr( substr ti 7 2) )(setq dat( strcat nn 年 yy 月 rr 日) )(setq ba(getpoint the base point ) )(setq a1(car ba) )(setq b1(cadr ba) )(setq d1( list a1 b1) )(setq d2( list a1 (+ b1 (* zg 100) ) ) )(setq d3( list a1 (+ b1 (* zg 115) ) ) )(setq d4( list (+a1(* zg 90) ) ( +b1(* zg 115) ) ) )(setq d5( list (+a1(* zg 90) ) ( +b1(* zg 100) ) ) )(setq d6( list (+a1(* zg 90) )b1) )(setq d7( list (+a1(* zg 1) )(-b1(* zg 3 5) ) ) )(setq d8( list (+a1(* zg 1) ) (-b1(* zg 7) ) )( setq d9( list (+a1(* zg 74) ) (-b1(* zg 3.5) ) ) )( setq d10( list(+a1(* zg 74) ) (-b1(* zg 7) ) ) )( setq d11( list(+a1(* zg 10.2) ) (-b1(* zg 3.5) ) ) )( setq d12( list(+a1(* zg 45) ) (-b1(* zg 4.25) ) ) )( setq d13( list(+a1(* zg 2.5) ) (+b1(* zg 110) ) ) )( setq d14( list(+a1(* zg 2.5) ) (+b1(* zg 104) ) )( setq d15( list(+a1(* zg 47) ) (+b1(* zg 106.5) ) ) )( setq d16( list(+a1(* zg 45) ) (+b1(* zg 118) ) ) )( setq d17( list(+a1(* zg 74.5) ) (+b1(* zg 117) ) ) )( setq d18( list(+a1(* zg 86) ) (+b1(* zg 118) ) ) )( setq d19( list(+a1(* zg 85.75) ) (+b1(* zg 95) ) ) )( setq d20( list(+a1(* zg 85.75) ) (+b1(* zg 92.5) ) ) )( setq d21( list(+a1(* zg 83.5) ) (+b1(* zg 82.5) ) ) )( setq d22( list(+a1(* zg 88) ) (+b1(* zg 82.5) ) )( setq d23( list(+a1(* zg 85.75) )(+b1(* zg 86) ) ) )( command pline d1 d3 d4 d6 c)( command pline d2 d5 )( command text j bl d7(* zg 1.75)0 繪圖日期: )( command text j bl d8(* zg 1.75)0 審核日期: )( command text j bl d9(* zg 1.75)0 繪圖員: )( command text j bl d10(* zg 1.75)0 審核員: )( command text j bl d11(* zg 1.75)0 dat)( command text j bc d12(* zg 1. 75)0(strcat 1: (itoa zdbl) ) )( command text j bl d13(* zg 1.75)0 宗地編號: )( command text j bl d14(* zg 1.75)0 地籍圖號: )( command text j bl d15(* zg 1.75)0 權(quán)利人: )( command text j bc d16(* zg 3)0 宗地圖)( command text j bl d17(* zg1.75)0 單位: m、m)( command text j bl d18(* zg 0.85)0 2)( command solid d20 d21 d22 d23 )( command text j m d19 (* zg 1.75)0 北)( command layer m 0 )( prin1) )5.3.2 自動注記點號、距離、面積將閉合復合線改為紅色界址線并自動注記點號、距離、面積,且縮至宗地圖所需比例。該程序命令名為“zdt”,點號前綴可輸入任意字符或字符串,默認為“J”,不論輸入大寫或小寫,均轉(zhuǎn)換為大寫,點號注記到“dh”層,界址線及界址點圓圈自動保存到“jz”層,距離及面積都在“zj”層,縮放基準點為選取復合線點,默認比例尺為 1500(同上面程序),執(zhí)行完該程序即變?yōu)樗枳诘乇壤叩膱D形。程序 2將閉合復合線改為紅色界址線并自動注記點號、距離、面積,且縮至宗地圖所需比例(defun c zdt()( setvar cm decho 0)( setq os(getvar osm ode) )( setvar osm ode 0)( setq zg1(getvar ltscale) )( if (= zg1 0.5) (setq bl 500)( if (= zg1 1.0) (setq bl 1000)( if (= zg1 2.0) (setq bl 2000)( setq zg (* zg1 2) )( setq zgy (* zg1 0.3)( setq xs(* zg 1.25) )( setq zdbl(getreal 請輸入宗地圖比例尺(500): ) )( if (= zdb l nil) (setq zdbl500. 0)( setq bs( / zdb l b l) )( setq zgm(* (* zg1 bs) 3. 0) )( setq qz(getstring 請輸入點號前綴: (J) )( if (= qz ) (setq qz J) )( command layer m zj )( setq ss(entsel)( setq ba(n th 1 ss) )( setq kk(command area o ss) )( setq kk1(getvar area ) )( setq kk2(rtos kk1 2 0) )( setq mjba(getpoint n 請選擇面積注記位置: ) )( command text c m jba zgm 0 (strcat 凈用地面積: kk2 平方米) )( setq jlen1(entlast)( command scale jlen 1 ba ( /1. 0 bs) )( setq endata(entget (car ss) ) )( jzx 1)( setq i 0)( setq j 2)( setq k 0)( setq key -2)( while ( /= key 10)( setq w(nth i endata)( setq key(car w) )( setq i(+ i 1) ) )( while ( /= key 210)( setq w( nth k endata) )( setq key( car w) )( setq k( + k 1) )( setq k(- k 1) )( setq d1(- k 4) )( setq d2(- k 8) )( setq n(- i 1) )( setq nn n)( setq pp1( nth n endata)( setq fir pp1)( setq fir1( cdr fir) )( setq n( + n 4) )( setq pp2( nth n endata) )( setq sec pp2)( setq sec1( cdr sec)( while(= n d1)( if (= n d1)( progn( setq pp1( nth d1 endata) )( setq pp2 fir)( setq da( distance pp1 pp2) )( setq da1( rtos da 2 2) )( setq p1( cdr pp1) )( setq p2 fir1)( setq p3 sec1)( jlgg)( pfx2)( setq dhm( strcat (strcase qz) 1) )( command layer m dh )( command text j m p5 (* zg bs) 0 dhm )( setq dhen3( entlast) )( command scale dhen3 ba ( /1. 0 bs) )( command scale ss ba ( /1. 0 bs) )( command layer m 0 )( setvar osm ode os)( setq n(+ n 4) ) )( if (= n d2)( progn( setq n(- n 8)