获取最近的交点
(setq PT1 (vlax-curve-getPointAtDist BotObj stepLength))(setq PT2
(vlax-curve-getClosestPointTo
UpperObj PT1)
)
(setq Xline (vlax-invoke acSp 'AddXLine PT1 PT2))
(setq PT2 (vlax-invokeXline 'IntersectWith UpperObj 0))
好的，这是代码的一部分，我得到了一条线通过两条线的交点-BotObj和UpperObj
有时将PT2设置为另一个交点。
如何确保PT2是距离PT1最近的“UpperObj”交点？？ 我假设您可能知道（距离pt1 pt2），然后比较其他两个点？
页:
[1]