gaich 发表于 2002-10-7 11:17:00

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

本帖最后由 作者 于 2002-10-7 11:17:47 编辑

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

cag 发表于 2002-10-3 16:06:00

cag

我也遇到了这个问题！！

maowenhui 发表于 2002-10-9 11:34:00

我是自己编的，用该点与pline的端点作为三角形，用三角形面积公式求高

gaich 发表于 2002-10-9 16:53:00

楼上的兄弟,能说详细点吗?

maowenhui 发表于 2002-10-9 23:00:00

看看例子

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 发表于 2002-10-10 11:25:00

可是PLine的另外两个点怎么取,不知道该取哪两个点的坐标?

页: [1]
查看完整版本: 有没有取 点到PLine最近距离的函数?