地形圖縮編中植被符號的抽稀方法

1、地形圖縮編中植被符號的抽稀方法 摘要：本文簡述了在南方CASS9.0軟件下，軟件自帶功能及AUTOLISP編程實現(xiàn)地形圖縮編中植被符號的抽稀方法。 關(guān)鍵詞：地形圖；縮編；植被符號；抽??；骨架線；比例尺；AUTOLISP；編程 Abstract: This paper describes in the South CASS9.0 software, software function and AUTOLISP programming topographic map generalization of vegetation sparse symbolic approach. Keywords: t

2、opographic map; generalization; vegetation symbols; thinning; skeleton; scale; AUTOLISP; programming 中圖分類號： P284 文獻標(biāo)識碼：A 文章編號：2095-2104（2013） 1 引言 在城市建設(shè)過程中，各個部門對地形圖的比例尺要求也不相同。為了避免重復(fù)測繪，不同比例尺地形圖通常采用縮編的方法獲得，這樣既經(jīng)濟又縮短了工期。本文基于南方CASS9.0平臺，闡述了1：500地形圖縮編為1：2000過程中植被符號的抽稀方法。 2CASS軟件下植被符號的抽稀方法 2.1植被符號的自動縮放和抽稀

3、縮編的第一步是更改比例尺，其步驟為：點擊菜單文件 “繪圖處理”中 “改變當(dāng)前圖形比例尺”， 出現(xiàn)“輸入新比例尺1:”后輸入“2000”， 出現(xiàn)“是否自動改變符號大?。?1)是 (2)否 ”時直接回車，文字、圖塊的大小、線形的寬度都由1：500直接改為1：2000的樣式了。 骨架線（ASSIST層）是數(shù)字地圖導(dǎo)入GIS的一種概念性數(shù)據(jù)結(jié)構(gòu)和支撐技術(shù)。同時，也是CASS的一種底層數(shù)據(jù)結(jié)構(gòu)。這種數(shù)據(jù)結(jié)構(gòu)使得CASS的地圖編輯可以直接針對骨架線進行。任何線狀地物或面狀地物，只要骨架線的數(shù)據(jù)（位置等）發(fā)生改變，與骨架線相關(guān)的所有符號也會發(fā)生相應(yīng)的改變。 植被符號以塊的形式存在于圖形中，在改變比例尺的過程

4、中，如果植被符號的骨架線是閉合的，其內(nèi)部的植被符號圖塊的X、Y、Z比例由原來的0.5改變?yōu)?.0，符號被整體放大4倍，并按新的間距（1：500符號間距的4倍）重新布設(shè)符號，實現(xiàn)符號的自動抽??；如果植被符號的骨架線不閉合或者沒有骨架線，符號自動放大4倍，但符號的間距還是原來的間距，這種情況下就需要人工處理了。 2.2植被符號的人工抽稀 在植被符號的骨架線不閉合或者沒有骨架線的情況下，改變比例尺后需要人工處理。其方法是：1，骨架線不閉合情況下修改骨架線對象特性，使其閉合，輸入命令recass及選項S，選中骨架線后點擊鼠標(biāo)右鍵，完成植被符號的重構(gòu)。2，沒有骨架線的情況下，使用多段線沿植被符號的最外圍

5、畫線并使其閉合，用相同符號已有的骨架線刷剛畫的線，使其變?yōu)楣羌芫€，刪除骨架線內(nèi)的符號，同樣使用命令recass即可。 AUTOLISP編程實現(xiàn)植被符號的抽稀方法 3.1AUTOLISP語言簡介 LISP (LISTProcossing Language)是一種計算機的表處理語言，是迄今為止人工智能學(xué)科領(lǐng)域廣泛應(yīng)用的一種程序語言。而AUTOLISP語言是一種嵌在AUTOCAD內(nèi)部的LISP編程語言，它是LISP語言和AUTOCAD的有機集合的產(chǎn)物，它采用了與LISP語言中的Common LISP 最相近的語法和習(xí)慣約定，它可以直接調(diào)用幾乎全部AUTOCAD 命令。 3.2程序的實現(xiàn) 在CAD命令

6、行中輸入vlide進入到LISP的編輯界面中，新建一個LSP文件，寫入下列代碼，并保存為fhcx.lsp。 (defun c:fhcx () (vl-load-com) (setvar "cmdecho" 0) (setvar "osmode" 0) (setq blc (getvar "userr1") (setq blxs (* 0.001 blc) (setq xzl (- (* 0.02 blc) 1.5) (setq yzl (- (* 0.01 blc) 1.5) (setq s1 (entsel "n請選擇一個

7、植被符號:") (command "zoom" "e" "") (setq tyb (entget(car s1) (setq gjz0 (assoc 0 tyb) (setq tkm (assoc 2 tyb) (setq tcm (assoc 8 tyb) (setq glb (list gjz0 tcm tkm) (setq s (ssget "x" glb ) (setq tygs (sslength s) (setq ff (open "d:/坐標(biāo)表.txt" "w

8、") (setq i 0) (repeat tygs (setq dgtym (ssname s i) (setq dgtyb (entget dgtym) (setq zbb (cdr (assoc 10 dgtyb) (setq zbx (rtos (car zbb) 2 2) (setq zby (rtos (cadr zbb) 2 2) (setq zbzfq (strcat zbx "," zby) (write-line zbzfq ff) (setq i (1+ i) ) (close ff) (command"._erase"

9、s "" ) (setq tcm1 (cdr tcm) (command "layer" "s" tcm1 "") (setq ff (open "d:/坐標(biāo)表.txt" "r") (setq tkmc (strcat (cdr tkm) ".dwg") (setq i 0) (while (< i tygs) (setq zbzfq (read-line ff) (setq zfqcd (strlen zbzfq) (setq dhwz (vl-s

10、tring-search "," zbzfq) (setq xzb (atof (substr zbzfq 1 dhwz) (setq yzb (atof (substr zbzfq (+ dhwz 2) (setq zbb (list xzb yzb) (setq p1 (list (- xzb xzl) (- yzb yzl) (setq p2 (list (+ xzb xzl) (+ yzb yzl) (setq s (ssget "w" p1 p2 glb ) (if (= s nil) (progn (setq p1 (list (- xzb

11、3) (- yzb 3 (* 0.01 blc) (setq p2 (list (+ xzb 3) (+ yzb 3 (* 0.01 blc) (setq s (ssget "w" p1 p2 glb ) (if (= s nil) (command "-insert" tkmc zbb blxs blxs blxs) (setq i (1+ i) (close ff) (command "layer" "s" 0 "") ) 3.3 程序的的使用方法及編程思路 3.3.1 程序的的使用方法 在

12、CAD命令行中輸入appload命令，找到fhcx.lsp文件加載，同時在啟動組中添加此文件即可。在CAD命令行中輸入fhcx回車，選中一個植被符號，本圖內(nèi)此類符號就自動進行抽稀處理。 3.3.2 程序的編程思路 自動獲取本文檔的比例尺，確定插入符號圖塊的比例及間距；選中一個植被符號后將本類別符號的插入點坐標(biāo)寫入文本文件，然后刪除此類別的植被符號；依次讀出坐標(biāo)文件，并以此坐標(biāo)點為中心設(shè)置搜索范圍，查找此類別的植被符號，如果找不到，就以此坐標(biāo)為插入點插入此類別的植被符號，否則以下一坐標(biāo)點為中心進行搜索，直到所有坐標(biāo)點搜索完為止。 4結(jié)束語 骨架線（ASSIST層）在閉合的情況下，通過改變當(dāng)前圖形的