AutoLISP語言在房產(chǎn)測繪中的應(yīng)用

摘要:該文主要討論在房產(chǎn)測繪中對于autocad軟件中的lisp語言編程的應(yīng)用。通過使用符合工作環(huán)境與要求的編程提高繁瑣而細(xì)致的房產(chǎn)測繪內(nèi)業(yè)作業(yè)中的工作效率。

關(guān)鍵詞:AutoLISP;房產(chǎn)測繪

AutoLISP Language in the Real Estate Mapping

ZHOU Lan-jie， LIU Ling-yan

(Seismic Survey Research Center， Xiamen 361021， China)

Abstract: This paper mainly discusses about the application of LISP in daily work of real-estate mapping. By programming， we can meet the need of complicated and meticulous work in real-estate mapping and improve work performance.

Key words: AutoLISP; real-estate mapping

房地產(chǎn)測繪是關(guān)系到百姓民生的重要測繪項目。在繁瑣復(fù)雜的工作中要做到細(xì)致認(rèn)真，保證數(shù)據(jù)質(zhì)量的可靠性。而面對龐大的數(shù)據(jù)量，如何通過有效的編制一定的程序讓計算機(jī)為我們的作業(yè)人員服務(wù)，從而提高工作效率，成為我們需要思考的問題。在這里，我們通過編制LISP程序來實現(xiàn)一定的提高。

1 AutoLISP語言簡介及其應(yīng)用

AutoLISP全名是LIST Processing Language，出現(xiàn)于1985年推出的AutoCAD R2.18中，是一種嵌入在AutoCAD內(nèi)部的編程語言，是LISP原版的一個子集，她一直是低版本AutoCAD的首選編程語言。她是一種表處理語言，是被解釋執(zhí)行的，任何一個語句鍵入后就能馬上執(zhí)行，她對于交互式的程序開發(fā)非常方便，其缺點是繼承了LISP語言的編程規(guī)則而導(dǎo)致繁多的括號。隨著AutoCAD在數(shù)字化測繪的流行，AutoLISP也隨之成為二次開發(fā)的利器。

隨著AutoCAD版本的演進(jìn)，目前VisualLISP已經(jīng)被完整的集成到AutoCAD 2000以上的版本中，她為開發(fā)者提供了嶄新的、增強(qiáng)的集成開發(fā)環(huán)境，一改過去在AutoCAD中內(nèi)嵌AutoLISP運(yùn)行引擎的機(jī)制，這樣開發(fā)者可以直接使用AutoCAD中的對象和反應(yīng)器，進(jìn)行更底層的開發(fā)。其特點是自身是AutoCAD 2000中默認(rèn)的代碼編輯工具;用她開發(fā)AutoLISP程序的時間被大大的縮短，原始代碼能被保密，以防盜版和被更改;能幫助大家使用ActiveX對象及其事件;使用了流行的有色代碼編輯器和完善的調(diào)試工具，使大家很容易創(chuàng)建和分析LISP程序的運(yùn)行情況。在VisualLISP中新增了一些函數(shù):如基于AutoLISP的ActiveX/COM自動化操作接口;用于執(zhí)行基于AutoCAD內(nèi)部時間的LISP程序的對象反應(yīng)器;新增了能夠?qū)Σ僮飨到y(tǒng)文件進(jìn)行操作的函數(shù)。

在數(shù)字化測繪的世界里，AutoCAD是被廣泛使用的成圖軟件，針對AutoCAD進(jìn)行的二次開發(fā)也廣泛流行，例如被廣泛采用的CASS系統(tǒng)及各種建筑軟件等。而針對不同要求的工程項目，一套普遍適用的軟件總是會在細(xì)小的環(huán)節(jié)表現(xiàn)出不適應(yīng)性，或者說，我們可以通過簡單的編程從細(xì)節(jié)上滿足作業(yè)人員的需要，改善工作表現(xiàn)，提高工作效率。

2 房產(chǎn)測繪工作流程簡介

在房產(chǎn)測繪中，我們需要將外業(yè)中形成的房屋草圖繪制成CAD圖件并加以注記。一般情況下要區(qū)分幾個圖層，線劃層，注記層，權(quán)屬線層等。在紛繁復(fù)雜的圖形中，通過人眼分辨并從多個圖層中分辨并操作正確，在長期的工作中容易導(dǎo)致疲勞并帶來誤操作。我們需要計算機(jī)能夠?qū)μ囟ǖ膱D層中的目標(biāo)進(jìn)行選定和操作。

3 程序?qū)崿F(xiàn)

通過vlide命令我們進(jìn)入到lisp語言的編輯界面中，新建一個lsp文件以供編輯，并保存下來，在今后的工作中通過調(diào)用這個文件來訪問并使用這些命令。在此我們簡要的對自己工作中產(chǎn)生的幾個典型的命令進(jìn)行介紹。

本文討論的程序在AutoCAD 2004版本AutoLISP環(huán)境中運(yùn)行通過。

3.1 查詢指定圖層閉合多段線面積并注記

(defun c:mj(/ s bh mj str p)

(command \"layer\" \"m\" \"5說明注記\" \"\")

(princ \"\plz choose target in layer 3!\")

(command \"osnap\" \"\")

(setq s(entsel))

(if s(progn

(setq s(car s))

(setq bh (cdr (assoc 70 (entget s))))

(redraw s 3)

(if (/= (boole 1 bh 1) 1)(princ \"arget not closed， plz check!\"))

(command \"_area\" \"o\" s)

(setq mj (getvar \"area\"))

(if (= mj 0)(exit))

(setq mj (rtos mj 2 3))

(princ (strcat \"\end in:\" mj \"㎡\"))

(setq str (getstring \"\note:\"))

(setq mj (strcat str \"=\" mj))

(setq p (getpoint \"\point out the point\"))

(if p (progn

(command \"style\" \"standard\" \"宋體\" 0.35 1 \"\" \"\" \"\")

(command \"text\" p 0 mj)

)

)

(redraw s 4)

)

(princ \"\ ** hands up， it's a hold up! **\")

)

(princ)

)

3.2 對注記層面積注記進(jìn)行累加計算

(defun c:zmj()

(princ \"\plz choose numbers in layer 5 to sum\")

(setq s (ssget '((0 . \"text\")(8 . \"5說明注記\"))) total 0)

(if s

(progn

(setq l (sslength s)i 0)

(repeat l

(setq e (ssname s i) i (1+ i)

mj (cdr (assoc 1 (entget e)))

)

(if (vl-string-search \"=\" mj)

(setq mj (atof (substr mj (+ 2 (vl-string-search \"=\" mj)))))

(setq mj (atof mj))

)

(setq total (+ total mj))

)

(princ (rtos total 2 3))

(princ \"\point out the point\")

(setq s3 (ssget '((0 . \"text\")(8 . \"5說明注記\"))))

(if s3 (progn

(setq s(ssname s3 0 ) e (entget s) total (rtos total 2 3) t1 (assoc 1 e))

(if (vl-string-search \"=\" (cdr t1))(setq total (strcat \"S=\" total)))

(setq t2 (cons (car t1) total) e (subst t2 t1 e))

(entmod e)

)

)

)

(princ \"\plz choose text including number!\")

)

(princ)

)

3.3 對測量草圖中的墻厚進(jìn)行注記

(defun c:qh()

(command \"osnap\" \"\")

(setq str (getstring \"\width:\"))

(command \"layer\" \"m\" \"4數(shù)據(jù)注記\" \"\")

(command \"style\" \"standard\" \"宋體\" 0.35 1 \"\" \"\" \"\")

(setq p (getpoint \"point out the point\"))

(command \"text\" \"m\" p \"0\" str)

(command \"circle\" p 0.3)

(princ)

)

4 結(jié)束語

通過思考與實踐，我們能夠使用AutoLISP語言來進(jìn)行相應(yīng)的編程，以適應(yīng)工程項目要求的程序來滿足作業(yè)人員簡化操作，提高工作精度，縮短作業(yè)時間的要求，從而提高生產(chǎn)效率。在工作中，這樣的例子還有很多，我們需要通過不斷的學(xué)習(xí)，思考與實踐來提升效率。

參考文獻(xiàn):

[1] 唐亮，張帆，衛(wèi)朝富.AutoCAD2002開發(fā)教程[M].北京:北京希望電子出版社，2002.

[2] 郭秀娟，于全通，范小鷗.AutoLISP語言程序設(shè)計[M].北京:化學(xué)工業(yè)出版社，2008.