想问问关于直线的问题

holic536 · 发表于 2006-6-6 10:49:00

俺学VBA还没入门，想问问关于直线的问题，请不吝赐教！
1.通过getpoint鼠标拾取一个点后，如何判断此点是否在某条线段上？（或者,如何用鼠标拾取某条直线？）
2.如何判断两条线段的位置关系（相交or平行），若平行，如何得到此平行距离？
不知道我表达清楚了没有
谢谢各位了

fjfhgdwfn · 发表于 2006-6-7 11:15:00

完全是数学问题，看看书就是了。

xinghesnak · 发表于 2006-6-7 11:49:00

1.说实话，前面和后面的要求是不一样的。。如果是后者，就用selection选择一下就行，如果是前者就用IntersectWith属性
2。同样用IntersectWith判断是不是平行。假如平行，就在直线上随便取一点（例如端点）量一下点到直线的距离就行了