Hello, it is possible to touch any point of a POLY and capture the coordinates of the 2 points of that segment of the POLY❓❓

[duke]

Hello again friends ‼‼
I have a doubt if it is possible to touch a POLY and somehow capture the coordinates of the 2 vertices that make up the segment where I touched the POLY. I don't know if I explain myself. I am attaching an image for greater understanding.
And thank you very much in advance ‼‼‼‼‼

[Jonathan Handojo]

Yes, it's possible:

 

(defun c:foo ( / pl pm)
    (and
        (setq pl (entsel "\nSelect polyline <exit>: "))
        (progn
            (setq pm (vlax-curve-getParamAtPoint (car pl) (vlax-curve-getClosestPointTo (car pl) (trans (cadr pl) 1 0))))
            (princ
                (list
                    (vlax-curve-getpointatparam (car pl) (fix pm))
                    (vlax-curve-getpointatparam (car pl) (1+ (fix pm)))
                )
            )
        )
    )
    (princ)
)

 

[duke]

1 hour ago, Jonathan Handojo said:

Yes, it's possible:

 

(defun c:foo ( / pl pm)
    (and
        (setq pl (entsel "\nSelect polyline <exit>: "))
        (progn
            (setq pm (vlax-curve-getParamAtPoint (car pl) (vlax-curve-getClosestPointTo (car pl) (trans (cadr pl) 1 0))))
            (princ
                (list
                    (vlax-curve-getpointatparam (car pl) (fix pm))
                    (vlax-curve-getpointatparam (car pl) (1+ (fix pm)))
                )
            )
        )
    )
    (princ)
)

 

Bro,, you save meeeee ‼‼‼‼‼
THANKS ‼‼‼‼‼