軟件開發(fā)論文發(fā)表期刊推薦國(guó)家級(jí)期刊《中國(guó)信息界》，《中國(guó)信息界》雜志由國(guó)家發(fā)展和改革委員會(huì)主管，國(guó)家信息化專家咨詢委員會(huì)指導(dǎo)，國(guó)家信息中心支持，中國(guó)信息協(xié)會(huì)主辦。《中國(guó)信息界》雜志（學(xué)術(shù)版）是以 “宣傳信息化、推進(jìn)信息化”為宗旨；以“學(xué)術(shù)、理論、深度、全面”為鮮明特征；以反映信息化與工業(yè)化融合的大背景下我國(guó)信息化各領(lǐng)域的學(xué)術(shù)研究成果為主要 內(nèi)容；以國(guó)內(nèi)外關(guān)注中國(guó)信息化學(xué)術(shù)研究進(jìn)程和從事信息化的教育、科研、管理等各方面工作的人士為核心讀者的國(guó)家級(jí)權(quán)威學(xué)術(shù)期刊。

　　摘要：本文簡(jiǎn)述了在南方CASS9.0軟件下，軟件自帶功能及AUTOLISP編程實(shí)現(xiàn)地形圖縮編中植被符號(hào)的抽稀方法。

　　關(guān)鍵詞：地形圖,縮編,植被符號(hào),抽稀,骨架線,比例尺,AUTOLISP,編程

　　1引言

　　在城市建設(shè)過程中，各個(gè)部門對(duì)地形圖的比例尺要求也不相同。為了避免重復(fù)測(cè)繪，不同比例尺地形圖通常采用縮編的方法獲得，這樣既經(jīng)濟(jì)又縮短了工期。本文基于南方CASS9.0平臺(tái)，闡述了1：500地形圖縮編為1：2000過程中植被符號(hào)的抽稀方法。

　　2CASS軟件下植被符號(hào)的抽稀方法

　　2.1植被符號(hào)的自動(dòng)縮放和抽稀

　　縮編的第一步是更改比例尺，其步驟為：點(diǎn)擊菜單文件“繪圖處理”中“改變當(dāng)前圖形比例尺”，出現(xiàn)“輸入新比例尺<1:500>1:”后輸入“2000”，出現(xiàn)“是否自動(dòng)改變符號(hào)大小？(1)是(2)否<1>”時(shí)直接回車，文字、圖塊的大小、線形的寬度都由1：500直接改為1：2000的樣式了。

　　骨架線（ASSIST層）是數(shù)字地圖導(dǎo)入GIS的一種概念性數(shù)據(jù)結(jié)構(gòu)和支撐技術(shù)。同時(shí)，也是CASS的一種底層數(shù)據(jù)結(jié)構(gòu)。這種數(shù)據(jù)結(jié)構(gòu)使得CASS的地圖編輯可以直接針對(duì)骨架線進(jìn)行。任何線狀地物或面狀地物，只要骨架線的數(shù)據(jù)（位置等）發(fā)生改變，與骨架線相關(guān)的所有符號(hào)也會(huì)發(fā)生相應(yīng)的改變。

　　植被符號(hào)以塊的形式存在于圖形中，在改變比例尺的過程中，如果植被符號(hào)的骨架線是閉合的，其內(nèi)部的植被符號(hào)圖塊的X、Y、Z比例由原來的0.5改變?yōu)?.0，符號(hào)被整體放大4倍，并按新的間距（1：500符號(hào)間距的4倍）重新布設(shè)符號(hào)，實(shí)現(xiàn)符號(hào)的自動(dòng)抽稀；如果植被符號(hào)的骨架線不閉合或者沒有骨架線，符號(hào)自動(dòng)放大4倍，但符號(hào)的間距還是原來的間距，這種情況下就需要人工處理了。

　　2.2植被符號(hào)的人工抽稀

　　在植被符號(hào)的骨架線不閉合或者沒有骨架線的情況下，改變比例尺后需要人工處理。其方法是：1，骨架線不閉合情況下修改骨架線對(duì)象特性，使其閉合，輸入命令recass及選項(xiàng)S，選中骨架線后點(diǎn)擊鼠標(biāo)右鍵，完成植被符號(hào)的重構(gòu)。2，沒有骨架線的情況下，使用多段線沿植被符號(hào)的最外圍畫線并使其閉合，用相同符號(hào)已有的骨架線刷剛畫的線，使其變?yōu)楣羌芫�，刪除骨架線內(nèi)的符號(hào)，同樣使用命令recass即可。

　　3AUTOLISP編程實(shí)現(xiàn)植被符號(hào)的抽稀方法

　　3.1AUTOLISP語言簡(jiǎn)介

　　LISP(LISTProcossingLanguage)是一種計(jì)算機(jī)的表處理語言，是迄今為止人工智能學(xué)科領(lǐng)域廣泛應(yīng)用的一種程序語言。而AUTOLISP語言是一種嵌在AUTOCAD內(nèi)部的LISP編程語言，它是LISP語言和AUTOCAD的有機(jī)集合的產(chǎn)物，它采用了與LISP語言中的CommonLISP最相近的語法和習(xí)慣約定，它可以直接調(diào)用幾乎全部AUTOCAD命令。

　　3.2程序的實(shí)現(xiàn)

　　在CAD命令行中輸入vlide進(jìn)入到LISP的編輯界面中，新建一個(gè)LSP文件，寫入下列代碼，并保存為fhcx.lsp。

　　(defunc:fhcx()

　　(vl-load-com)

　　(setvar"cmdecho"0)

　　(setvar"osmode"0)

　　(setqblc(getvar"userr1"))

　　(setqblxs(*0.001blc))

　　(setqxzl(-(*0.02blc)1.5))

　　(setqyzl(-(*0.01blc)1.5))

　　(setqs1(entsel"n請(qǐng)選擇一個(gè)植被符號(hào):"))

　　(command"zoom""e""")

　　(setqtyb(entget(cars1)))

　　(setqgjz0(assoc0tyb))

　　(setqtkm(assoc2tyb))

　　(setqtcm(assoc8tyb))

　　(setqglb(listgjz0tcmtkm))

　　(setqs(ssget"x"glb))

　　(setqtygs(sslengths))

　　(setqff(open"d:/坐標(biāo)表.txt""w"))

　　(setqi0)

　　(repeattygs

　　(setqdgtym(ssnamesi))

　　(setqdgtyb(entgetdgtym))

　　(setqzbb(cdr(assoc10dgtyb)))

　　(setqzbx(rtos(carzbb)22))

　　(setqzby(rtos(cadrzbb)22))

　　(setqzbzfq(strcatzbx","zby))

　　(write-linezbzfqff)

　　(setqi(1+i))

　　)

　　(closeff)

　　(command"._erase"s"")

　　(setqtcm1(cdrtcm))

　　(command"layer""s"tcm1"")

　　(setqff(open"d:/坐標(biāo)表.txt""r"))

　　(setqtkmc(strcat(cdrtkm)".dwg"))

　　(setqi0)

　　(while(

　　(setqzbzfq(read-lineff))

　　(setqzfqcd(strlenzbzfq))

　　(setqdhwz(vl-string-search","zbzfq))

　　(setqxzb(atof(substrzbzfq1dhwz)))

　　(setqyzb(atof(substrzbzfq(+dhwz2))))

　　(setqzbb(listxzbyzb))

　　(setqp1(list(-xzbxzl)(-yzbyzl)))

　　(setqp2(list(+xzbxzl)(+yzbyzl)))

　　(setqs(ssget"w"p1p2glb))

　　(if(=snil)

　　(progn

　　(setqp1(list(-xzb3)(-yzb3(*0.01blc))))

　　(setqp2(list(+xzb3)(+yzb3(*0.01blc))))

　　(setqs(ssget"w"p1p2glb))

　　(if(=snil)

　　(command"-insert"tkmczbbblxsblxsblxs))))

　　(setqi(1+i)))

　　(closeff)

　　(command"layer""s"0"")

　　)

　　3.3程序的的使用方法及編程思路

　　3.3.1程序的的使用方法

　　在CAD命令行中輸入appload命令，找到fhcx.lsp文件加載，同時(shí)在啟動(dòng)組中添加此文件即可。在CAD命令行中輸入fhcx回車，選中一個(gè)植被符號(hào)，本圖內(nèi)此類符號(hào)就自動(dòng)進(jìn)行抽稀處理。

　　3.3.2程序的編程思路

　　自動(dòng)獲取本文檔的比例尺，確定插入符號(hào)圖塊的比例及間距；選中一個(gè)植被符號(hào)后將本類別符號(hào)的插入點(diǎn)坐標(biāo)寫入文本文件，然后刪除此類別的植被符號(hào)；依次讀出坐標(biāo)文件，并以此坐標(biāo)點(diǎn)為中心設(shè)置搜索范圍，查找此類別的植被符號(hào)，如果找不到，就以此坐標(biāo)為插入點(diǎn)插入此類別的植被符號(hào)，否則以下一坐標(biāo)點(diǎn)為中心進(jìn)行搜索，直到所有坐標(biāo)點(diǎn)搜索完為止。

　　4結(jié)束語

　　骨架線（ASSIST層）在閉合的情況下，通過改變當(dāng)前圖形的比例尺可以自動(dòng)完成植被符號(hào)的縮放和抽稀；在骨架線（ASSIST層）不閉合或沒有骨架線的情況下，AUTOLISP編程可以快速完成符號(hào)的抽稀，減少人工操作的過程，提高工作效率。

　　參考文獻(xiàn)

　　[1]陳道潔，付守默。AutoLISP及應(yīng)用開發(fā)技術(shù)[M].成都科技大學(xué)出版社，1995。

　　[2]倪曉東。數(shù)字化地形地籍成圖系統(tǒng)CASS9.0參考手冊(cè)[Z].廣東南方數(shù)碼科技有限公司，2010。