get closest intersection point

[Gringo]

    (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))

 

Ok this is part of a code i got to get the intersection point of a line through two lines - BotObj & UpperObj

 

it is sometimes setting the the PT2 as the further intersection point.

 

How do i make sure PT2 is the closest intersection point of 'UpperObj' from PT1??

[borgunit]

I assume you may know of (DISTANCE pt1 pt2) and then compare between two other points?