有没有求交点的公式啊，我不想用IntersectWith

zxj_76 · 发表于 2002-12-6 11:06:00

IntersectWith只能求平交点，不能求立交点，我想自己做算法，已知2条线4个端点坐标，求交点坐标，那位高手快来帮帮我！

leeyeafu · 发表于 2002-12-6 12:56:00

设已知四个点为P1，P2，P3，P4，用P1，P2，P3建立UCS(用户坐标系)，得到四个点在新坐标系下坐标(详细方式见本站二次开发VBA专栏)，若P4的Z坐标值不为0，则两条线不共面，无交点。否则用IntersectWith(不用它就麻烦多了，倒也不是不可以)计算交点，根据需要转换回原坐标系。