Find segments of a lightweight polyline

[mursix]

I want to select a lightweight polyline and determine which segment of the polyline was picked when selecting. Any ideas would be appreciated.

[Kent1Cooper · Accepted solution]

---

@mursix wrote:

I want to select a lightweight polyline and determine which segment of the polyline was picked when selecting. Any ideas would be appreciated.

---

If by "which segment" you mean you want to know whether it was picked on the first one, or the second one, etc., with a number:

(vl-load-com); if needed
(defun C:PSN (/ plsel); = Polyline Segment Number
  (setq plsel (entsel "\nSelect LWPolyline: "))
  (prompt
    (strcat
      "\nPolyline was selected on segment number "
      (itoa
        (1+
          (fix
            (vlax-curve-getParamAtPoint (car plsel)
              (osnap (cadr plsel) "_nea")
            )
          )
        )
      )
      "."
    )
  )
  (princ)
) 

[mursix]

Yes that will get me what I want. I am an old time lisp programmer and know very little about vla but figured there was a way.

Thank you very much!

[mursix]

This worked great! Exactly what I wanted.

Thanks,

Kent