Trim to polyline midpoint when selecting unwanted polyline half

[stephenhicks.sub]

Hello. Is there a command that trims to a polyline midpoint when selecting an unwanted polyline half?

Thank you.

[Kent1Cooper · Accepted solution]

---

@stephenhicks.sub wrote:

.... Is there a command that trims to a polyline midpoint when selecting an unwanted polyline half? ....

---

If you can be counted on to select it in an unambiguous location [where nothing else might be "seen" instead], something like this [minimally tested]:

(defun C:PLCHO ; = PolyLine Cut Half Off
  (/ plsel)
  (setq plsel (entsel "\nSelect Polyline within half-length to be cut off: "))
  (command "_.lengthen" "_total"
    (/ (vlax-curve-getDistAtParam (car plsel) (vlax-curve-getEndParam (car plsel))) 2)
    (cadr plsel) ""
  ); command
  (princ)
); defun

[stephenhicks.sub]

That's it! Thanks, Kent.

[Sea-Haven]

As length is a property can also do this way.

Thanks Kent learn something new all the time "Lengthen"

(command "_.lengthen" "_total"
    (/ (vlax-get (vlax-ename->vla-object (car plsel)) 'Length) 2)
    (cadr plsel) ""
  ); command

[ВeekeeCZ]

Yes, one of my favorites commands. The command also has the "percent" option...

(defun c:PLCHO ()
  (command "_.lengthen" "_percent" 50)
  (princ)
  )

[Sea-Haven]

Nice % and pick a side to remove.

[lena.talkhina]

Hello @stephenhicks.sub !

Great to see you here on LISP forum.

And you already received a solution! This is awesome!

Don't hesitate to ask any question you have by creating a new thread.