Request: LISP that rolls out a polyline

[YasserMahran]

Hi all, I was looking for a lisp that takes a polyline like this: (of course it's in a single line, but segments are colored for clarifiying purposes):

and outputs segments of straight line like this:

[Kent1Cooper · Accepted solution]

This came up in December.  Look here.

[YasserMahran]

Excellent! however for I noticed that it ignores small segments (<0.2), take this polyline as an example, the segment I put the dimension on won't come up when the lisp is applied:

[Kent1Cooper · Accepted solution]

---

@YasserMahran wrote:

.... it ignores small segments (<0.2), take this polyline as an example, the segment I put the dimension on won't come up when the lisp is applied:

---

You probably have running Object Snap on, and the short segment's new end is within Osnap distance from the last point.  Either turn running Osnap off [the routine can also be made to do that for you], or change this line:

    (command (polar (getvar 'lastpoint) 0 (car lengths)))

to this:

    (command "_none" (polar (getvar 'lastpoint) 0 (car lengths)))