有没有取 点到PLine最近距离的函数?

gaich

我想在PLine上插入一个Block,该插入点怎么能确定在线上?
ThisDrawing.Utility.GetEntity ReturnObj, insPoint, "选择插入点:"
该函数中的insPoint并不在ReturnObj(线)上,而是在线的附近,怎么能让insPoint是线上的点?
还有,怎么能让PLine在insPonint被打断?
不知道我说没说清楚,谢谢大家了,帮个忙吧!
祝大家节日玩的高兴,可惜我要加班呀.

cag

我也遇到了这个问题！！

maowenhui

gaich

maowenhui

Function d_ptol(pt As Variant, line As AcadLine) As Double
Dim a As Double
Dim b As Double
Dim c As Double
Dim l As Double
a = distance(pt, line.startPoint)
b = distance(pt, line.endPoint)
c = line.Length
l = (a + b + c) / 2
d_ptol = 2# * (l * (l - a) * (l - b) * (l - c)) ^ 0.5 / c
End Function

distance(pt, line.startPoint)表示点到点的距离

gaich