AD的VBA编写,能够对已经矢量化的地形图中的散点、等高线进行快速赋值。首先需启动AutoCAD2000+及本程序散点自动赋值:程序自动搜索离散点最近的文本作为散点高程1、点击散点自动赋值按钮,程序将切换到CAD2、选择一个或多个散点、散点文本,散点个数与散点高程个数应相等,散点可以是多段线、圆、圆弧、椭圆、块、圆环几种CAD对象3、程序将在散点到散点高程之间连线,并出现如下对话框,根据提示选择是或否,程序将执行相应的操作。 等高线等差赋值:程序将根据首根等高线高程、等高距对顺序选择的多根等高线依次赋值1、点击等高线等差赋值按钮,程序将切换到C