autolisp程序語言在房產(chǎn)測(cè)量中的應(yīng)用

1、<p>　　Autolisp程序語言在房產(chǎn)測(cè)量中的應(yīng)用</p><p>　　【摘要】房產(chǎn)測(cè)量是采集和表述房屋和房屋用地有關(guān)信息的一門技術(shù)。房產(chǎn)測(cè)量工作主要包括外業(yè)數(shù)據(jù)采集和內(nèi)業(yè)數(shù)據(jù)整理兩個(gè)過程。內(nèi)業(yè)主要工作之一是根據(jù)外業(yè)采集的數(shù)據(jù)繪制出房屋的草圖，然后再依據(jù)草圖來賦予該房屋的各種屬性。以前傳統(tǒng)的繪圖方法比較繁瑣且不精確，現(xiàn)在我們最主要用到得成圖軟件是AutoCAD。利用該軟件成圖過程中，我們可以利用Au

2、toCAD支持AutoLISP編程語言這一特點(diǎn)，編寫出一些小程序以方便房產(chǎn)測(cè)量內(nèi)業(yè)工作的進(jìn)行，達(dá)到提高精度和效率的作用。</p><p>　　【關(guān)鍵詞】房產(chǎn)測(cè)量，AutoCAD成圖軟件，AutoLISP編程語言。</p><p><b>　　Abstract</b></p><p>　　Real-Estate Surveeying are co

3、llected and the expression information about housing and housing sites of a technology. Real-Estate Surveeying include foreign trade data collection and data management within the industry, the two processes. To work wit

4、hin one of the owners is based on data collected outside the industry, the housing draw sketches, and then according to the draft plan to give the house a variety of attributes. Comparison of traditional drawing methods

5、previously cumbersome and impre</p><p><b>　　目錄</b></p><p><b>　　1緒論1</b></p><p>　　1.1問題的提出1</p><p>　　1.2 文章的組織2</p><p>　　2房產(chǎn)測(cè)量的研究

6、背景2</p><p>　　2.1房產(chǎn)測(cè)量的目的和內(nèi)容2</p><p>　　2.2房產(chǎn)測(cè)量外業(yè)3</p><p>　　2.3房產(chǎn)測(cè)量內(nèi)業(yè)4</p><p>　　2.4房產(chǎn)測(cè)量的關(guān)鍵技術(shù)4</p><p>　　3 AutoLISP語言簡(jiǎn)化房產(chǎn)測(cè)量工作的實(shí)現(xiàn)過程5</p><p>　　

7、3.1房產(chǎn)測(cè)量作業(yè)模式5</p><p>　　3.1.1房產(chǎn)測(cè)量傳統(tǒng)作業(yè)模式5</p><p>　　3.1.2房產(chǎn)測(cè)量新作業(yè)模式5</p><p>　　3.1.3對(duì)房產(chǎn)測(cè)量新作業(yè)模式的改進(jìn)6</p><p>　　3.2 AutoLISP編程語言6</p><p>　　3.2.1 AutoLISP編程語言的特點(diǎn)

8、6</p><p>　　3.2.2加載和運(yùn)行AutoLISP程序7</p><p>　　3.2.3 AutoLISP變量8</p><p>　　3.3 AutoLISP語言與AutoCAD軟件的結(jié)合8</p><p>　　3.3.1 AutoCAD的語言開發(fā)環(huán)境8</p><p>　　3.3.2 AutoLI

9、SP語言用于AutoCAD二次開發(fā)的特點(diǎn)9</p><p>　　3.4利用AutoLISP編程語言實(shí)現(xiàn)房產(chǎn)草圖的簡(jiǎn)易繪制9</p><p>　　4便于房產(chǎn)測(cè)量草圖繪制方法的設(shè)計(jì)10</p><p>　　4.1設(shè)計(jì)思路10</p><p>　　4.2房產(chǎn)測(cè)量草圖主要要素的提取10</p><p>　　4.2.1

10、房產(chǎn)測(cè)量草圖墻厚的快速標(biāo)注10</p><p>　　4.2.2房產(chǎn)測(cè)量草圖權(quán)屬面積的獲取11</p><p>　　4.2.3房產(chǎn)測(cè)量草圖開門程序設(shè)計(jì)12</p><p><b>　　5結(jié)論13</b></p><p><b>　　致謝14</b></p><p>&

11、lt;b>　　參考文獻(xiàn)15</b></p><p><b>　　1緒論</b></p><p><b>　　1.1問題的提出</b></p><p>　　隨著我國房地產(chǎn)業(yè)的不斷發(fā)展，房產(chǎn)測(cè)量日益成為人們關(guān)注的熱點(diǎn)之一。房產(chǎn)測(cè)量的功能與特點(diǎn)也越來越受到社會(huì)各界的關(guān)注。</p><p&g

12、t;　　從2009年12初到現(xiàn)在一直在整理過去用傳統(tǒng)方法生產(chǎn)的房產(chǎn)測(cè)繪資料。在整理過程中發(fā)現(xiàn)，傳統(tǒng)的作業(yè)模式與現(xiàn)在的作業(yè)模式相比，存在太多的弊端。對(duì)于房屋的產(chǎn)權(quán)人來說，最關(guān)心的是所購房屋的實(shí)際產(chǎn)權(quán)面積有多少。也就是說，房產(chǎn)測(cè)量的精度的高低直接影響產(chǎn)權(quán)面積的計(jì)算。而且房產(chǎn)測(cè)量質(zhì)量直接與相關(guān)法律相關(guān)，因?yàn)榉慨a(chǎn)測(cè)量的功能之一就是為房地產(chǎn)的產(chǎn)權(quán)、產(chǎn)籍、產(chǎn)業(yè)管理，商品房的開發(fā)、交易等管理提供房屋和房屋用地的權(quán)屬界線、權(quán)屬界址點(diǎn)、房地產(chǎn)面積、各種產(chǎn)

13、別以及有關(guān)權(quán)屬、權(quán)源、產(chǎn)權(quán)糾紛等數(shù)據(jù)、圖卡、表、冊(cè)等資料。根據(jù)《中華人民共和國測(cè)繪法》和《測(cè)繪質(zhì)量監(jiān)督管理辦法》等有關(guān)法律法規(guī)，“測(cè)繪產(chǎn)品必須經(jīng)過檢查驗(yàn)收，質(zhì)量合格的方能提供使用”。國務(wù)院測(cè)繪行政主管部門建立的測(cè)繪產(chǎn)品質(zhì)量監(jiān)督檢驗(yàn)測(cè)試中心和各省級(jí)測(cè)繪主管部門建立的測(cè)繪產(chǎn)品質(zhì)量監(jiān)督檢驗(yàn)站，是負(fù)責(zé)實(shí)施測(cè)繪產(chǎn)品質(zhì)量監(jiān)督檢驗(yàn)的工作機(jī)構(gòu)。房產(chǎn)測(cè)繪資料根據(jù)一定的周期會(huì)不斷的更新，而且隨著時(shí)間跟房產(chǎn)測(cè)量技術(shù)的不斷發(fā)展和更新，不同時(shí)期對(duì)同一幢房屋進(jìn)行測(cè)

14、算，得到的測(cè)算結(jié)果一般會(huì)不同，但是一般會(huì)在允許誤差范圍之內(nèi)。當(dāng)然也有出入比較大的，一般用新方法測(cè)算的相較之下會(huì)更接近實(shí)際，而用傳</p><p>　　傳統(tǒng)房產(chǎn)測(cè)量外業(yè)在精度上也沒有現(xiàn)在的高，這也是造成面積誤差大的原因之一。傳統(tǒng)房產(chǎn)測(cè)量外業(yè)數(shù)據(jù)獲取用到的最主要的工具是卷尺。用這種工具去丈量房屋的邊長，通常誤差比較大。尺子本身就有好幾項(xiàng)改正數(shù)：尺長改正、溫度改正等。外界環(huán)境影響比較大，再加上人為因素造成的誤差，這些所

15、有的因素都是傳統(tǒng)房產(chǎn)測(cè)量精度不高的來源。</p><p>　　傳統(tǒng)房產(chǎn)測(cè)量內(nèi)業(yè)處理相對(duì)現(xiàn)在模式來說也比較簡(jiǎn)單。它除去了復(fù)雜的共用面積的分?jǐn)偰Ｊ?，也不存在外半墻的分?jǐn)偂ＭǔＪ浅ス灿袎?，其他都?xì)w為自有墻，統(tǒng)一劃入權(quán)屬面積中。所以如果一幢房屋經(jīng)過新舊兩種模式測(cè)算后面積往往會(huì)差，這也是不可避免的。在面積計(jì)算上，傳統(tǒng)的方法是用純手工計(jì)算的。對(duì)于不規(guī)則多邊形，傳統(tǒng)的方法往往是將其分割成多個(gè)規(guī)則矩形來計(jì)算，在計(jì)算過程的誤差又

16、會(huì)在不同程度上累積。最后從總體上來看，誤差比較大。這種情況在以前是一種普遍的現(xiàn)象，是不可避免的。</p><p>　　要達(dá)到高精度的房產(chǎn)測(cè)繪成果，必需在硬件設(shè)備和軟件上進(jìn)行改進(jìn)。隨著經(jīng)濟(jì)的迅速發(fā)展，現(xiàn)在的房產(chǎn)測(cè)繪外業(yè)使用的設(shè)備都是非常先進(jìn)的。在房產(chǎn)平面控制測(cè)量時(shí)，其精度已達(dá)到末級(jí)相鄰基本控制點(diǎn)的相對(duì)點(diǎn)位中誤差不超過±0.025m的要求。在軟件方面，房產(chǎn)測(cè)量現(xiàn)在最主要使用的繪圖軟件是AutoCAD。Aut

17、oCAD是由美國Autodesk歐特克公司于二十世紀(jì)八十年代初為微機(jī)上應(yīng)用CAD技術(shù)而開發(fā)的繪圖程序軟件包，經(jīng)過不斷的完善，現(xiàn)已經(jīng)成為國際上廣為流行的繪圖工具。AutoCAD具有良好的用戶界面，通過交互菜單或命令行方式便可以進(jìn)行各種操作。它的多文檔設(shè)計(jì)環(huán)境，讓非計(jì)算機(jī)專業(yè)人員也能很快地學(xué)會(huì)使用。在不斷實(shí)踐的過程中更好地掌握它的各種應(yīng)用和開發(fā)技巧，從而不斷提高工作效率。AutoCAD具有十分強(qiáng)大的平面繪圖功能。利用AutoCAD自身的輔助

18、命令及房產(chǎn)測(cè)量外業(yè)采集到得數(shù)據(jù)，繪制出符合標(biāo)準(zhǔn)的房產(chǎn)草圖，并完成相關(guān)的操作。AutoCAD允許用戶定制菜單和工具欄，并能利用內(nèi)嵌語言AutoLISP、Visual LISP、VBA、ADS、ARX等進(jìn)行二次開發(fā)。房產(chǎn)草圖繪制過程，具有重復(fù)性，也比較繁瑣，但是又要求十分嚴(yán)格</p><p>　　然而作為一般的房產(chǎn)測(cè)量工作者，編寫程序確實(shí)是一個(gè)比較新的挑戰(zhàn)，再加上人們對(duì)這一領(lǐng)域往往不是很熟悉，在時(shí)間、精力以及現(xiàn)實(shí)情況

19、上，很多人往往堅(jiān)持原來的繁瑣的房產(chǎn)草圖繪制模式。這種做法往往是不明智的。我們從事的房產(chǎn)測(cè)量工作是重復(fù)的長期的過程，好的方法可以讓我們達(dá)到事半功倍的效果，再加上AutoLISP編程語言并不是一個(gè)復(fù)雜的語言。AutoLISP編程語言對(duì)程序編寫的環(huán)境要求比較簡(jiǎn)單，只要是一般的文書編輯軟件，可編輯ASCII檔案者都適用。AutoLISP編程語言不同于其他編程語言，AutoLISP代碼是不需要編譯的，用戶可以在命令行中直接輸入代碼并立即看到結(jié)果。

20、AutoLISP編程語言的這種特性為我們?cè)诶L制房產(chǎn)草圖的過程中提供了很大的便利。房產(chǎn)草圖在繪制時(shí)要求層次清晰，功能明確。一幅標(biāo)準(zhǔn)的房產(chǎn)草圖包含了該房屋的各種不同屬性，我們?cè)诶L圖之前就要根據(jù)不同的功能屬性建立不同的圖層，以方便管理和編輯。利用AutoLISP編程語言編寫的程序可以很方便的對(duì)某個(gè)需要編輯的圖層進(jìn)行統(tǒng)一編輯，從而省去了不必要的重復(fù)工作，提高了工作效率和質(zhì)量。所以在房產(chǎn)測(cè)量中運(yùn)用AutoLISP編程語言編寫一些小程序來輔助生產(chǎn)&

21、lt;/p><p><b>　　1.2 文章的組織</b></p><p>　　文章由以下幾個(gè)部分構(gòu)成：</p><p>　　第一章：緒論。首先分析了傳統(tǒng)房產(chǎn)測(cè)量外業(yè)、內(nèi)業(yè)精度低的各種來源；其次比較現(xiàn)在新模式下房產(chǎn)測(cè)量的優(yōu)勢(shì)；最后在新模式的基礎(chǔ)上引出運(yùn)用AutoLISP編程語言來輔助房產(chǎn)內(nèi)業(yè)工作，以達(dá)到去重就簡(jiǎn)，高效率、高質(zhì)量完成生產(chǎn)需要的結(jié)果。&

22、lt;/p><p>　　第二章：房產(chǎn)測(cè)量的研究背景。首先介紹了房產(chǎn)測(cè)繪的目的和內(nèi)容，然后再全面介紹了房產(chǎn)測(cè)繪的相關(guān)知識(shí)：包含房產(chǎn)測(cè)量外業(yè)、房產(chǎn)測(cè)量內(nèi)業(yè)、房產(chǎn)測(cè)量的關(guān)鍵技術(shù)以房產(chǎn)測(cè)量數(shù)據(jù)成果的利用等內(nèi)容。</p><p>　　第三章：AutoLISP語言簡(jiǎn)化房產(chǎn)測(cè)量工作的實(shí)現(xiàn)過程。主要涉及房產(chǎn)測(cè)量新舊模式的特點(diǎn)及比較等方面，最后引出了AutoLISP編程語言的相關(guān)內(nèi)容和運(yùn)用AutoLISP編程語

23、言簡(jiǎn)化房產(chǎn)測(cè)量內(nèi)業(yè)工作的實(shí)現(xiàn)。</p><p>　　第四章：便于房產(chǎn)測(cè)量草圖繪制方法的設(shè)計(jì)。根據(jù)房產(chǎn)測(cè)量草圖主要要素的提取來確定所要編寫的具有針對(duì)性程序的思路。最后用具體實(shí)例來說明AutoLISP編程語言在房產(chǎn)測(cè)量中的應(yīng)用。</p><p>　　第五章：全文總結(jié)了AutoLISP編程語言在房產(chǎn)測(cè)量中的應(yīng)用現(xiàn)狀，也提出了論文中存在的不足及需要改進(jìn)的地方。</p><p&g

24、t;　　2房產(chǎn)測(cè)量的研究背景</p><p>　　2.1房產(chǎn)測(cè)量的目的和內(nèi)容</p><p>　　房屋通常是人們最關(guān)心的事物，是人們生活能夠得以穩(wěn)定的重要因素。人們所居住的房屋的好壞直接影響到生活的質(zhì)量以及社會(huì)的長治久安。然而對(duì)于居住的房屋，人們不僅僅會(huì)關(guān)心房屋的好壞，房屋的實(shí)際面積及產(chǎn)權(quán)歸屬也都是人們非常關(guān)注的問題。要解決這些相關(guān)的問題，必須要有關(guān)于房屋的信息才行。房屋的這方面的相關(guān)信息

25、就要靠房產(chǎn)測(cè)量手段才能獲取。</p><p>　　（1）房產(chǎn)測(cè)量的目的和任務(wù)</p><p>　　房屋是人們生產(chǎn)和生活的場(chǎng)所，房屋和房屋用地是人們生產(chǎn)和生活的基本物質(zhì)要素，這一要素信息的采集和表述，必須經(jīng)過房地產(chǎn)測(cè)量，所以房地產(chǎn)測(cè)量是房地產(chǎn)管理工作的重要基礎(chǔ)。準(zhǔn)確而完整的房地產(chǎn)測(cè)繪成果是審查確認(rèn)房屋的產(chǎn)權(quán)、產(chǎn)籍、保障產(chǎn)權(quán)人合法權(quán)益的重要依據(jù)，也是發(fā)展房地產(chǎn)業(yè)，進(jìn)行城市建設(shè)和管理的必不可少的

26、基礎(chǔ)資料。</p><p>　　房產(chǎn)測(cè)量的目的和任務(wù)就是采集和表述房屋以及房屋用地的有關(guān)信息，為房地產(chǎn)管理，尤其是為房屋的產(chǎn)權(quán)、產(chǎn)籍管理提供準(zhǔn)確可靠的成果資料。同時(shí)也為房地產(chǎn)開發(fā)、征收稅費(fèi)、城鎮(zhèn)規(guī)劃建設(shè)以及為市政工程等提供數(shù)據(jù)和資料。[1]</p><p>　?。?）房產(chǎn)測(cè)量的作用</p><p>　　《房產(chǎn)測(cè)量規(guī)范》是為房產(chǎn)產(chǎn)權(quán)、產(chǎn)籍管理、房地產(chǎn)開發(fā)利用、交易、征

27、收稅費(fèi)，以及為城鎮(zhèn)規(guī)劃建設(shè)提供數(shù)據(jù)和資料。歸納起來有以下三個(gè)方面的作用。</p><p><b>　　1）法律方面的作用</b></p><p>　　房地產(chǎn)測(cè)量為房地產(chǎn)的產(chǎn)權(quán)產(chǎn)籍管理、房地產(chǎn)開發(fā)提供房屋和房屋用地的權(quán)屬界址、產(chǎn)權(quán)面積、權(quán)源及產(chǎn)權(quán)糾紛等資料，是進(jìn)行產(chǎn)權(quán)登記、產(chǎn)權(quán)轉(zhuǎn)移和產(chǎn)權(quán)糾紛的依據(jù)，確認(rèn)以后的房地產(chǎn)成果資料具有法律效力。</p><p

28、>　　在國際上，這種不動(dòng)產(chǎn)的地籍測(cè)量都認(rèn)定為一種政府行為的官方測(cè)量，或者說是為產(chǎn)權(quán)主提供官方證明。</p><p>　　2）財(cái)政經(jīng)濟(jì)方面的作用</p><p>　　房地產(chǎn)測(cè)量成果包括房地產(chǎn)的數(shù)量、質(zhì)量、利用現(xiàn)狀等資料，是為進(jìn)行房地產(chǎn)評(píng)估、征收房地產(chǎn)稅費(fèi)、房地產(chǎn)開發(fā)、房地產(chǎn)交易、房地產(chǎn)抵押，以及保險(xiǎn)服務(wù)等方面提供數(shù)據(jù)和資料。</p><p>　　3）社會(huì)服務(wù)方面

29、的作用</p><p>　　GB/T17986.1~17986.2——2000《房產(chǎn)測(cè)量規(guī)范》系列標(biāo)準(zhǔn)的服務(wù)對(duì)象，著重點(diǎn)和主要目標(biāo)是滿足產(chǎn)權(quán)和產(chǎn)籍管理的需求，以及房地產(chǎn)其他管理方面的需求，但是隨著社會(huì)主義市場(chǎng)經(jīng)濟(jì)的形成和發(fā)展，房地產(chǎn)測(cè)繪也會(huì)進(jìn)入市場(chǎng)，房地產(chǎn)測(cè)繪的服務(wù)將面向社會(huì)，它不僅為房地產(chǎn)業(yè)服務(wù)，而且也可為城鎮(zhèn)規(guī)劃、建設(shè)、市政工程、公共事業(yè)、環(huán)保、綠化、治安、消防、文教衛(wèi)生、水利、交通、財(cái)政稅收、金融、保險(xiǎn)、工

30、商管理、旅游、街道照明、上、下水工程、通訊、燃?xì)夤?yīng)等城鎮(zhèn)事業(yè)提供基礎(chǔ)資料和有關(guān)信息。這是保證信息共享、避免重復(fù)測(cè)繪，重復(fù)投入的重要措施。[1]</p><p>　　要詳細(xì)了解房產(chǎn)測(cè)量的相關(guān)內(nèi)容，還要對(duì)房產(chǎn)測(cè)量有關(guān)名詞的解釋有所了解：</p><p>　　a）房地產(chǎn)測(cè)量：房地產(chǎn)測(cè)量是采集和表述房屋和房屋用地有關(guān)信息的一門技術(shù)。</p><p>　　b）采集和表述：采

31、集是指采用測(cè)繪科學(xué)技術(shù)，按照房地產(chǎn)管理的要求和需要，對(duì)房屋和房屋用地的有關(guān)信息進(jìn)行調(diào)查和測(cè)量。表述是指對(duì)房屋和房屋用地的幾何、地理、物理特性，用數(shù)字、文字、符合、影像進(jìn)行描述，供產(chǎn)權(quán)人和有關(guān)人士使用。</p><p>　　c）房屋和房屋用地：房屋必須占用土地，房屋和房屋用地習(xí)慣稱房地產(chǎn)，房屋和土地是不可移動(dòng)的、價(jià)值巨大的、經(jīng)久耐用的個(gè)人財(cái)產(chǎn)和社會(huì)財(cái)富。房屋包括主體房屋、房屋附屬設(shè)施和房屋維護(hù)物。主體房屋包括一般房

32、屋、架空房屋、窯洞、地下室、蒙古包等建筑物；房屋附屬設(shè)施包括廊（有柱走廊、檐廊、挑廊、門廊、架空通廊）、陽臺(tái)（封閉陽臺(tái)、不封閉陽臺(tái)）、門（門、門斗、門墩、門頂）、室外樓梯、臺(tái)階等；房屋維護(hù)物包括圍墻、柵欄、欄桿、籬笆、鐵鋼絲、溝、坎、河、渠等。房屋用地是指房屋占地和生產(chǎn)生活所用土地的總稱。包括房屋的占地面積、院落面積，還包括房屋附屬設(shè)施和房屋維護(hù)物所占的面積。房屋用地是房地產(chǎn)測(cè)繪必不可少的要素，因?yàn)樗菍?duì)房屋定位和描述的依據(jù)和基礎(chǔ)。&l

33、t;/p><p><b>　　2.2房產(chǎn)測(cè)量外業(yè)</b></p><p>　　房產(chǎn)測(cè)量的外業(yè)是個(gè)比較復(fù)雜的過程，包含多個(gè)程序，每個(gè)程序之間相互關(guān)聯(lián)，緊密聯(lián)系，無論哪個(gè)程序出了差錯(cuò)，都會(huì)影響整個(gè)測(cè)量工作的進(jìn)行。房產(chǎn)測(cè)量外業(yè)主要任務(wù)是采集內(nèi)業(yè)所需的所有數(shù)據(jù)以及確定房屋的各種屬性和地理位置。房產(chǎn)測(cè)量外業(yè)主要包括以下幾個(gè)方面。</p><p>　?。?）房

34、產(chǎn)平面控制測(cè)量</p><p>　　房產(chǎn)測(cè)量的第一步就是在測(cè)區(qū)建立一個(gè)高精度的、有一定密度的、可以長期使用的、覆蓋全區(qū)的平面控制網(wǎng)。這是保證房產(chǎn)測(cè)量成果質(zhì)量的基礎(chǔ)。</p><p>　　平面控制點(diǎn)可以利用已有符合房產(chǎn)測(cè)量規(guī)范的現(xiàn)有成果，必要時(shí)則應(yīng)自行布測(cè)房產(chǎn)平面控制網(wǎng)。</p><p>　　不論是利用其他單位的成果，還是自己建立的控制，都應(yīng)按照《房產(chǎn)測(cè)量規(guī)范》的規(guī)定

35、和要求進(jìn)行檢核，這是房產(chǎn)測(cè)量的基礎(chǔ)，也是今后建立房地產(chǎn)信息系統(tǒng)的基礎(chǔ)。</p><p>　　所有的測(cè)量都離不開一個(gè)基準(zhǔn)，即所謂的測(cè)量基準(zhǔn)。測(cè)量基準(zhǔn)是測(cè)繪過程及測(cè)繪成果所用基準(zhǔn)的總稱。它包括大地基準(zhǔn)、長度基準(zhǔn)、天文基準(zhǔn)、高程基準(zhǔn)、重力基準(zhǔn)、海深基準(zhǔn)、投影基準(zhǔn)等，它是在測(cè)繪中選用的參照系和起算數(shù)據(jù)。國家標(biāo)準(zhǔn)《房產(chǎn)測(cè)量規(guī)定》中所講的測(cè)量基準(zhǔn)只包括房地產(chǎn)測(cè)量過程中及其成果直接使用的基準(zhǔn)，主要是坐標(biāo)系統(tǒng)和高程基準(zhǔn)。房產(chǎn)測(cè)量

36、一般不測(cè)高程，所以本文不作房產(chǎn)高程測(cè)量基準(zhǔn)的介紹。</p><p>　　房產(chǎn)測(cè)量的坐標(biāo)系統(tǒng)應(yīng)采用1980年西安坐標(biāo)系或地方坐標(biāo)系。采用地方坐標(biāo)系時(shí)，應(yīng)和國家坐標(biāo)系聯(lián)測(cè)。</p><p>　　從長遠(yuǎn)和全局考慮，國家也要求全國應(yīng)采用統(tǒng)一的國家大地坐標(biāo)系統(tǒng)，并使各城市的城市控制網(wǎng)成為國家控制網(wǎng)的一部分。但是由于歷史的原因，在相當(dāng)長一段時(shí)期內(nèi)我國沒有形成和提供覆蓋全國的高精度的國家大地控制網(wǎng)成果，

37、而城市由于規(guī)劃和建設(shè)的需要，許多大中城市都先后建立了自己獨(dú)立的地區(qū)性的大地控制網(wǎng)，形成了自己的大地坐標(biāo)系統(tǒng)和平面坐標(biāo)系統(tǒng)。這些城市控制網(wǎng)一般質(zhì)量好，投影變形很小，能滿足大比例尺測(cè)圖和施工放樣的需要。這些城市控制成果一般也能滿足城鎮(zhèn)地籍測(cè)繪和房產(chǎn)測(cè)繪平面控制需要。在大中城市一般采用地方坐標(biāo)系統(tǒng)，但是為了從分利用現(xiàn)有的成果資料，保持城市測(cè)繪成果資料的統(tǒng)一和共享，也為了房產(chǎn)測(cè)繪成果能為城市的經(jīng)濟(jì)建設(shè)、為相關(guān)行業(yè)服務(wù)，所以在國家標(biāo)準(zhǔn)《房產(chǎn)測(cè)量規(guī)

38、范》中提倡使用國家統(tǒng)一的坐標(biāo)系統(tǒng)——1980年西安坐標(biāo)系，采用地方坐標(biāo)系的，應(yīng)和國家坐標(biāo)系聯(lián)測(cè)，聯(lián)測(cè)點(diǎn)不少于三個(gè)，其目的是保證必要時(shí)能將地方坐標(biāo)系轉(zhuǎn)換為國家坐標(biāo)系。</p><p>　　利用房產(chǎn)平面控制網(wǎng)中的已知點(diǎn)對(duì)房屋進(jìn)行碎部測(cè)量，并在室內(nèi)繪制出房屋的地形圖作為宗地圖的原始資料。</p><p>　?。?）房屋邊長數(shù)據(jù)的野外采集</p><p>　　房產(chǎn)草圖的繪制

39、必需以野外量測(cè)的房屋邊長數(shù)據(jù)為依據(jù)。房屋邊長數(shù)據(jù)的采集所需工具為手持激光測(cè)距儀，鋼卷尺。由于存在誤差累積的情況，所以一般一邊要盡量少次測(cè)完，而且要重復(fù)測(cè)量取平均值。量邊時(shí)還要注意內(nèi)外控制好。屋外總長數(shù)據(jù)一般要和屋內(nèi)同一邊總長數(shù)據(jù)做對(duì)比，相互檢核，這樣才不會(huì)出現(xiàn)錯(cuò)誤邊長。</p><p><b>　　2.3房產(chǎn)測(cè)量內(nèi)業(yè)</b></p><p>　　房產(chǎn)測(cè)量外業(yè)數(shù)據(jù)采集完

40、全后，內(nèi)業(yè)相關(guān)工作就著手進(jìn)行。房產(chǎn)草圖的繪制是內(nèi)業(yè)工作的基礎(chǔ)，是十分重要的一個(gè)環(huán)節(jié)。</p><p>　　房產(chǎn)草圖采用雙線表示方法，形象逼真地顯示了房屋的平面信息：房屋套內(nèi)布局、外墻墻厚、套內(nèi)墻厚、權(quán)屬范圍等。</p><p>　　下圖2-1就是一幅標(biāo)準(zhǔn)的房產(chǎn)草圖樣式。</p><p>　　該圖只是一幢房屋中的其中一層。對(duì)于不是標(biāo)準(zhǔn)層的層圖，繪制時(shí)要全部繪制出來。從

41、下圖我們可以看出，一幅房產(chǎn)草圖包含的要素也是十分復(fù)雜的。</p><p><b>　　圖2-1</b></p><p>　　2.4房產(chǎn)測(cè)量的關(guān)鍵技術(shù)</p><p>　　房產(chǎn)外業(yè)測(cè)量和很多測(cè)量在程序和操作上一樣，但又不完全一樣，它有它獨(dú)特之處，例如在房產(chǎn)地形圖測(cè)繪過程中，碎部點(diǎn)的高程一般都不要求測(cè)出來，除非是地形起伏較大的山城或丘陵城市，對(duì)地形

42、變化的特征處測(cè)定高程特征點(diǎn)的高程，按照國家標(biāo)準(zhǔn)《房產(chǎn)測(cè)量規(guī)范》中的規(guī)定進(jìn)行表述，并標(biāo)出其高程值。房產(chǎn)測(cè)量內(nèi)業(yè)是整個(gè)工作中的關(guān)鍵，所以內(nèi)業(yè)工作進(jìn)展順利與否直接影響整個(gè)項(xiàng)目的效率和質(zhì)量。所以房產(chǎn)測(cè)量的一些關(guān)鍵技術(shù)必須掌握好。</p><p>　?。?）房產(chǎn)測(cè)量外業(yè)、內(nèi)業(yè)同步進(jìn)行：在房產(chǎn)測(cè)量作業(yè)過程中，外業(yè)和內(nèi)業(yè)往往是同步進(jìn)行的。這樣不但有利于縮短作業(yè)時(shí)間，而且便于檢核，經(jīng)內(nèi)業(yè)檢核出來的問題，可以在下次外業(yè)時(shí)及時(shí)解決。

43、</p><p>　?。?）房屋外框的全局控制：房產(chǎn)測(cè)量中，房屋面積計(jì)算是否準(zhǔn)確與房屋外框的控制是直接相關(guān)的。房屋外框沒有控制好，我們計(jì)算出來的面積往往是不對(duì)的。所以如何控制外框是關(guān)鍵。在外業(yè)量邊過程中通常是先量出房屋的外邊長，然后再量出室內(nèi)邊長，根據(jù)室內(nèi)邊長總和與外邊長相比較，同一邊的這兩組數(shù)據(jù)之差不能超過3cm。</p><p>　?。?）上下層草圖套用畫法：房產(chǎn)草圖繪制時(shí)，并不是逐層

44、從頭到尾一步一步地繪制。我們都是繪制出一個(gè)標(biāo)準(zhǔn)層的草圖，然后其他層再以這個(gè)標(biāo)準(zhǔn)層為基礎(chǔ)進(jìn)行修改，這樣不但出錯(cuò)少，效率也高。</p><p>　　（4）利用AutoLISP編程語言輔助繪圖：在繪圖過程中往往有很多重復(fù)的步驟，這時(shí)有必要運(yùn)用AutoCAD加載用AutoLISP編程語言編寫的程序來進(jìn)行圖形的批量編輯。</p><p>　　3 AutoLISP語言簡(jiǎn)化房產(chǎn)測(cè)量工作的實(shí)現(xiàn)過程<

45、/p><p>　　3.1房產(chǎn)測(cè)量作業(yè)模式</p><p>　　房產(chǎn)測(cè)量作業(yè)模式在不同的城市，不同時(shí)期都會(huì)不同。從我們現(xiàn)在做的房產(chǎn)測(cè)量數(shù)據(jù)數(shù)字化的工作中，發(fā)現(xiàn)先前的房產(chǎn)測(cè)量工作模式存在的問題還是比較多的。問題的關(guān)鍵還是由于當(dāng)時(shí)的技術(shù)不成熟及設(shè)備不先進(jìn)?，F(xiàn)在就不一樣了，隨著社會(huì)經(jīng)濟(jì)的不斷發(fā)展，先進(jìn)設(shè)備及技術(shù)的不斷引進(jìn)，使得房產(chǎn)測(cè)量工作變得更加嚴(yán)密，更能體現(xiàn)現(xiàn)在市場(chǎng)經(jīng)濟(jì)的需求。</p>

46、<p>　　3.1.1房產(chǎn)測(cè)量傳統(tǒng)作業(yè)模式</p><p>　　房產(chǎn)測(cè)量傳統(tǒng)作業(yè)模式主要還是體現(xiàn)在內(nèi)業(yè)數(shù)據(jù)處理上。</p><p>　　1.傳統(tǒng)房產(chǎn)測(cè)量草圖都是繪制在聚酯薄膜紙上，繪制時(shí)同樣要按照一定的比例。</p><p>　　2.將繪制在聚酯薄膜紙上的草圖復(fù)印多份。畫出房屋各套的權(quán)屬線，及公攤部分的權(quán)屬。標(biāo)出門牌號(hào)、戶式號(hào)及各功能區(qū)注記。</p

47、><p>　　3.根據(jù)畫出的權(quán)屬線范圍，將權(quán)屬多邊形分割成多個(gè)規(guī)則幾何圖形，計(jì)算出這些幾何圖形的面積，面積和就為該權(quán)屬范圍的面積。</p><p>　　4.用以上同樣的方法計(jì)算出公用部分的面積，依據(jù)分?jǐn)偡绞阶詈笥?jì)算出經(jīng)分?jǐn)偤蟮母魈椎拿娣e。</p><p>　　傳統(tǒng)模式下的房產(chǎn)測(cè)量數(shù)據(jù)資料不易保存，容易破損和丟失，而且在計(jì)算過程中誤差累積次數(shù)比較多。在定義權(quán)屬范圍時(shí)也不是

48、很嚴(yán)密，傳統(tǒng)的方法下沒有定義外半墻，除去和其他戶室共用的墻外，其他都為自有墻，與公共部分共用的墻也為自有墻。這種情況下，傳統(tǒng)方法測(cè)量的房屋面積一般較現(xiàn)在方法下的大，這就給以后測(cè)算帶來了一些問題。</p><p>　　3.1.2房產(chǎn)測(cè)量新作業(yè)模式</p><p>　　房產(chǎn)測(cè)量新模式與傳統(tǒng)模式相比，在使用設(shè)備，繪圖軟件上都有相當(dāng)大的優(yōu)勢(shì)，尤其是在軟件應(yīng)用上體現(xiàn)的更為突出：</p>

49、<p>　　1.現(xiàn)在使用最好的繪圖軟件是AutoCAD，AutoCAD在繪圖上有著非常強(qiáng)大的功能。它有如下特點(diǎn)：</p><p>　　(1)具有完善的圖形繪制功能。</p><p>　　(2)有強(qiáng)大的圖形編輯功能。</p><p>　　(3)可以采用多種方式進(jìn)行二次開發(fā)或用戶定制。</p><p>　　(4)可以進(jìn)行多種圖形格式的

50、轉(zhuǎn)換，具有較強(qiáng)的數(shù)據(jù)交換能力。</p><p>　　(5)支持多種硬件設(shè)備。</p><p>　　(6)支持多種操作平臺(tái)</p><p>　　(7)具有通用性、易用性，適用于各類用戶此外，從AutoCAD2000開始，該系統(tǒng)又增添了許多強(qiáng)大的功能，如AutoCAD設(shè)計(jì)中心（ADC）、多文檔設(shè)計(jì)環(huán)境（MDE）、Internet驅(qū)動(dòng)、新的對(duì)象捕捉功能、增強(qiáng)的標(biāo)注功能以及

51、局部打開和局部加載的功能，從而使AutoCAD系統(tǒng)更加完善。</p><p>　　可以采用多種方式對(duì)AutoCAD進(jìn)行二次開發(fā)或用戶定制，這一特點(diǎn)我們常常利用來簡(jiǎn)化我們房產(chǎn)草圖的繪制過程。</p><p>　　2.現(xiàn)在房產(chǎn)測(cè)量權(quán)屬范圍定義與傳統(tǒng)模式下的房產(chǎn)測(cè)量權(quán)屬范圍定義有很大改變?，F(xiàn)在的權(quán)屬線都是過中線的，即有外半墻部分。最后的外半墻面積會(huì)根據(jù)規(guī)范要求進(jìn)行分?jǐn)?，而不是想以前那樣直接歸入相

52、應(yīng)的戶室。這樣來說更加合理，更能體現(xiàn)現(xiàn)在《房產(chǎn)測(cè)量規(guī)范》的要求及市場(chǎng)的要求。</p><p>　　3.由于生產(chǎn)的都是電子產(chǎn)品，并入庫到相應(yīng)的系統(tǒng)中，這樣不僅方便保存及查詢，更能為以后的配圖工作提供很大的便利。</p><p>　　3.1.3對(duì)房產(chǎn)測(cè)量新作業(yè)模式的改進(jìn)</p><p>　　在房產(chǎn)測(cè)量過程中，繪制草圖雖然已經(jīng)有了AutoCAD這個(gè)很強(qiáng)大的軟件，但是房產(chǎn)測(cè)

53、量內(nèi)業(yè)有著很多重復(fù)繁瑣的過程。</p><p>　　1.權(quán)屬線生成。當(dāng)房產(chǎn)草圖雙線圖完成后，就要生成權(quán)屬線。而且，對(duì)于全算面積、半算面積的權(quán)屬線的線性是不一樣的。全算面積的權(quán)屬線為封閉的實(shí)線多邊形；半算面積的權(quán)屬線為封閉的虛線多邊形。</p><p>　　2.房屋邊長注記。一幅標(biāo)準(zhǔn)的房產(chǎn)草圖，邊長注記是必不可少的。單純用CAD中的命令將是一項(xiàng)很大的工程。</p><p&

54、gt;　　3.開門。草圖畫完了，房子的門就肯定要開。用CAD自帶的修剪命令效率不是很高。</p><p>　　除了以上列出的情況外，還有一些繪圖程序也是具有重復(fù)性的，比如權(quán)屬面積的計(jì)算等。對(duì)于這些重復(fù)性的過程，我們可以利用AutoLISP編程語言對(duì)CAD進(jìn)行二次開發(fā)或根據(jù)需求編寫一些程序輔助房產(chǎn)測(cè)量內(nèi)業(yè)處理。下文就針對(duì)利用AutoLISP編程語言編寫一些應(yīng)用程序來輔助繪圖展開介紹。</p><

55、p>　　3.2 AutoLISP編程語言</p><p>　　LISP（List Proccessing Language）是一種計(jì)算機(jī)的表處理語言，是在人工智能科學(xué)領(lǐng)域廣泛應(yīng)用的一種程序設(shè)計(jì)語言。AutoLISP語言室嵌套與AutoCAD內(nèi)部、將LISP語言和AutoCAD有機(jī)地結(jié)合起來的產(chǎn)物。使用AutoLISP可以直接調(diào)用幾乎所有的AutoCAD命令。AutoLISP語言既具備一般高級(jí)語言的基本結(jié)構(gòu)和

56、功能，又具有一般高級(jí)語言所沒有的強(qiáng)大圖形處理功能，是當(dāng)今世界CAD軟件中被廣泛采用的語言之一。[2]</p><p>　　美國Autodesk公司在AutoCAD內(nèi)部嵌入AutoLISP的目的是為了使用戶充分地利用AutoCAD進(jìn)行二次開發(fā)，實(shí)現(xiàn)直接增加和修改AutoCAD命令，隨意擴(kuò)大圖形編輯功能，建立圖形庫和數(shù)據(jù)庫，并對(duì)當(dāng)前圖形進(jìn)行直接訪問和修改，開發(fā)CAD軟件包等。[2]</p><p&

57、gt;　　AutoLISP語言最典型地應(yīng)用之一是實(shí)現(xiàn)參數(shù)化繪圖程序設(shè)計(jì)，包括尺寸驅(qū)動(dòng)程序和鼠標(biāo)拖動(dòng)程序等。尺寸驅(qū)動(dòng)程序是通過改變實(shí)體標(biāo)注的尺寸值來實(shí)現(xiàn)圖形的自動(dòng)修改，鼠標(biāo)拖動(dòng)即利用AutoLISP語言提供的（GRREAD[<track>]）函數(shù)，讓用戶直接讀取參數(shù)值以自動(dòng)改變屏幕圖形大小和形狀。迄今為止，大多數(shù)參數(shù)化程序都是針對(duì)二維平面圖編制的。</p><p>　　3.2.1 AutoLISP編程語

58、言的特點(diǎn)</p><p>　　編程語言有很多種類，各自都有其獨(dú)特之處，AutoLISP編程語言具有如下特點(diǎn)：</p><p>　　1. AutoLISP語言是在普通LISP語言基礎(chǔ)上，擴(kuò)充了很多適用于CAD應(yīng)用的特殊功能而形成的，是一種僅能以解釋方式運(yùn)行于AutoCAD內(nèi)部的解釋型程序設(shè)計(jì)語言。</p><p>　　2. AutoLISP語言中的所有成分都是以函數(shù)形

59、式給出的，它沒有語句概念和其它語法結(jié)構(gòu)。執(zhí)行AutoLISP程序就是執(zhí)行一些函數(shù)，再調(diào)用其它函數(shù)。</p><p>　　3. AutoLISP把數(shù)據(jù)和程序統(tǒng)一表達(dá)為表結(jié)構(gòu)，即S—表達(dá)式，故可以把程序當(dāng)作數(shù)據(jù)來處理，也可以把數(shù)據(jù)當(dāng)作程序來執(zhí)行。</p><p>　　4. AutoLISP語言中的程序運(yùn)行過程就是對(duì)函數(shù)的求值過程，是在對(duì)函數(shù)求值的過程中實(shí)現(xiàn)函數(shù)的功能。</p>&

60、lt;p>　　AutoLISP程序的結(jié)構(gòu)特點(diǎn)：</p><p>　　一般的AutoLISP程序的結(jié)構(gòu)特點(diǎn)是這樣的：AutoLISP中的所有功能都是以表的形式調(diào)用內(nèi)部函數(shù)或用戶函數(shù)來實(shí)現(xiàn)的，其調(diào)用形式為：</p><p>　?。ê瘮?shù)名 變?cè)? 變?cè)? 變?cè)?……變?cè)猲F）</p><p>　　括號(hào)里的每項(xiàng)之間用空格隔開，變?cè)梢允浅?shù)、變量以及對(duì)其它函數(shù)的調(diào)用

61、。我們把這種函數(shù)的調(diào)用形式稱為表達(dá)式。表達(dá)式的書寫規(guī)矩是：</p><p>　　1.前綴表示法。大多數(shù)計(jì)算機(jī)語言采用是“中綴表示法”。而在AutoLISP語言中，采用的是前綴表示法，即把運(yùn)算符放在操作數(shù)之前，并把操作數(shù)（調(diào)用函數(shù)的參數(shù)）和運(yùn)算符（函數(shù)名）用圓括號(hào)括起來。如：(setq d(-(*b b)(*4.0 a b))</p><p>　　2.表的第一個(gè)元素必須是函數(shù)名。若是數(shù)值，在

62、括號(hào)前應(yīng)帶單引號(hào)“＇”。</p><p>　　3.函數(shù)名與第一變?cè)g以及相鄰兩變?cè)g必須用空格隔開，計(jì)算機(jī)把表的第一項(xiàng)認(rèn)作函數(shù)名，其余各項(xiàng)認(rèn)作函數(shù)的變?cè)?lt;/p><p>　　4.要注意表達(dá)式中括號(hào)和定界符的配對(duì)，這是程序中最常見的出錯(cuò)原因。</p><p>　　5.不能使用多余的括號(hào)。</p><p>　　6.除字符常數(shù)中的字母以外，符

63、號(hào)名中的大小寫字母是等效的。</p><p>　　AutoLISP是一種書寫非常自由的語言，變?cè)g可用一個(gè)或多個(gè)空格隔開?？梢砸恍袑懚鄠€(gè)表達(dá)式，也可以一個(gè)表達(dá)式分多行書寫。為了使程序結(jié)構(gòu)直觀，便于閱讀，層次清晰，一般使用縮排形式來編寫程序。</p><p>　　3.2.2加載和運(yùn)行AutoLISP程序</p><p>　　一個(gè)AutoLISP程序通常有兩個(gè)相關(guān)的名

64、稱：程序文件名和函數(shù)名。例如：Train.lsp是一個(gè)文件名，而不是函數(shù)名。所有的AutoLISP文件都以.lsp為文件擴(kuò)展名。在一個(gè)相同的AutoLISP程序文件中可以有一個(gè)或多個(gè)函數(shù)定義。要運(yùn)行一個(gè)函數(shù)，定義該函數(shù)的AutoLISP程序文件必須被裝載。當(dāng)正在圖形編輯器中工作時(shí)，可用下面的命令裝載一個(gè)AutoLISP文件：</p><p>　　Command:(load＂[path]file name＂)<

65、;/p><p>　　AutoLISP文件名和選項(xiàng)的路徑名必須包含在雙引號(hào)中，load命令和file name 參數(shù)必須包含在圓括號(hào)中。如果不加圓括號(hào)，則AutoCAD將試圖裝載一個(gè)圖形或一個(gè)字體文件，而不是裝載一個(gè)AutoLISP程序文件。在load和file name之間不需要空格。AutoCAD成功裝載文件后，將在屏幕的命令提示區(qū)顯示函數(shù)名。</p><p>　　要運(yùn)行程序，只要在Auto

66、CAD命令提示行鍵入該函數(shù)名，并按回車即可(command:函數(shù)名)。如果編程時(shí)函數(shù)名中沒有包含“C:”，則可以通過帶圓括號(hào)的函數(shù)名來運(yùn)行程序：</p><p>　　Command：函數(shù)名或Command：（函數(shù)名）</p><p>　　應(yīng)當(dāng)注意為加載一個(gè)AutoLISP程序，在定義其路徑時(shí)采用正斜杠。例如，如果AutoLISP文件Train存在于C：盤的LISP子目錄中，則可以使用如下命

67、令加載文件，也可以使用雙反斜杠代替正斜杠。</p><p>　　Command：(load＂Ｃ:/lisp/train＂)</p><p><b>　　或者</b></p><p>　　Command：(load＂Ｃ:\\lisp\\train＂)</p><p>　　我們也可以使用標(biāo)準(zhǔn)的Windows的拖放功能來裝載應(yīng)

68、用程序。裝載一個(gè)LISP程序，可以從Windows資源管理器中把一個(gè)文件拖放進(jìn)AutoCAD的圖形窗口中，這樣被選中的程序?qū)⒆詣?dòng)被加載。另一個(gè)裝載程序的方法是：使用Load/Unload Application命令或在AutoCAD命令提示行中輸入Appload命令來調(diào)用。</p><p>　　3.2.3 AutoLISP變量</p><p>　　AutoLISP中按照假設(shè)的數(shù)據(jù)類型賦值給

69、變量。變量將保存其初始值直到它們被賦新值?？梢允褂肁utoLISP的Setq函數(shù)給變量賦值：</p><p>　　（Setq 變量1 值1[變量2 值2…]）</p><p>　　Setq函數(shù)向已定的變量名賦值，并將結(jié)果作為值返回。如果在Visual LISP控制臺(tái)提示行中使Setq，結(jié)果顯示在控制臺(tái)窗口：</p><p>　　_$( Setq abc 95)<

70、;/p><p><b>　　95</b></p><p>　　_$( Setq it＂ＡutoCAD 2008＂)</p><p>　?。ⅲ羥toCAD 2008＂</p><p>　　在Visual LISP控制臺(tái)提示行中輸入如下的變量名，Visual LISP將顯示當(dāng)前的變量值：</p><p>

71、<b>　　_$ abc</b></p><p><b>　　95</b></p><p>　　為了從AutoCAD命令提示行顯示變量的值，必須在變量名前加上“！”。例如：</p><p>　　Command：！abc</p><p><b>　　95</b></p>

72、;<p><b>　　1.Nil 變量</b></p><p>　　Nil是一種沒有賦給數(shù)值的AutoLISP變量。它不同于那些被認(rèn)為是字符串的blank，也不同于數(shù)值0，因此，除了變量的當(dāng)前數(shù)值之外，還可以確定變量是否已經(jīng)被賦值。</p><p>　　每個(gè)變量都將消耗少量的內(nèi)存，因此當(dāng)變量的值不再被使用的時(shí)候，將變量名重新使用或?qū)⒆兞吭O(shè)為nil是一種很

73、好的編程習(xí)慣。將變量設(shè)為nil可以釋放用來存儲(chǔ)變量值所用的內(nèi)存空間。</p><p>　　例如，假如不再需要cyy變量，可以用下列的表達(dá)式從內(nèi)存中釋放變量的值：</p><p>　　_$（setq cyy nil）</p><p><b>　　nil</b></p><p>　　此外，另一個(gè)良好的編程習(xí)慣是盡可能使用局部

74、變量。</p><p><b>　　2.預(yù)定義的變量</b></p><p>　　下列預(yù)定義的變量在Auto LISP應(yīng)用中常見：</p><p>　　PAUSE：定義為有雙反斜杠“\\”組成的字符串。該變量被命令函數(shù)用來暫停用戶的輸入。</p><p>　　PI：定義為常量p(pi)，它的值近似為3.1415926。&

75、lt;/p><p>　　T：定義為常量T，它被用來當(dāng)作非nil的值。</p><p>　　這里要注意的是，用setq函數(shù)能改變這些變量的值。但是，其它應(yīng)用可能要依賴它們的值并希望它們是一致的。因此，建議不要更改這些變量。Visual LISP中的缺省設(shè)置將保護(hù)這些變量，直到它們被重新定義。通過Visual LISP符合服務(wù)特性或設(shè)置Visual LISP環(huán)境選項(xiàng)可以忽略這種保護(hù)。</p&

76、gt;<p>　　3.3 AutoLISP語言與AutoCAD軟件的結(jié)合</p><p>　　3.3.1 AutoCAD的語言開發(fā)環(huán)境</p><p>　　AutoCAD是世界上最流行的通用CAD平臺(tái)。在國內(nèi)更是用戶眾多，影響深遠(yuǎn)，尤其是在建筑行業(yè)和機(jī)械行業(yè)擁有數(shù)十萬的應(yīng)用隊(duì)伍，堪稱CAD的標(biāo)準(zhǔn)平臺(tái)。自1982年Autodesk公司推出AutoCAD1．0，到今年推出的Aut

77、oCADR14，AutoCAD經(jīng)歷了15年的發(fā)展。</p><p>　　AutoCAD于1986年v2．18版時(shí)提供了AutoLISP程序設(shè)計(jì)的支持，從此開始了可以在一個(gè)通用的CAD平臺(tái)上添加自己所需的特殊功能的能力。1987年AutoCADv2．6版推出，AutoLISP得到一些改善，這也正是國內(nèi)流行AutoCAD及AutoCAD環(huán)境下開發(fā)編程的開始。1988年推出的AutoCADR10開始使得AutoLISP

78、程序可以在擴(kuò)展內(nèi)存中允許，這對(duì)于編寫稍大一點(diǎn)規(guī)模的應(yīng)用程序提供了可能。AutoCAD第一代開發(fā)工具開發(fā)出的第一代應(yīng)用軟件開始在國內(nèi)流行。 </p><p>　　1990年推出的AutoCADR11第一次在PC版的AutoCAD上提供了C語言開發(fā)環(huán)境（ADS）的支持，這使得在AutoCAD的上開發(fā)大規(guī)模的綜合性的應(yīng)用程序成了可能，AutoCAD下的應(yīng)用程序可以利用標(biāo)準(zhǔn)C語言提供的能力，編制出第一代工具無法實(shí)現(xiàn)的應(yīng)用

79、。真正在國內(nèi)普遍流行用第二代開發(fā)工具開發(fā)AutoCAD，是在1992年推出的AutoCADR12的基礎(chǔ)上進(jìn)行的。1994年推出的AutoCADR12上第一次提供了面向?qū)ο蟮腃＋＋開發(fā)環(huán)境的支持（ARX），這就是AutoCAD第三代開發(fā)工具。AutoCAD本身在內(nèi)核上也發(fā)生了本質(zhì)的變化，盡管最終用戶并不會(huì)感覺到，但AutoCAD確實(shí)走向了一個(gè)開放式的面向?qū)ο蟮腃AD平臺(tái)，為今后的進(jìn)一步發(fā)展奠定了技術(shù)基礎(chǔ)。很遺憾的是R13上的ARX是個(gè)新生

80、事物，本身不完善，在不同的小版本上的ARX程序不兼容，直至R13C4版才較為穩(wěn)定。ARXSDK發(fā)布的初期所要求的開發(fā)環(huán)境也較為苛刻（要求MSVC2．1～2．2），現(xiàn)在已經(jīng)可以利用MSVC4．x作為開發(fā)環(huán)境。今年剛發(fā)布的AutoCADR14將是經(jīng)三代開發(fā)工具應(yīng)用的舞臺(tái)，一方面的R14對(duì)ARX的支持更加可靠</p><p>　　3.3.2 AutoLISP語言用于AutoCAD二次開發(fā)的特點(diǎn)</p>&

81、lt;p>　　AutoLISP是AutoCAD內(nèi)嵌的一種解釋語言開發(fā)環(huán)境。AutoCAD從v2．18版開始，一直支持這種開發(fā)環(huán)境。AutoLISP的大部分功能是直接針對(duì)AutoCAD，它是一種很好的交互語言，很適合于CAD這類交互性很強(qiáng)的應(yīng)用。</p><p>　　AutoLISP有如下優(yōu)點(diǎn)：</p><p>　　1．語言規(guī)則十分簡(jiǎn)單，易學(xué)易用AutoLISP來源了LISP語言，以一

82、種通用的規(guī)則－表（LIST），來描述過程和數(shù)據(jù)。由于這種規(guī)則極其簡(jiǎn)單，一個(gè)對(duì)計(jì)算機(jī)了解不太深入的工程專業(yè)人員，僅需經(jīng)短期的學(xué)習(xí)，就可以熟練掌握這門語言。LSIP語言的簡(jiǎn)潔性是其它許多計(jì)算機(jī)語言所無法相比的，“萬能”的表屏蔽了復(fù)雜的過程，可描述任何數(shù)據(jù)結(jié)構(gòu)。</p><p>　　2．直接針對(duì)AutoCAD，易于交互AutoLISP提供的大多數(shù)函數(shù)都是直接針對(duì)AutoCAD的操作，用AutoLISP編寫訪問AutoC

83、AD圖形數(shù)據(jù)庫（DWG）圖形數(shù)據(jù)庫的操作</p><p>　　3．解釋執(zhí)行，立竿見影程序員既可以一次運(yùn)行一段AutoLISP代碼，也可以在AutoCAD的Command下逐條鍵入AutoLISP指令，立即得到結(jié)果。</p><p>　　隨著計(jì)算機(jī)技術(shù)的發(fā)展，CAD編程更加復(fù)雜，代碼越來越龐大，AutoLISP的缺點(diǎn)的也愈來愈明顯：</p><p>　　1．功能單一，

84、綜合處理能力差 </p><p>　　2．解釋執(zhí)行，程序運(yùn)行速度慢 </p><p>　　3．缺乏很好的保護(hù)機(jī)制，軟件質(zhì)量不易保證</p><p>　　4．LISP用來表描述一切，并不能很好的反映現(xiàn)實(shí)世界和過程，跟人的思維方式也不太一致。</p><p>　　5．AutoLISP的這些特點(diǎn)，僅適合于有能力的終端用戶做些自己的開發(fā)任務(wù)。<

85、/p><p>　　由于我們做的是房產(chǎn)測(cè)量方面簡(jiǎn)單的圖形處理，AutoLISP雖然存在這些缺點(diǎn)，但是它的那些優(yōu)點(diǎn)足以達(dá)到我們的要求。</p><p>　　3.4利用AutoLISP編程語言實(shí)現(xiàn)房產(chǎn)草圖的簡(jiǎn)易繪制</p><p>　　房產(chǎn)草圖的繪制過程是一個(gè)復(fù)雜繁瑣的過程，復(fù)雜體現(xiàn)在我們要依據(jù)外業(yè)量測(cè)的邊長數(shù)據(jù)去恢復(fù)房屋的實(shí)際形狀；繁瑣體現(xiàn)在草圖繪制過程中有很多過程要不斷的

86、重復(fù)進(jìn)行。因?yàn)檫@樣，所以要提高我們繪圖的速度及效率，就得想法找到簡(jiǎn)單易操作的方法來輔助房產(chǎn)測(cè)量草圖的繪制。</p><p>　　根據(jù)前文介紹的關(guān)于利用AutoLISP編程語言來對(duì)AutoCAD進(jìn)行二次開發(fā)的相關(guān)內(nèi)容，我們知道利用AutoLISP編程語言編寫的應(yīng)用程序可以有AutoCAD直接加載調(diào)用。我們可以利用這一點(diǎn)，根據(jù)繪圖的要求編寫一些簡(jiǎn)單易懂的程序來幫助我們繪制房產(chǎn)草圖。</p><p&

87、gt;　　在房產(chǎn)草圖的繪制的過程中，最常見的重復(fù)的操作就是給房屋線上標(biāo)注、開門、過權(quán)屬、計(jì)算權(quán)屬面積等。</p><p>　　給房屋線上標(biāo)注時(shí)，如果采用CAD自帶的標(biāo)注命令，耗費(fèi)太多時(shí)間，效率明顯降低。利用AutoLISP編程語言的相關(guān)優(yōu)點(diǎn)設(shè)計(jì)一個(gè)可以批量標(biāo)注的程序，并設(shè)定相應(yīng)的格式。</p><p>　　計(jì)算權(quán)屬面積時(shí)可以利用全算面積部分與半算面積部分線型不同可以在AutoLISP應(yīng)用程

88、序中設(shè)定不同的計(jì)算公式，并實(shí)現(xiàn)自動(dòng)識(shí)別線型計(jì)算權(quán)屬面積。</p><p>　　其他相關(guān)操作同以上根據(jù)不同要求去設(shè)定程序編寫思路。</p><p>　　4便于房產(chǎn)測(cè)量草圖繪制方法的設(shè)計(jì)</p><p>　　利用AutoLISP編程語言編寫應(yīng)用程序來輔助房產(chǎn)測(cè)量草圖的繪制，不但可以提高工作效率，而且還可以讓我們的圖面整潔清新。要達(dá)到我們想要的效果，設(shè)計(jì)思路是非常重要的。

89、我們必須根據(jù)想要的效果去設(shè)計(jì)，中間可能遇到的問題也要有所準(zhǔn)備。所以這個(gè)過程也不是很簡(jiǎn)單的。</p><p><b>　　4.1設(shè)計(jì)思路</b></p><p>　　利用AutoLISP編程語言來設(shè)計(jì)我們需要的應(yīng)用程序，首先要明確我們想達(dá)到的效果，其次根據(jù)畫圖需要確定我們的變量及CAD調(diào)用的命令，再次確定我們要用到的函數(shù)。根據(jù)AutoLISP編程語言特點(diǎn)及繪圖要求，可以

90、用下圖來體現(xiàn)我們的設(shè)計(jì)思路：</p><p>　　4.2房產(chǎn)測(cè)量草圖主要要素的提取</p><p>　　4.2.1房產(chǎn)測(cè)量草圖墻厚的快速標(biāo)注</p><p>　　以下是房產(chǎn)測(cè)量草圖墻厚自動(dòng)生成的程序：</p><p>　　;※※※※※※※※※※※※※※※(程序[注墻厚])※※※※※※</p><p>　　(defun

91、c:QQ (/ sss plt dist text ent1 ent2)</p><p>　　(while (setq sss (ssget (list (cons 0 "LINE"))))</p><p>　　(setq plt (cadr (grread t 2 2)))</p><p>　　(setq dist (distance (v

92、lax-curve-getclosestpointto</p><p>　　(vlax-ename->vla-object (ssname sss 0))</p><p><b>　　plt</b></p><p><b>　　)</b></p><p>　　(vlax-curve-getcl

93、osestpointto</p><p>　　(vlax-ename->vla-object (ssname sss 1))</p><p><b>　　plt</b></p><p><b>　　)</b></p><p><b>　　)</b></p>

94、<p><b>　　)</b></p><p>　　(setq text (rtos (* 100 dist) 2 0))</p><p>　　(if(< dist 0.1)</p><p>　　(setq pt1 (list (- (car plt) 0.083) (- (cadr plt) 0.125)))</p&g

95、t;<p>　　(setq pt1 (list (- (car plt) 0.235) (- (cadr plt) 0.175)))</p><p><b>　　)</b></p><p>　　(entmake (list '(0 . "CIRCLE")</p><p>　　(cons 10 plt)&

96、lt;/p><p>　　'(40 . 0.4)</p><p>　　'(8 . "數(shù)據(jù)注記")</p><p><b>　　)</b></p><p><b>　　)</b></p><p>　　(entmake (list '(0 .

97、 "TEXT")</p><p>　　'(8 . "數(shù)據(jù)注記")</p><p>　　(cons 10 pt1)</p><p>　　'(40 . 0.35)</p><p>　　(cons 1 text)</p><p>　　'(8 . "數(shù)據(jù)

98、注記")</p><p><b>　　)</b></p><p><b>　　)</b></p><p><b>　　)</b></p><p><b>　　)</b></p><p>　　4.2.2房產(chǎn)測(cè)量草圖權(quán)屬面積的

99、獲取</p><p>　　;※※※※※※※※※※※※※※※(程序一[求單元面積])※※※※※※※</p><p>　　(defun c:MJ ()</p><p>　　(setvar "CLAYER" "說明注記")</p><p>　　(setvar "CECOLOR" "

100、;Bylayer")</p><p>　　(setvar "CELTYPE" "Continuous")</p><p>　　(setq pt (getpoint "\n請(qǐng)選定注記位置:"))</p><p>　　(setq pt (polar pt 1.5707963267948966192 1

101、))</p><p>　　(while (setq ss (ssget '((0 . "LWPOLYLINE"))))</p><p><b>　　(progn</b></p><p>　　(setq n 0)</p><p>　　(setq pt (polar pt 1.5707963267

102、948966192 -1.0))</p><p>　　(repeat (sslength ss)</p><p>　　(setq name(ssname ss n))</p><p>　　(setq e(entget name))</p><p>　　(setq e1(cdr(assoc 6 e)))</p><p>

103、　　(command "area" "o" name)</p><p>　　(setq m(getvar "area"))</p><p>　　(if (or (= e1 "6") (= e1 "DASHED") (= e1 "DASHED2")) (setq m(/ m

104、 2)))</p><p>　　(setq qh (strcase(getstring "\n請(qǐng)輸入單元號(hào):")))</p><p>　　(command ".text" "S" "STANDARD" (polar pt 0 (* 5 n)) 0.5 "0" (strcat qh "

105、;=" (rtos m 2 3)))</p><p>　　(setq n(1+ n))</p><p><b>　　)</b></p><p><b>　　)</b></p><p><b>　　)</b></p><p><b>　

106、　)</b></p><p>　　4.2.3房產(chǎn)測(cè)量草圖開門程序設(shè)計(jì)</p><p>　　;※※※※※※※※※※※※※※※(程序五[開門])※※※※※※※※</p><p>　　(defun c:KM ()</p><p>　　(command "OSNAP" "NONE")</p&g

107、t;<p>　　(setvar "CLAYER" "房屋層")</p><p>　　(command "layer" "off" "數(shù)據(jù)注記" "off" "權(quán)屬層" "off" "說明注記" "off"

108、; "0" "off" "22"</p><p>　　setvar "CECOLOR" "Bylayer")</p><p>　　(setvar "CELTYPE" "Continuous")</p><p>　　(setq a

109、4(getpoint"\n第一點(diǎn)："))</p><p>　　(setq b4(getpoint"\n第二點(diǎn)："))</p><p>　　(setq ss(ssget "_C" a4 b4))</p><p>　　(setq a (entget(ssname ss 0)))</p><p

110、>　　(setq b (entget(ssname ss 1)))</p><p>　　(setq a1(cdr(assoc 10 a)))</p><p>　　(setq a2(cdr(assoc 11 a)))</p><p>　　(setq b1(cdr(assoc 10 b)))</p><p>　　(setq b2(cdr(a

111、ssoc 11 b)))</p><p>　　(setq a3(polar a4 (+ 4.7123889803846898 (angle a1 a2)) 20))</p><p>　　(setq a4(polar a4 (+ 1.5707963267948966 (angle a1 a2)) 20))</p><p>　　(setq b3(polar b4 (+

112、1.5707963267948966 (angle b1 b2)) 20))</p><p>　　(setq b4(polar b4 (+ 4.7123889803846898 (angle b1 b2)) 20))</p><p>　　(setq m1(inters b1 b2 b4 b3))</p><p>　　(setq m2(inters a1 a2 b4

113、b3))</p><p>　　(setq n1(inters a1 a2 a4 a3))</p><p>　　(setq n2(inters b1 b2 a4 a3))</p><p>　　(command "break" m1 n2)</p><p>　　(command "break" n1 m2)

114、</p><p>　　(command "line" m1 m2 "")</p><p>　　(command "line" n1 n2 "")</p><p>　　(command "layer" "ON" "數(shù)據(jù)注記" &q

115、uot;ON" "權(quán)屬層" "ON" "說明注記" "ON" "0" "ON" "22"</p><p>　　command "osmode" "129")</p><p><b>　　)&l

116、t;/b></p><p><b>　　5結(jié)論</b></p><p>　　隨著社會(huì)的發(fā)展，房產(chǎn)測(cè)量的重要性在日常生活中越來越被人們關(guān)注。房產(chǎn)測(cè)量成果質(zhì)量直接影響到人們的日常生活的正常運(yùn)轉(zhuǎn)。尤其是現(xiàn)在房產(chǎn)測(cè)量單位的日益增多，對(duì)于房產(chǎn)測(cè)量工作的要求是各有不同，但是萬變不離其宗，不管我們用何方法進(jìn)行房產(chǎn)測(cè)量，都必須遵守以事實(shí)為依據(jù)的原則，這樣才能保證房產(chǎn)測(cè)量成果的真