Distance point to polyline

[Steven P]

Good afternoon,

 

Hope this is a quick one, I want to check if a point that a user has selected is on a polyline or not. I am sure this is dead simple and there -should- be a copy and paste solution out there, be grateful if anyone has something they can share..... if not subtle hints are also good and a great way for me to learn a bit more.

 

The polyine will have been selected with a single click ssget: (setq obj1 (ssget "_:S" '((0 . "LWPOLYLINE"))) )

 

Thanks

[Tharwat]

You can use the function vlax-curve-getclosestpointto to check if the distance between the picked point and closest point to object is equal to zero then its on otherwise its not.

 

[Steven P]

Perfect, thanks.

[devitg]

On 8/2/2022 at 9:25 AM, Tharwat said:

You can use the function vlax-curve-getclosestpointto to check if the distance between the picked point and closest point to object is equal to zero then its on otherwise its not.

 

Which System variable hold the point where the user do the SSGET ?

(setq obj1 (ssget "_:S" '((0 . "LWPOLYLINE"))) )

 

For Entsel is known 

 

(setq point ( cdr (entsel "\n Select an entitytie" )))

Thanks in advance 

[mhupp]

5 minutes ago, devitg said:

Which System variable hold the point where the user do the SSGET

 

(defun C:test ()
  (setq ss (ssget "_:S" '((0 . "LWPOLYLINE"))))
  (ssnamex ss)
)

http://docs.autodesk.com/ACD/2011/ENU/filesALR/WS1a9193826455f5ff1a32d8d10ebc6b7ccc-6933.htm

[devitg]

Ok , got it . A new one .

 

(defun C:test ()
  (setq ss (ssget "_:S" '((0 . "LWPOLYLINE"))))
(setq point (last (last(car (ssnamex ss)))))

)