二次開(kāi)發(fā)技術(shù)在地籍測(cè)量中的應(yīng)用聶利挺.docx

CAD二次開(kāi)發(fā)技術(shù)在地籍測(cè)量中的應(yīng)用摘要數(shù)字化地籍測(cè)量已經(jīng)成為我國(guó)地籍測(cè)量工作的主要方法，其工作效率的提高和制作方法的選擇成了目前的研究方向，快速且準(zhǔn)確的生產(chǎn)方法能夠節(jié)省生產(chǎn)成本和提高生產(chǎn)效率。本文簡(jiǎn)單介紹了AutoCAD的二次開(kāi)發(fā)繪圖軟件在地籍測(cè)繪中的運(yùn)行方式和應(yīng)用技巧。并主要從使用AutoCAD二次開(kāi)發(fā)繪圖軟件南方CASS7.1對(duì)地形圖的繪制，即CASS在地籍測(cè)量?jī)?nèi)業(yè)中的應(yīng)用；以及用AutoCAD的二次開(kāi)發(fā)工具Visual LISP語(yǔ)言編寫(xiě)在AutoCAD軟件環(huán)境下快速制作宗地圖的程序這二個(gè)方面進(jìn)行了初步的介紹。通過(guò)使用CAD的二次開(kāi)發(fā)功能，完全實(shí)現(xiàn)了數(shù)字化地籍測(cè)量的目標(biāo)，很好的完成了本次地籍測(cè)量任務(wù)。關(guān)鍵詞：CAD；CASS；Visual LISP；地籍測(cè)量；宗地圖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ù)字化地籍測(cè)量簡(jiǎn)介51.2. CAD二次開(kāi)發(fā)的原理應(yīng)用5第二章 CAD二次開(kāi)發(fā)介紹72.1 AUTOCAD的二次開(kāi)發(fā)簡(jiǎn)介72.2 AUTOCAD 的二次開(kāi)發(fā)工具介紹72.2.1 AUTOLISP72.2.2 ADS72.2.3 OBJECTARX82.2.4 VISUAL LISP82.2.5 VBA92.2.6 其它性能9第三章 CAD 開(kāi)發(fā)的發(fā)展前景和趨勢(shì)113 .1 CAD開(kāi)發(fā)的發(fā)展前景113.2 CAD技術(shù)發(fā)展趨勢(shì)11第四章 地籍測(cè)量?jī)?nèi)業(yè)的方法和步驟134.1 CASS7.1地形地籍成圖軟件簡(jiǎn)介134.2 CASS7.1 繪圖軟件在地籍測(cè)繪中的應(yīng)用134.2.1 數(shù)據(jù)導(dǎo)入134.2.2 根據(jù)測(cè)繪草圖繪制地籍現(xiàn)狀圖134.2.3 繪制權(quán)屬線(xiàn)134.2.4 生成地籍表格144.2.5 完成宗地圖144.2.6 老地類(lèi)碼批量修改144.2.7 用CASS7.1軟件做地籍測(cè)量的總結(jié)15第五章 Visual LISP 語(yǔ)言編程快速提取宗地圖165.1 宗地圖提取簡(jiǎn)介165.2 Visual Lisp 語(yǔ)言介紹165.2.1 Visual Lisp 的簡(jiǎn)單介紹165.2.2 Visual Lisp 的使用特點(diǎn)165.3 程序設(shè)計(jì)與實(shí)現(xiàn)175.3.1 制作宗地圖框175.3.2 自動(dòng)注記點(diǎn)號(hào)、距離、面積195.3.3 程序加載27第六章 結(jié)語(yǔ)28參考文獻(xiàn)30第一章 緒論1.1 數(shù)字化地籍測(cè)量簡(jiǎn)介國(guó)土資源信息化“十五”規(guī)劃(綱要)中明確提出了以信息化建設(shè)帶動(dòng)國(guó)土資源信息技術(shù)跨越式發(fā)展和國(guó)土資源管理方式的根本轉(zhuǎn)變。抓住國(guó)民經(jīng)濟(jì)和社會(huì)信息化的機(jī)遇,加快國(guó)土資源管理的信息化,以管理信息化帶動(dòng)管理科學(xué)化和服務(wù)社會(huì)化。因此,傳統(tǒng)的用圖紙和表格等來(lái)記錄存儲(chǔ)土地信息的地籍管理方式已越來(lái)越不能適應(yīng)現(xiàn)代化地籍管理的需要,利用計(jì)算機(jī)技術(shù)對(duì)土地信息進(jìn)行采集、管理、操作、分析、模擬、顯示、統(tǒng)計(jì)、查詢(xún)等,實(shí)現(xiàn)地籍管理信息化和數(shù)字化已成為土地管理部門(mén)的工作重點(diǎn)。地籍測(cè)量信息處理的主要工作是通過(guò)野外采集的平面圖數(shù)據(jù)及權(quán)屬調(diào)查草圖等信息,繪制出標(biāo)準(zhǔn)地籍分幅圖、宗地圖,并生成相應(yīng)的各宗地的面積量算表、各街坊界址點(diǎn)成果表和面積統(tǒng)計(jì)表、各級(jí)土地分類(lèi)統(tǒng)計(jì)表等,為政府提供精確的統(tǒng)計(jì)數(shù)字,是土地管理部門(mén)進(jìn)行管理、規(guī)劃的科學(xué)依據(jù)。宗地是一系列界址坐標(biāo)點(diǎn)構(gòu)成的封閉多邊形,宗地圖是土地證上必須附有的圖件,是土地使用者的重要依據(jù),面積是其主要屬性,通常具有法律意義。傳統(tǒng)的宗地圖繪制主要是從分幅地籍圖上蒙繪,其精度主要受分幅地籍圖的精度及蒙繪的精度影響。而對(duì)于已經(jīng)數(shù)字化的分幅地籍圖,宗地圖的繪制則主要采用在計(jì)算機(jī)繪圖系統(tǒng)中對(duì)分幅地籍圖進(jìn)行裁剪,繪制界址線(xiàn)、生成界址點(diǎn)成果表,注記界址邊長(zhǎng)、宗面積、權(quán)利人、地類(lèi)號(hào)等屬性的方法來(lái)實(shí)現(xiàn)。蒙繪法的精度很低,已不能適應(yīng)現(xiàn)代地籍信息化管理的需要。而采用一般方法利用計(jì)算機(jī)來(lái)進(jìn)行宗地圖的繪制,工作量大、重復(fù)性強(qiáng)、自動(dòng)化程度低。筆者通過(guò)不斷探索與實(shí)踐,用南方CASS地籍地形成圖軟件實(shí)現(xiàn)繪圖,用VisualLisp 編寫(xiě)程序?qū)崿F(xiàn)了宗地圖的自動(dòng)繪制,界址點(diǎn)成果表、各類(lèi)土地分類(lèi)統(tǒng)計(jì)表和面積統(tǒng)計(jì)表的自動(dòng)生成。提高了工效,降低了勞動(dòng)強(qiáng)度,取得了良好的工作效果和社會(huì)效益。1.2. CAD二次開(kāi)發(fā)的原理應(yīng)用用南方CASS實(shí)現(xiàn)了繪圖，用Visual Lisp編寫(xiě)程序作為地籍菜單在CASS顯示。即可直接調(diào)用其功能，例如繪制權(quán)屬線(xiàn)，提取宗地圖，自動(dòng)計(jì)算宗地面積等等。CASS是南方測(cè)繪儀器公司在Auto CAD上開(kāi)發(fā)的新一代數(shù)字化地形地籍地圖軟件，地形地籍測(cè)繪的主要基礎(chǔ)是數(shù)字地圖。數(shù)字地圖具備精度高、規(guī)范化、可綜合應(yīng)用等特點(diǎn)，對(duì)各用圖單位進(jìn)行的規(guī)劃、設(shè)計(jì)、計(jì)算、綜合管理等方面的工作有著極大的優(yōu)越性，并且與過(guò)去的手工測(cè)圖相比，其效率及效益更高，運(yùn)用領(lǐng)域更加廣泛。而在城鎮(zhèn)地籍測(cè)量中，宗地圖的制作是很關(guān)鍵的一步，宗地圖的精度和制成的速度直接影響地籍測(cè)量的進(jìn)度。本文利用Visual LISP語(yǔ)言編程，僅需兩個(gè)綜合程序便能基本完成宗地圖制作，且精度能很好的達(dá)成要求。大大強(qiáng)化了AutoCAD在城鎮(zhèn)地籍測(cè)量中勘測(cè)定界制圖方面的功能。第二章 CAD二次開(kāi)發(fā)介紹2.1 AUTOCAD的二次開(kāi)發(fā)簡(jiǎn)介AUTOCAD的二次開(kāi)發(fā)主要涉及以下內(nèi)容：（1）編寫(xiě)各種用戶(hù)自定義函數(shù)并形成若干LISP、ARX、VLX或ADS文件，以及一些DCL文件。（2）建立符合自己要求的菜單文件，一般可在 AUTOCAD 原菜單文件內(nèi)添加自己的內(nèi)容，對(duì)于AUTOCAD2000版本還可增加部分菜單文件，然后經(jīng)交互方式加入到系統(tǒng)中去。（3）在系統(tǒng)的ACAD.LSP 或類(lèi)似文件中加入某些內(nèi)容以便進(jìn)行各種初始化操作，如在啟動(dòng)時(shí)立即裝入一些文件等。（4）通過(guò)系統(tǒng)對(duì)話(huà)框設(shè)置某些路徑。這些操作在程序開(kāi)發(fā)成功后向其它AUTOCAD系統(tǒng)上安裝應(yīng)用，特別是需要大批安裝時(shí)，需要進(jìn)行很多文件檢索、內(nèi)容增刪、子目錄創(chuàng)建、文件拷貝、系統(tǒng)設(shè)置等繁瑣工作，如能令上述工作全部自動(dòng)進(jìn)行，使整個(gè)二次開(kāi)發(fā)程序在無(wú)人干預(yù)的情況下嵌入系統(tǒng)，將大大提高工作效率。AUTOCAD榮登全球繪圖軟件的龍頭寶座，主要是因?yàn)樗哂虚_(kāi)放的體系結(jié)構(gòu)。它允許用戶(hù)和開(kāi)發(fā)者采用高級(jí)編程語(yǔ)言對(duì)其進(jìn)行擴(kuò)充和修改，即二次開(kāi)發(fā)，能最大限度地滿(mǎn)足用戶(hù)的特殊要求。AUTOCAD第一版于1982年11月由AUTODESK公司推出，目前大家廣泛使用的是AUTOCAD 2004或2007，最新版本是 AUTOCAD 2010，其二次開(kāi)發(fā)語(yǔ)言及工具也在不斷地涌現(xiàn)。2.2 AUTOCAD 的二次開(kāi)發(fā)工具介紹2.2.1 AUTOLISPAUTOLISP 的全名是 LIST PROCESSING LANGUAGE，她出現(xiàn)于 1985 年推出的AUTOCAD R2.18 中，是一種嵌入在 AUTOCAD 內(nèi)部的編程語(yǔ)言，是 LISP 原版的一個(gè)子集，她一直是低版本 AUTOCAD 的首選編程語(yǔ)言。它是一種表處理語(yǔ)言，是被解釋執(zhí)行的，任何一個(gè)語(yǔ)句鍵入后就能馬上執(zhí)行，它對(duì)于交互式的程序開(kāi)發(fā)非常方便。其缺點(diǎn)是繼承了 LISP 語(yǔ)言的編程規(guī)則而導(dǎo)致繁多的括號(hào)。2.2.2 ADSADS的全名是AUTOCAD DEVELOPMENT SYSTEM，它是AUTOCAD的C語(yǔ)言開(kāi)發(fā)系統(tǒng)，ADS 本質(zhì)上是一組可以用C語(yǔ)言編寫(xiě)AUTOCAD應(yīng)用程序的頭文件和目標(biāo)庫(kù)，它直接利用用戶(hù)熟悉的各種流行的C語(yǔ)言編譯器，將應(yīng)用程序編譯成可執(zhí)行的文件在AUTOCAD環(huán)境下運(yùn)行，這種可以在AUTOCAD環(huán)境中直接運(yùn)行的可執(zhí)行文件叫做ADS應(yīng)用程序。ADS由于其速度快，又采用結(jié)構(gòu)化的編程體系，因而很適合于高強(qiáng)度的數(shù)據(jù)處理，如二次開(kāi)發(fā)的機(jī)械設(shè)計(jì)CAD、工程分析CAD、建筑結(jié)構(gòu)CAD、土木工程CAD、化學(xué)工程CAD、電氣工程CAD 等。2.2.3 OBJECTARXOBJECTARX是一種嶄新的開(kāi)發(fā)AUTOCAD應(yīng)用程序的工具，是以C+為編程語(yǔ)言，采用先進(jìn)的面向?qū)ο蟮木幊淘?，提供可與AUTOCAD直接交互的開(kāi)發(fā)環(huán)境，能使用戶(hù)方便快捷地開(kāi)發(fā)出高效簡(jiǎn)潔的AUTO CAD應(yīng)用程序。OBJECTARX并沒(méi)有包含在AUTOCAD中，可在AUTODESK公司網(wǎng)站中去下載，其最新版本是OBJECTARX FORAUTOCAD2010，它能夠?qū)UTOCAD的所有事務(wù)進(jìn)行完整的、先進(jìn)的、面向?qū)ο蟮脑O(shè)計(jì)與開(kāi)發(fā)，并且開(kāi)發(fā)的應(yīng)用程序速度更快、集成度更高、穩(wěn)定性更強(qiáng)。OBJECTARX從本質(zhì)上講，是一種特定的C+編程環(huán)境，她包括一組動(dòng)態(tài)鏈接庫(kù)（DLL），這些庫(kù)與AUTOCAD在同一地址空間運(yùn)行并能直接利用 AUTOCAD 核心數(shù)據(jù)結(jié)構(gòu)和代碼，庫(kù)中包含一組通用工具，使得二次開(kāi)發(fā)者可以充分利用AUTOCAD的開(kāi)放結(jié)構(gòu)，直接訪(fǎng)問(wèn) AUTOCAD數(shù)據(jù)庫(kù)結(jié)構(gòu)、圖形系統(tǒng)以及CAD幾何造型核心，以便能在運(yùn)行期間實(shí)時(shí)擴(kuò)展AUTOCAD的功能，創(chuàng)建能全面享受AUTOCAD固有命令的新命令。OBJECTARX的核心是兩組關(guān)鍵的 API，即ACDB(AUTO CAD數(shù)據(jù)庫(kù))和ACED(AUTO CAD編譯器)，另外還有其它的一些重要庫(kù)組件，如ACRX(AUTOCAD實(shí)時(shí)擴(kuò)展)、ACGI(AUTO CAD 圖形接口)、ACGE(AUTO CAD幾何庫(kù))、ADSRX(AUTO CAD 開(kāi)發(fā)系統(tǒng)實(shí)時(shí)擴(kuò)展）。OBJECTARX還可以按需要加載應(yīng)用程序；使用OBJECTARX進(jìn)行應(yīng)用開(kāi)發(fā)還可以在同一水平上與WINDOWS系統(tǒng)集成，并與其它WINDOWS應(yīng)用程序?qū)崿F(xiàn)交互操作。2.2.4 VISUAL LISPVISUAL LISP 已經(jīng)被完整地集成到 AUTOCAD 2000以上版本中，為開(kāi)發(fā)者提供了嶄新的、增強(qiáng)的集成開(kāi)發(fā)環(huán)境，一改過(guò)去在 AUTOCAD中內(nèi)嵌ATUOLISP運(yùn)行引擎的機(jī)制，這樣開(kāi)發(fā)者可以直接使用AUTOCAD中的對(duì)象和反應(yīng)器，進(jìn)行更底層的開(kāi)發(fā)。其特點(diǎn)為自身是AUTOCAD中默認(rèn)的代碼編輯工具；用它開(kāi)發(fā)AUTOLISP程序的時(shí)間被大大地縮短，原始代碼能被保密，以防盜版和被更改；能幫助大家使用ACTIVEX對(duì)象及其事件；使用了流行的有色代碼編輯器和完善的調(diào)試工具，使大家很容易創(chuàng)建和分析LISP程序的運(yùn)行情況。在VISUAL LISP中新增了一些函數(shù)：如基于AUTOLISP的ACTIVEX/COM自動(dòng)化操作接口；用于執(zhí)行基于AUTO CAD內(nèi)部事件的LISP程序的對(duì)象反應(yīng)器；新增了能夠?qū)Σ僮飨到y(tǒng)文件進(jìn)行操作的函數(shù)。2.2.5 VBAVBA即MICROSOFT OFFICE中的VISUAL BASIC FOR APPLICATIONS，它被集成到AUTOCAD中。VBA為開(kāi)發(fā)者提供了一種新的選擇，也為用戶(hù)訪(fǎng)問(wèn)AUTOCAD 2000以上版本中豐富的技術(shù)框架打開(kāi)一條新的通道。VBA和AUTOCAD中強(qiáng)大的ACTIVEX自動(dòng)化對(duì)象模型的結(jié)合，代表了一種新型的定制AUTOCAD的模式構(gòu)架。通過(guò)VBA，可以操作AUTOCAD，控制ACTIVEX和其它一些應(yīng)用程序，使之相互之間發(fā)生互易活動(dòng)。而VLISP則是靈活而充分地使用AutoCAD的現(xiàn)有功能，適合于“組合使用”AutoCAD的現(xiàn)有功能。這樣，程序設(shè)計(jì)著對(duì)AutoCAD操作的數(shù)量程度，就明顯地影響著程序設(shè)計(jì)的結(jié)果。就是說(shuō)，這種程序設(shè)計(jì)模式，將能充分利用程序設(shè)計(jì)著使用AutoCAD的經(jīng)驗(yàn)和技巧。也可以用VLISP按照ARX/VBA的ActiveX模式寫(xiě)程序。2.2.6 其它性能可以在AutoLISP程序中引用AutoCAD的幾乎所有的功能，進(jìn)行圖形處理的自動(dòng)化，尤其是較深層的應(yīng)用對(duì)象數(shù)據(jù)庫(kù)的操作。在Visual LISP的協(xié)助下，從對(duì)AutoCAD進(jìn)行操作的功能上討論，僅比ARX少幾個(gè)功能：自定義AutoCAD對(duì)象、多圖檔的深入管理等。從目前的情況看，AutoLISP 是 AutoCAD中幾乎所有的應(yīng)用程序的“總管、大管家”，而且目前只有 AutoLISP 表達(dá)式，才能以添加在腳本文件、對(duì)話(huà)框程序、菜單、甚至VBA程序的 ThisDrawing.SendCommand中，更可以直接用在AutoCAD的命令行中響應(yīng)幾乎所有的命令。LISP是典型的結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言，AutoLISP是解釋運(yùn)行，源程序保密性差，巨量數(shù)據(jù)的復(fù)雜運(yùn)算效率較低，文件管理功能簡(jiǎn)單，但可以在絕大多數(shù)源程序內(nèi)容不變的條件下，用Visual LISP將其編譯成VLX程序包或者FAS程序，這樣處理之后的AutoLISP程序，將具有與ARX程序相同的高保密性能，也將具有比解釋運(yùn)行明顯提高的運(yùn)行效率。而且，AutoLISP程序設(shè)計(jì)的復(fù)雜程度和運(yùn)行風(fēng)險(xiǎn)大大低與ARX，絕少在程序崩潰后連帶AutoCAD崩潰。第三章 CAD 開(kāi)發(fā)的發(fā)展前景和趨勢(shì)3 .1 CAD開(kāi)發(fā)的發(fā)展前景市場(chǎng)需求是技術(shù)創(chuàng)新的動(dòng)力。二十世紀(jì)的一個(gè)重大變革是全球市場(chǎng)得統(tǒng)一，它使市場(chǎng)競(jìng)爭(zhēng)更加激烈，產(chǎn)品更新周期加速。在這種背景下，CAD開(kāi)發(fā)技術(shù)得到迅速普及和極大發(fā)展。海灣戰(zhàn)爭(zhēng)結(jié)束當(dāng)年，美國(guó)評(píng)出二十世紀(jì)最具影響的十大技術(shù)中，CAD便榜上有名。CAD技術(shù)從最初的工業(yè)設(shè)計(jì)領(lǐng)域已滲透到人們?nèi)粘Ｉ畹拿總€(gè)角落，從機(jī)械、電子、航空、航天、郵電、兵工、紡織、建筑、船舶、地質(zhì)、采礦，一直到藝術(shù)、裝演、醫(yī)療、教學(xué)、旅游、管理等，可以說(shuō)無(wú)數(shù)不包，以CAD技術(shù)為基礎(chǔ)開(kāi)發(fā)的各類(lèi)商業(yè)專(zhuān)業(yè)軟件已超過(guò)10萬(wàn)個(gè)，其中以工程設(shè)計(jì)領(lǐng)域的CAD所占比例最大，發(fā)展和普及速度也最快，并且取得了顯著的經(jīng)濟(jì)效益，如美國(guó)Autodesk公司開(kāi)發(fā)AutoCAD己推出了17個(gè)版本，應(yīng)用領(lǐng)域遍及全球各個(gè)行業(yè)。近二十年來(lái)，隨著計(jì)算機(jī)硬件技術(shù)的發(fā)展，特別是圖形處理設(shè)備的飛速發(fā)展，計(jì)算機(jī)輔助設(shè)計(jì)/制造（CAD/CAM）技術(shù)以驚人的速度快速發(fā)展，有專(zhuān)家評(píng)價(jià)“如果把電子技術(shù)看作是工業(yè)的一次革命的話(huà)，那么CAD/CAM是工業(yè)的另一次革命，它是計(jì)算機(jī)對(duì)人類(lèi)文明的巨大推動(dòng)在工業(yè)萬(wàn)面的重要體現(xiàn)，其前景是不可限量的”。據(jù)美國(guó)1991年統(tǒng)計(jì)，在超大規(guī)模集成電路設(shè)計(jì)生產(chǎn)十引入CAD技術(shù)后，提高效率18倍，機(jī)械工業(yè)提高5倍，建筑行業(yè)提高3倍，出版行業(yè)提高4.4倍。隨著交互式圖形技術(shù)，特別是可視化技術(shù)的提高，其效率會(huì)有更明顯的增長(zhǎng)。3.2 CAD技術(shù)發(fā)展趨勢(shì)隨著CAD技術(shù)的普及應(yīng)用，CAD技術(shù)正向著開(kāi)放、集成、智能和標(biāo)準(zhǔn)化的方向發(fā)展。開(kāi)放性是決定一個(gè)系統(tǒng)能否真正達(dá)到實(shí)用化并轉(zhuǎn)化為現(xiàn)實(shí)生產(chǎn)力的基礎(chǔ)，著主要體現(xiàn)在系統(tǒng)統(tǒng)的工作平臺(tái)、用戶(hù)接口、應(yīng)用開(kāi)發(fā)環(huán)境廈與其他系統(tǒng)的信息交換等方面。所謂集成就是向企業(yè)提供一體化的解決方案，通過(guò)集成能最大限度地實(shí)現(xiàn)企業(yè)信息共享，建立新的企業(yè)運(yùn)行方式，提高生產(chǎn)效率。完善的標(biāo)準(zhǔn)化體系則是我國(guó)CAD軟件開(kāi)發(fā)及技術(shù)應(yīng)用與世界接軌的必由之路。作為CAD系統(tǒng)的支撐環(huán)境，開(kāi)放的操作系統(tǒng)，如：WINDOWS,UNIX 將是今后CAD系統(tǒng)的主流；面向?qū)ο蟮木幊碳夹g(shù)和數(shù)據(jù)庫(kù)技術(shù)將為CAD系統(tǒng)的發(fā)展作出貢獻(xiàn)；系統(tǒng)的智能化結(jié)臺(tái)專(zhuān)家系統(tǒng)、知識(shí)工程，將各個(gè)領(lǐng)域的專(zhuān)家經(jīng)驗(yàn)融臺(tái)于CAD系統(tǒng)中，并開(kāi)發(fā)出智能化用戶(hù)界面，使之更為廣大工程設(shè)計(jì)人員所接受；系統(tǒng)的集成化是大勢(shì)所趨，80年代中期CAD/CAM技術(shù)的集成形成了CIMS高科技系統(tǒng)。概括起來(lái)今后CAD系統(tǒng)將會(huì)在以下幾方面發(fā)展：(1)在計(jì)算機(jī)圖形和幾何造型技術(shù)上由二維向三維發(fā)展。幾何造型技術(shù)解決了如何將三維圖形轉(zhuǎn)化為數(shù)學(xué)模型并存入數(shù)據(jù)庫(kù)中的問(wèn)題，三維造型方法主要有：線(xiàn)框模型、曲面造型和實(shí)體造型。三維圖形技術(shù)與數(shù)據(jù)庫(kù)技術(shù)相結(jié)合對(duì) CAD/CAM系統(tǒng)的發(fā)展具有極其重要的意義。(2)與圖形學(xué)發(fā)展相關(guān)的硬件支持，如：高速圖形圖像處理技術(shù)、三維顯示技術(shù)、三維數(shù)字化儀等。(3)集成化技術(shù)將繼續(xù)得到快速的發(fā)展，從單一行業(yè)領(lǐng)域內(nèi)的業(yè)務(wù)性集成， 向多行業(yè)集成發(fā)展，如CIMS系統(tǒng)、工程設(shè)計(jì)建筑、水、電、暖一體化的集成。(4)與CAD集成的工程數(shù)據(jù)庫(kù)技術(shù)仍將繼續(xù)發(fā)展，過(guò)去許多基于商用數(shù)據(jù)庫(kù)開(kāi)發(fā)的圖形數(shù)據(jù)庫(kù)，效果并不理想。開(kāi)發(fā)集成化專(zhuān)用數(shù)據(jù)庫(kù)是今后的發(fā)展方向，它既能支持幾何信息，也能支持非幾何數(shù)據(jù)，同時(shí)能夠支持工程構(gòu)件、零部件、產(chǎn)品等實(shí)體的多級(jí)描述及長(zhǎng)時(shí)間的事務(wù)處理要求。(5)基于網(wǎng)絡(luò)和多媒體技術(shù)的分布式CAD系統(tǒng)將大量發(fā)展，網(wǎng)絡(luò)環(huán)境下的分布式CAD系統(tǒng)，將各種不同的CAD作業(yè)、不同的硬、軟件支撐環(huán)境集成于一個(gè)網(wǎng)絡(luò)環(huán)境，或客戶(hù)/服務(wù)器環(huán)境下；各種不同的信息表示與傳輸媒體，如聲音、圖形、圖像、數(shù)據(jù)等集成于一個(gè)系統(tǒng)內(nèi)，即多媒體CAD系統(tǒng)。(6)智能化、專(zhuān)家系統(tǒng)技術(shù)也是一個(gè)熱門(mén)研究方向，如何在CAD系統(tǒng)中應(yīng)用人工智能和知識(shí)庫(kù)，以提高系統(tǒng)的智能水平并加強(qiáng)人機(jī)之間的密切協(xié)作。(7)以可視化技術(shù)和虛擬技術(shù)為核心的集成化和交互式CAD系統(tǒng)是熱門(mén)研究方向。第四章 地籍測(cè)量?jī)?nèi)業(yè)的方法和步驟4.1 CASS7.1地形地籍成圖軟件簡(jiǎn)介CASS是南方測(cè)繪公司基于CAD基礎(chǔ)上二次開(kāi)發(fā)的軟件，CASS7.1數(shù)字化地形地籍成圖軟件，是南方測(cè)繪儀器公司在 AutoCAD 基礎(chǔ)上開(kāi)發(fā)的新一代數(shù)字化地形地籍成圖軟件，主要應(yīng)用于地形成圖、地籍成圖、工程測(cè)量三大領(lǐng)域。CASS7.1除具有AutoCAD強(qiáng)大的圖形編輯功能外，在菜單中特別添加了地籍成圖菜單功能：界址線(xiàn)、界址點(diǎn)、街坊內(nèi)統(tǒng)一編號(hào)、自動(dòng)累加，方便重排瀏覽與查詢(xún)編輯；圖形屬性聯(lián)動(dòng)、地圖圖形屬性合為一體，修改宗地屬性方便快捷；自由分割、合并宗地、宗地面積自動(dòng)重算、自動(dòng)面積查錯(cuò)、繪制地籍表格等功能方便實(shí)用，更加符合地籍測(cè)繪的實(shí)際需要，便于地籍?dāng)?shù)據(jù)庫(kù)建設(shè)中各種圖形的編輯。4.2 CASS7.1 繪圖軟件在地籍測(cè)繪中的應(yīng)用4.2.1 數(shù)據(jù)導(dǎo)入打開(kāi)CASS7.1界面，首先要確定地圖比例尺，在繪圖處理菜單下點(diǎn)擊“展野外測(cè)點(diǎn)”，輸入繪圖比例尺分母即可。然后在彈出的“輸入坐標(biāo)數(shù)據(jù)文件名”對(duì)話(huà)框中選擇需要打開(kāi)的數(shù)據(jù)文件（*.dat 文件），點(diǎn)擊“打開(kāi)”，即在當(dāng)前現(xiàn)狀圖中展開(kāi)測(cè)點(diǎn)。4.2.2 根據(jù)測(cè)繪草圖繪制地籍現(xiàn)狀圖在底圖上進(jìn)行測(cè)點(diǎn)連線(xiàn)，圈出界線(xiàn)，對(duì)地形、地物及地面上的附著物等進(jìn)行繪制與修改。在菜單中選擇相應(yīng)的符號(hào)繪制房屋、圍墻、道路、植被、管線(xiàn)、水系設(shè)施等。軟件中增加了一些實(shí)用菜單如市政部件等，功能更加完善。4.2.3 繪制權(quán)屬線(xiàn)在地籍菜單下點(diǎn)擊“繪制權(quán)屬線(xiàn)”，按要求繪制閉合線(xiàn)，輸入該宗地的基本屬性，包括街道號(hào)、街坊號(hào)、宗地號(hào)、權(quán)利人及地類(lèi)等，單擊任一注記位置，即可產(chǎn)生該宗地的面積。在已經(jīng)繪制好閉合線(xiàn)的前提下，點(diǎn)擊“復(fù)合線(xiàn)轉(zhuǎn)為權(quán)屬線(xiàn)”直接將閉合線(xiàn)轉(zhuǎn)為權(quán)屬線(xiàn)，系統(tǒng)將宗地號(hào)、地類(lèi)號(hào)、權(quán)利人等信息輸入到權(quán)屬界線(xiàn)里，圖上就產(chǎn)生了該宗地的界址線(xiàn)、各界址邊長(zhǎng)及面積，形成一個(gè)封閉的宗地；再點(diǎn)擊地籍菜單中“注記界址點(diǎn)”下的“全圖注記”，圖上就產(chǎn)生了該宗地的界址點(diǎn)號(hào)，該宗地權(quán)屬界線(xiàn)的繪制就完成了。如果在同一宗地圖中移動(dòng)或改變過(guò)界址線(xiàn)，當(dāng)界址點(diǎn)名排列較凌亂時(shí)，可選擇“重排界址點(diǎn)”功能，使街坊內(nèi)的界址點(diǎn)號(hào)重新排序，點(diǎn)擊“注記界址點(diǎn)名”，則軟件自動(dòng)注記排序后的界址點(diǎn)。一個(gè)街坊內(nèi)不同的界址點(diǎn)其編號(hào)一般是唯一的，每一宗地的界址點(diǎn)號(hào)在地籍圖上一目了然，查詢(xún)起來(lái)很方便。4.2.4 生成地籍表格選擇地籍菜單下“繪制地籍表格”中的“界址點(diǎn)坐標(biāo)表”單擊表格左上角點(diǎn)，命令行中出現(xiàn)“選擇定點(diǎn)方法”，一般在生成表格前都已經(jīng)繪制完權(quán)屬線(xiàn)，這里直接回車(chē)，選擇復(fù)合線(xiàn)或宗地，屏幕上就會(huì)產(chǎn)生該宗地的界址點(diǎn)坐標(biāo)表。CASS7.1還可以根據(jù)需要生成其它地籍表格，比如界址點(diǎn)成果表、以街坊為單位界址點(diǎn)坐標(biāo)表、以街道為單位宗地面積匯總表、城鎮(zhèn)土地分類(lèi)面積統(tǒng)計(jì)表等，輸入相應(yīng)的信息就可生成不同的表格。4.2.5 完成宗地圖在圖上標(biāo)注指北針、圖章，畫(huà)出圖框，一個(gè)宗地圖的繪制就基本完成了。完成宗地圖有兩種方法：一是采用直接“插入圖塊”方式，插入事先已繪制好1500比例圖章和指北針即可，如插入不同比例圖時(shí)，可以對(duì)其進(jìn)行不同比例縮放；二是用地籍菜單中的“繪制宗地圖框”自動(dòng)生成宗地圖。生成宗地圖也有兩種方法：一是批量生成方法，點(diǎn)擊“繪制宗地圖框”，選擇適合紙張，點(diǎn)擊“批量處理”，彈出“宗地圖參數(shù)對(duì)話(huà)框”，對(duì)“比例尺”進(jìn)行“自動(dòng)計(jì)算”或“手工輸入”的選擇，還可以選擇是否繪制坐標(biāo)表等，用鼠標(biāo)批量選取界址線(xiàn)，可以一次分出一排多幅宗地圖；二是單塊宗地生成方法，點(diǎn)擊“繪制宗地圖框”，按圖比例和大小，選擇適合紙張，點(diǎn)擊“單塊宗地”，彈出“宗地圖參數(shù)對(duì)話(huà)框”，進(jìn)行比例尺、坐標(biāo)表等參數(shù)的設(shè)置。選取界址線(xiàn)就可以生成宗地草圖，再按國(guó)家統(tǒng)一標(biāo)準(zhǔn)要求整飾后，就完成一幅標(biāo)準(zhǔn)宗地圖。4.2.6 老地類(lèi)碼批量修改如何在CASS7.1軟件中實(shí)現(xiàn)地籍圖全國(guó)土地分類(lèi)（試行）代碼轉(zhuǎn)換成新的土地利用現(xiàn)狀分類(lèi)代碼，同時(shí)保證原有地籍?dāng)?shù)據(jù)平臺(tái)的一致性，手動(dòng)修改效率低下容易遺漏，只有在軟件功能上挖掘，現(xiàn)介紹兩種方法。一是運(yùn)用“地籍管理”中的數(shù)據(jù)庫(kù)功能，把地籍圖有效信息轉(zhuǎn)換成*.dbm的數(shù)據(jù)庫(kù)文件格式，在Acess軟件環(huán)境下，對(duì)表格形式數(shù)據(jù)庫(kù)文件內(nèi)的地類(lèi)代碼行中進(jìn)行批量替換修改，再把修改好的文件，重新使用外部文件形式導(dǎo)入。二是運(yùn)用“地籍管理模塊”繪制權(quán)屬線(xiàn)功能，把原有地籍圖成果信息轉(zhuǎn)換成文本文件格式，在文本文件格式中轉(zhuǎn)換成Excel文件，對(duì)包含有地類(lèi)代碼信息的字段進(jìn)行批量替換，再把替換的文本文件，重新使用外部文件形式導(dǎo)入，生成新的地類(lèi)代碼地籍成果圖就可以了。4.2.7 用CASS7.1軟件做地籍測(cè)量的總結(jié)CASS7.1繪圖軟件不失為一種高效率的測(cè)繪軟件，隨著數(shù)字化地籍成圖得到越來(lái)越多的廣泛應(yīng)用，CASS7.1軟件中還有大部分功能有待去開(kāi)發(fā)、研究，能熟練掌握應(yīng)用它的功能，將大大提高工作效率。下面再介紹一種可以簡(jiǎn)單快速提取宗地圖的方法。第五章 Visual LISP 語(yǔ)言編程快速提取宗地圖5.1 宗地圖提取簡(jiǎn)介城鎮(zhèn)地籍測(cè)量勘測(cè)定界測(cè)量中，宗地圖的制作是很關(guān)鍵的一步。但在日常操作中，按現(xiàn)有軟件，其制圖過(guò)程很難一步到位，圖面整飾需修改大量的數(shù)據(jù)，比如:縮小宗地比例后，距離、點(diǎn)號(hào)等可能壓線(xiàn)，圖上內(nèi)容雜亂無(wú)章，需一個(gè)個(gè)或移動(dòng)或修改或刪除，重復(fù)工作量大，效率低下，容易出現(xiàn)漏洞或差錯(cuò)。以下介紹利用Visual LISP語(yǔ)言編程，僅需兩個(gè)綜合程序便能基本完成宗地圖制作，大大強(qiáng)化了在城鎮(zhèn)地籍測(cè)量勘測(cè)定界制圖方面的功能。節(jié)省直接使用CASS來(lái)提取宗地圖的時(shí)間，提高生產(chǎn)效率。5.2 Visual Lisp 語(yǔ)言介紹5.2.1 Visual Lisp 的簡(jiǎn)單介紹AutoCAD 軟件具有相當(dāng)優(yōu)秀的開(kāi)放型結(jié)構(gòu)(Open architecture)和一個(gè)強(qiáng)大的內(nèi)部編程語(yǔ)言(Autolisp語(yǔ)言，可以完成一些計(jì)算機(jī)工作和作圖功能)，可以方便地讓用戶(hù)開(kāi)發(fā)自己的命令、標(biāo)準(zhǔn)庫(kù)文件和各種應(yīng)用程序等，以滿(mǎn)足不同用戶(hù)的特殊需要。目前支持AutoCAD二次開(kāi)發(fā)環(huán)境的主要有:Autolisp，Visual Lisp,VBA,ObjectARX,ActiveX Automation 及塊和形定義等。本文利用DCL(Dialog-box Control Language)、語(yǔ)言編制對(duì)話(huà)框、Visual Lisp 語(yǔ)言編程及定制菜單對(duì)AutoCAD2004 進(jìn)行了二次開(kāi)發(fā)與定制。AutoLISP是對(duì)AutoCAD進(jìn)行二次開(kāi)發(fā)最常用最有效的手段，是國(guó)內(nèi)外AutoCAD應(yīng)用軟件開(kāi)發(fā)者的首選工具。由于AutoLISP源程序的可讀性較差，使得AutoLISP程序的編制、修改和維護(hù)顯得不是很方便，尤其是對(duì)初學(xué)者更是如此。現(xiàn)在VisualLISP的出現(xiàn)，大大改進(jìn)了老版本AutoLISP的性能，比如源代碼的彩色顯示、語(yǔ)法檢查、即時(shí)求值、源代碼編譯等，顯著提高了軟件開(kāi)發(fā)者的編程效率。利用Visual LISP 編制自己的應(yīng)用程序，可以強(qiáng)化AutoCAD的應(yīng)用特性，使AutoCAD成為自己的專(zhuān)業(yè)設(shè)計(jì)軟件。5.2.2 Visual Lisp 的使用特點(diǎn)Visual Lisp內(nèi)嵌于AutoCAD內(nèi)部。使用時(shí)，在command命令行鍵人VLIDE或VLISP，也可以點(diǎn)擊下拉菜單“TOOLS/Autolisp/Visual Lisp Editor，便可進(jìn)人由文本編輯器、文件編譯器、調(diào)試器、語(yǔ)法撿查器和其他開(kāi)發(fā)工具等組成的集成開(kāi)發(fā)環(huán)境。Visual Lisp 提供了可視化編程環(huán)境，它可以檢查程序中的括號(hào)對(duì)應(yīng)關(guān)系，由不同顏色所標(biāo)志的語(yǔ)法檢查系統(tǒng)自動(dòng)進(jìn)行匹配?？梢詭椭褂谜哐杆侔l(fā)現(xiàn)打字錯(cuò)誤，提供實(shí)時(shí)的語(yǔ)法檢查反饋。它也能夠?yàn)锳utoLisp源程序提供自動(dòng)格式化功能。另外，在程序中設(shè)置斷點(diǎn)以及高亮顯示正在運(yùn)行的語(yǔ)句，可以檢測(cè)程序段的運(yùn)行情況，幫助對(duì)程序的分析和排錯(cuò)。Visual Lisp可對(duì)源代碼進(jìn)行編譯生成二進(jìn)制代碼，增加了程序的安全性，同時(shí)加快了程序的運(yùn)行速度。用戶(hù)也很容易地管理多文件應(yīng)用程序，編譯過(guò)的文件可以被封裝成一個(gè)單獨(dú)的模塊。Visual Lisp包括Lisp和ActiveX Automation之間的接口，用戶(hù)可以直接利用對(duì)象屬性窗口訪(fǎng)問(wèn)對(duì)象的方法和屬性，并可以使用操作系統(tǒng)級(jí)的文件訪(fǎng)問(wèn)函數(shù)。另外，方便的多文檔的處理環(huán)境也是 Visual Lisp 的一個(gè)顯著特點(diǎn)。5.3 程序設(shè)計(jì)與實(shí)現(xiàn)下面是用Visual LISP語(yǔ)言開(kāi)發(fā)的在AutoCAD中制作宗地圖方面的幾個(gè)源程序。5.3.1 制作宗地圖框該程序命令名為“zdtk ,所在層為“zdt，默認(rèn)比例尺為1 :500，若宗地圖比例尺為1:1000，只輸入1000即可，其余類(lèi)推。該圖框?yàn)樽诘貓D常用的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 請(qǐng)輸入宗地圖比例尺(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 宗地編號(hào): )( command text j bl d14(* zg 1.75)0 地籍圖號(hào): )( 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 自動(dòng)注記點(diǎn)號(hào)、距離、面積將閉合復(fù)合線(xiàn)改為紅色界址線(xiàn)并自動(dòng)注記點(diǎn)號(hào)、距離、面積,且縮至宗地圖所需比例。該程序命令名為“zdt”,點(diǎn)號(hào)前綴可輸入任意字符或字符串,默認(rèn)為“J”,不論輸入大寫(xiě)或小寫(xiě),均轉(zhuǎn)換為大寫(xiě),點(diǎn)號(hào)注記到“dh”層,界址線(xiàn)及界址點(diǎn)圓圈自動(dòng)保存到“jz”層,距離及面積都在“zj”層,縮放基準(zhǔn)點(diǎn)為選取復(fù)合線(xiàn)點(diǎn),默認(rèn)比例尺為 1500(同上面程序),執(zhí)行完該程序即變?yōu)樗枳诘乇壤叩膱D形。程序 2將閉合復(fù)合線(xiàn)改為紅色界址線(xiàn)并自動(dòng)注記點(diǎn)號(hào)、距離、面積,且縮至宗地圖所需比例(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 請(qǐng)輸入宗地圖比例尺(500): ) )( if (= zdb l nil) (setq zdbl500. 0)( setq bs( / zdb l b l) )( setq zgm(* (* zg1 bs) 3. 0) )( setq qz(getstring 請(qǐng)輸入點(diǎn)號(hào)前綴: (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 請(qǐng)選擇面積注記位置: ) )( 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)