利用EXCEL VBA編程實現符號的大比例尺縮編

【摘 要】在城市宏觀規劃和土地管理領域，越來越需要小比例尺的地形圖，如何將一般的1：500和1：1000地形圖進行縮編經常會困擾著制圖工作人員。文章另覓他途，采用EXCEL VBA新穎的編程方法來解決子圖符號的縮編問題，供大家參考。

【關鍵詞】大比例尺縮編；EXCEL；VBA

隨著近幾年來我國經濟持續快速發展，城市化進程不斷加快。在城市宏觀規劃和土地管理的領域，小比例尺的地形圖有了用武之地。一般的城市測繪比例尺以1：500和1：1000為主，而在有些場合，我們卻需要1：2000等略小比例尺的地形來表達更大的區域，達到便于打印和攜帶等作用。

大比例尺縮編這項工作，各測繪單位都會有涉及，南方CASS軟件在這方面也有了比較完善的功能，但是平常工作中數據源各式各樣，并不一定符合CASS的標準格式。對于這種情況，筆者另覓他途，通過EXCEL VBA編程的手段來實現地形符號的縮編。

一、數據的導出

（1）我們首先將要縮編的地形導入Section軟件（一種MAPGIS的增強版），其中需要保證每個符號都要以點文件導入，如果有符號未以點文件形式保存，可以通過編輯轉換文本，對應符號庫來解決。地形圖轉換好后，再進行比例尺修改。一般來說，當將原有1：500地形圖縮編成1：2000地形圖時，地形圖上未經處理的子圖符號會顯得十分密集，圖面負載超標，嚴重影響了美觀。

（2）在Section里對需要進行縮編的子圖符號文件進行點位置轉屬性的操作。

進行操作：輔助工具—>導入導出功能—>點位置轉屬性。這步操作的作用是，將子圖符號的位置信息儲存在子圖符號的屬性里面。……