Finding wrong lines in a drawing

[X11start]

Sometimes we think that a drawing is correct, instead we do not realize that the lines that compose it are not perfectly horizontal / vertical or have a length with a dot (not integer). I made this lisp just to find these errors.
By selecting the design, the design is recreated and the lines are colored:

 

- Cyan Line Correct rotation and length (whole or half cm)
- Green Line Rotation correct but incorrect length (2 or + decim. after dot)

 

- Magenta Line Slightly incorrect rotation (< 1°) and correct length
- Red Line Slightly wrong rotation (< 1°) and wrong length

 

- Blue Line Rotation any (visible <> from 0-90-180-270) and length. correct
- Yellow Line Rotation any and wrong length

 

As you can see, the door and the left window have wrong lines.
The roof has a blue and yellow color as the lines clearly have a rotation greater than 1 °.

PS.
The design of this house is the project I made .... when I was 4 years old! ;)

VERIFLINE.LSP

[tombu]

They had CAD when you were four, you're making me feel old!

I was in my twenties when CAD first came out. To do survey calculations when I started we had a choice of either a 5 place logarithm book or a 7 place one, either could be interpolated two more places. I didn't think it could ever get better when Texas Instruments first released a calculator with trig functions on it.

[X11start]

It was a joke that of 4 years of age, made for how complex the drawing was: I have passed half a century..

[Dadgad]

34 minutes ago, X11start said:

It was a joke that of 4 years of age, made for how complex the drawing was: I have passed half a century..

Just once?  You're still young then. 

[X11start]

 

Would someone experienced in VL-xxx know how to improve my lisp?VERIFLINE.dwg

Edited August 16, 2021 by X11start