Help me to start.

[aaryan]

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..

[MSasu]

That looks good, Aaryan. Congratulation!

[aaryan]

Thank You.

[pBe]

I kept my promise.
Thanks to YOU and MIRCEA..

We know you had it in you Aaryan. ,
Good job.

Keep on coding

[aaryan]

Thank You.