Finding lines that are not straight.

[keshishian]

Hello,

Attached is a lisp command that moves all "non straight" lines to a new layer. It is very accurate or (not accurate) and moves a lot of good lines to the new layer. Is there a way to:

1- Isolate lines that are between a few degrees of 90 and 270, compare their x coordinates, and if not 0 move to the new layer?

1- Isolate lines that are between a few degree of 0 and 180, compare their y coordinates, and if not 0 move to the new layer?

Any suggestion will be very much appreciated. Application used is AutoCAD 2024 LT

Thank You.

[pullstackautocad]

Help can we just change the color of lines which are orthogonal, i mean not straight . 

color red . so i could figure out the lines @Kent1Cooper 

thankyou

[Kent1Cooper]

If you mean you want the not-quite-orthogonal Lines changed to red color, but not put on a different Layer, then remove or comment out this line:

(command "_layer" "_new" "NotQuiteOrtho" ""); whether or not it exists already
and change this line:

(entmod (append edata (list '(8 . "NotQuiteOrtho") '(62 . 1))))
to just this:

(entmod (append edata (list '(62 . 1))))

[pullstackautocad]

sir can i get the lsp file, i am a begineer, it would be very helpful .... thankyou

[Kent1Cooper]

I would have thought the instructions were easy enough to follow, but see the attached.

[pullstackautocad]

@Kent1Cooper Idk sir bt Maybe not for my 2018 version.

[Kent1Cooper]

It works for me, and I can't imagine the version difference would be why it doesn't for you.  But here's a possibility:  Are those "lines" in your drawing LINE objects specifically?  The routine is not written to work with Polylines, if that's what they are.

If that's not the issue, post your drawing file in which it doesn't work.

[sharpl]

Dear @kentcooper it works, but the out put is  <25 found>, how do we know which ones to fix? The new layer is not formed...