毕业设计求助----VBA坝体稳定性分析

matrix

各位高手好，我是一个刚学VBA的菜鸟，现在老师让我做坝体的稳定性分析，是在坝体上任选一点，然后在等高线上每隔一定角度值批量画垂直线，然后比较每条线的长度，求出最短的那条，然后在AutoCAD上面标注长度，并显示该直线，我做的VBA界面如下，请哪位高手给指点一下代码如何编写，

-----

《浆砌石拱坝设计规范》规定，拱座的抗滑稳定安全系数的计算公式采用下式：

K=(Nּf+Cּl)/Q

N=HAcosθ-VAsinθ

Q= HAsinθ+VAcosθ

式中：K为抗滑稳定安全系数；采用安全系数的控制指标为基本荷载组合 K≥3.0；N为垂直于滑动方向的法向力；Q为沿滑动方向的滑动力；l为滑裂面的抗剪长度；f为抗剪断摩擦系数；C为抗剪断凝聚力；HA为拱座处轴力；VA为拱座处剪力；θ为滑裂面与拱座径向面的夹角。取单位拱高对不同高程的两岸拱端分别假定不同的θ角进行坝肩稳定计算

主要的研究内容是：对于坝址区地质情况复杂，地形条件苛刻，特别是两岸坝肩岩体存在断层、裂隙、节理、软弱夹层，当坝肩承受拱座传来的推力后，两岸坝肩具有抗滑稳定问题。取单位拱高对不同高程的两岸拱端分别假定不同的滑裂面与拱座径向面的夹角，然后通过CAD系统自动在地形图上量得滑裂面的抗剪长度自动进行坝肩稳定计算

研究与设计方法是：

1. 利用VBA计算机语言设计界面；

2. 通过CAD系统自动在地形图上量得滑裂面的抗剪长度进行

3. 利用拱座的抗滑稳定安全系数的计算公式计算抗滑稳定安全系数

4. 编程计算找出不同的滑裂面与拱座径向面的夹角对应的最小抗滑稳定安全系数，即为抗滑稳定安全系数。

我做的东西就是每隔不同的夹角θ从坝体某一点向等高线引垂直线，即抗剪长度，批量画线，然后比较长度，得出最小长度，并标注，然后在CAD中显示最优直线，其他直线擦除，

图如下

matrix

选坝顶一点已做好， 现在只差选等高线和画抗剪长度线以及比较然后标注了，那位高手有时间帮忙编一下啊