怎样获得点到曲线的垂足

earchen

请问在vba中怎样获得一个点到一条曲线的垂足，以进一步获取点到该曲线的最短距离

mccad

可使用vlax 类和curve类模块来解决：

2. Sub GetClosestPoint()
   
3.     'ThisDrawing.SendCommand "(vl-load-com)" & vbCrLf
   
4.     '定义引用曲线类模块
   
5.     Dim ObjCurve As Curve
   
6.     Set ObjCurve = New Curve
   
7.     '获取曲线
   
8.     Dim Pnt As Variant
   
9.     Dim Ent As AcadEntity
   
10.     ThisDrawing.Utility.GetEntity Ent, Pnt, "选择曲线："
    
11.     '亮显刚选定的曲线以方便捕捉曲线上的点
    
12.     Ent.Highlight True
    
13.     '捕捉曲线上的一个点
    
14.     Pnt = ThisDrawing.Utility.GetPoint(, "选择曲线外的一点：")
    
15.     '通过曲线类模块获取曲线距离选取点最近的点
    
16.     Set ObjCurve.Entity = Ent
    
17.     Dim ClosestPnt As Variant
    
18.     ClosestPnt = ObjCurve.GetClosestPointTo(Pnt)
    
19.     '显示曲线长度
    
20.     MsgBox "曲线上距离选取点最近的点坐标为：" & vbCrLf & vbCrLf & ClosestPnt(0) & "," & ClosestPnt(1) & "," & ClosestPnt(2), , "明经通道VBA示例"
    
21.     '取消曲线的亮显
    
22.     Ent.Highlight False
    
23.     '释放变量
    
24.     Set ObjCurve = Nothing
    
25. End Sub
    
26. 
    

Sub GetClosestPoint()<br />     'ThisDrawing.SendCommand "(vl-load-com)" & vbCrLf<br />     '定义引用曲线类模块<br />     Dim ObjCurve As Curve<br />     Set ObjCurve = New Curve<br />     '获取曲线<br />     Dim Pnt As Variant<br />     Dim Ent As AcadEntity<br />     ThisDrawing.Utility.GetEntity Ent, Pnt, "选择曲线："<br />     '亮显刚选定的曲线以方便捕捉曲线上的点<br />     Ent.Highlight True<br />     '捕捉曲线上的一个点<br />     Pnt = ThisDrawing.Utility.GetPoint(, "选择曲线外的一点：")<br />     '通过曲线类模块获取曲线距离选取点最近的点<br />     Set ObjCurve.Entity = Ent<br />     Dim ClosestPnt As Variant<br />     ClosestPnt = ObjCurve.GetClosestPointTo(Pnt)<br />     '显示曲线长度<br />     MsgBox "曲线上距离选取点最近的点坐标为：" & vbCrLf & vbCrLf & ClosestPnt(0) & "," & ClosestPnt(1) & "," & ClosestPnt(2), , "明经通道VBA示例"<br />     '取消曲线的亮显<br />     Ent.Highlight False<br />     '释放变量<br />     Set ObjCurve = Nothing<br /> End Sub<br /> <br />

llikk_love

好好好

szj612

请教明总：
在您所给例中，
    Dim ObjCurve As Curve
    Set ObjCurve = New Curve
Curve在VBA对象模型中找不到，这是为什么？

清风明月名字

可使用vlax 类和curve类模块来解决
老师，你并没有提供这两个类模块啊，电脑运行错误