Delete Arc segments

[Jozi68]

I need a lisp routine that can take a long polyline and delete all the arc segments, thus leaving multiple shorter polylines (all consisting only of straight segments).

 

Can anyone help me with this please?

[MSasu]

Not sure there is really needed a custom tool; you may achieve that by built-in commands:

• Explode the said polyline.
  
• Call QSELECT and use an appropriate filter to select all arcs.
  
• Delete previous selected arcs.
  
• Call PEDIT in Multiple mode and select all remaining segments; next use Join option with 0.0 as Fuzz factor to rebuild the desired polylines.
  

For sure, it may help to isolate the polyline into a temporary layer to don't interfere with other geometry; use LAYMRG when done to move result in its appropriate layer.

[Tharwat]

Upload an example of a sample drawing to showing before and after .

[pBe]

I guess the OP meant by long polyline is multiple segment polylines with arc segments

This is enough i think:

 

command: _.pedit

PEDIT Select polyline or [Multiple]:

Enter an option [Close/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype gen/Reverse/Undo]: D

[MSasu]

I believe that OP was looking to discard the arc segments and keep only the intermediate straight parts as multiple polylines; your solution pBe will convert them into lines, thus preserving one entity.

If the arc segments were easy visually recognizable (that it, not too close to a line appearance) and in reasonable number, then may get rid of them by TRIM, too.

[pBe]

I believe that OP was looking to discard the arc segments and keep only the intermediate straight parts as multiple polylines;...

 

Hmmn, I guess you are right Msasu, good point