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

　　摘要：本文簡述了在南方CASS9.0軟件下，軟件自帶功能及AUTOLISP編程實現地形圖縮編中植被符號的抽稀方法。

　　關鍵詞：地形圖,縮編,植被符號,抽稀,骨架線,比例尺,AUTOLISP,編程

　　1引言

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

　　2CASS軟件下植被符號的抽稀方法

　　2.1植被符號的自動縮放和抽稀

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

　　骨架線（ASSIST層）是數字地圖導入GIS的一種概念性數據結構和支撐技術。同時，也是CASS的一種底層數據結構。這種數據結構使得CASS的地圖編輯可以直接針對骨架線進行。任何線狀地物或面狀地物，只要骨架線的數據（位置等）發生改變，與骨架線相關的所有符號也會發生相應的改變。

　　植被符號以塊的形式存在于圖形中，在改變比例尺的過程中，如果植被符號的骨架線是閉合的，其內部的植被符號圖塊的X、Y、Z比例由原來的0.5改變為2.0，符號被整體放大4倍，并按新的間距（1：500符號間距的4倍）重新布設符號，實現符號的自動抽�。蝗绻�植被符號的骨架線不閉合或者沒有骨架線，符號自動放大4倍，但符號的間距還是原來的間距，這種情況下就需要人工處理了。

　　2.2植被符號的人工抽稀

　　在植被符號的骨架線不閉合或者沒有骨架線的情況下，改變比例尺后需要人工處理。其方法是：1，骨架線不閉合情況下修改骨架線對象特性，使其閉合，輸入命令recass及選項S，選中骨架線后點擊鼠標右鍵，完成植被符號的重構。2，沒有骨架線的情況下，使用多段線沿植被符號的最外圍畫線并使其閉合，用相同符號已有的骨架線刷剛畫的線，使其變為骨架線，刪除骨架線內的符號，同樣使用命令recass即可。

　　3AUTOLISP編程實現植被符號的抽稀方法

　　3.1AUTOLISP語言簡介

　　LISP(LISTProcossingLanguage)是一種計算機的表處理語言，是迄今為止人工智能學科領域廣泛應用的一種程序語言。而AUTOLISP語言是一種嵌在AUTOCAD內部的LISP編程語言，它是LISP語言和AUTOCAD的有機集合的產物，它采用了與LISP語言中的CommonLISP最相近的語法和習慣約定，它可以直接調用幾乎全部AUTOCAD命令。

　　3.2程序的實現

　　在CAD命令行中輸入vlide進入到LISP的編輯界面中，新建一個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請選擇一個植被符號:"))

　　(command"zoom""e""")

　　(setqtyb(entget(cars1)))

　　(setqgjz0(assoc0tyb))

　　(setqtkm(assoc2tyb))

　　(setqtcm(assoc8tyb))

　　(setqglb(listgjz0tcmtkm))

　　(setqs(ssget"x"glb))

　　(setqtygs(sslengths))

　　(setqff(open"d:/坐標表.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:/坐標表.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文件加載，同時在啟動組中添加此文件即可。在CAD命令行中輸入fhcx回車，選中一個植被符號，本圖內此類符號就自動進行抽稀處理。

　　3.3.2程序的編程思路

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

　　4結束語

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

　　參考文獻

　　[1]陳道潔，付守默。AutoLISP及應用開發技術[M].成都科技大學出版社，1995。

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