- (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-invoke Xline 'IntersectWith UpperObj 0))
好的,这是代码的一部分,我得到了一条线通过两条线的交点-BotObj和UpperObj
有时将PT2设置为另一个交点。
如何确保PT2是距离PT1最近的“UpperObj”交点?? |