CAD地形圖矢量化后處理程序

CAD地形圖矢量化后處理程序采用基于AutoCAD的VBA編寫，能夠?qū)σ呀?jīng)矢量化的地形圖中的散點、等高線進行快速賦值。

首先需啟動AutoCAD 2000+及本程序
散點自動賦值：程序自動搜索離散點最近的文本作為散點高程
1、點擊散點自動賦值按鈕，程序?qū)⑶袚Q到CAD
2、選擇一個或多個散點、散點文本，散點個數(shù)與散點高程個數(shù)應相等，散點可以是多段線、圓、圓弧、橢圓、塊、圓環(huán)幾種CAD對象
3、程序?qū)⒃谏Ⅻc到散點高程之間連線，并出現(xiàn)如下對話框，根據(jù)提示選擇是或否，程序?qū)��?zhí)行相應的操作。
　

等高線等差賦值：程序?qū)⒏鶕?jù)首根等高線高程、等高距對順序選擇的多根等高線依次賦值
1、點擊等高線等差賦值按鈕，程序?qū)⑶袚Q到CAD
2、根據(jù)等高線高程大小，點選或Fence方法選擇一根或多根等高線
3、程序?qū)�對等高線等差賦值。

等高線高程相等：
1、點選或Fence方法選擇一根或多根【需賦值的等高線】，步驟2僅選擇1根時，步驟1可以采用任意方法選擇，無需順序選擇。
2、點選或Fence方法選擇一根或多根與【需賦值的等高線】高程對應相等的等高線，也可僅選擇一根等高線，步驟1選擇的等高線將全部與這根等高線高程相等。
3、程序?qū)�對等高線賦值。