CAD VBA测量断面智能坡度提取。

CAD VBA一条直线和部分等高线相交截取断面

想实现的内容：通过这条直线与等高线的交点计算坡度，在坡度较大地方内插坐标点拟合该点的高程值，这样就实现了断面的智能坡度提取。

求编程大佬协助，有偿。