Is it possible to delete all straights polylines with lisp ?

[sergiu_ciuhnenco]

can not find a lisp for deleting all the straights polylines .
I think is posible in 2 ways , to find all polyline that contains only 3 verticle, or to select all and deselect the polylines that contains arc.
Thanks in advance !!!
 

Test.dwg

[sergiu_ciuhnenco]

(ssget "_X" '((0 . "*POLYLINE") (-4 . "<") (90 . 3)))
this is how I found to select all polylines less than 3 vertex

 

[devitg]

(command "_erase" (ssget "_X" '((0 . "*POLYLINE") (-4 . "<") (90 . 3))) "")

 

[devitg]

no straight polys.dwg

[Steven P]

So this will delete polylines with 2 points, straight be default, but not one with more points that are in a straight line.

 

I think you have to entget each polyline (via ssget), and examine if any has a value for code 42, curve. and discard them, of if you want just a straight line I think you would have to work out the angle between adjacent pairs of points, if they are all the same it is a straight line

[devitg]

As sergiu_ciuhnenco state the SSGET filter by less than 3 vertex , it seem to be he knows that it is sufficient.  

[sergiu_ciuhnenco]

Thanks " devitg ", like you mentioned is sufficient for me that you write !!!
accepted like solution !
Thanks one more time !
Very receptive community !!!