Help me to start.

Hi pBe,

Below code I am using for my daily use..

(defun c:InqPoly ()
 (vl-load-com)
     (setq Kproute (car (entsel "\nSelect polyline Route:")))
     (setq Ppoint (getpoint "\nSpecify point:"))
     (setq dist (if (vlax-curve-getDistAtPoint Kproute Ppoint)
               (vlax-curve-getDistAtParam Kproute
                  (vlax-curve-getParamAtPoint  Kproute Ppoint))
    (vlax-curve-getDistAtPoint Kproute (vlax-curve-getClosestPointTo  Kproute Ppoint))))
 (setq offst (distance (vlax-curve-getClosestPointTo  Kproute Ppoint) Ppoint))
 (princ (strcat "\nKP on this point is: " (rtos dist 2 3) " " "Offset is:" (rtos offst 2 3)))
       (princ)
     )

I kept my promise.

Thanks to YOU and MIRCEA..

That looks good, Aaryan. Congratulation!

Thank You.

I kept my promise.

Thanks to YOU and MIRCEA..

We know you had it in you Aaryan. ,

Good job.

Keep on coding

Thank You.