#AUTOCAD LISP ORTHO CODE#

(set (read (strcat 'vp' (itoa count))) (cdr a)) (foreach a (entget(ssname(ssget ':s:e') 0)) So is there a better way to read angles, or is it just one of the limitations to live with. I have seen enough wonky waterlevels in my time, but never a piece of bent string affecting a plumbline. I know Autocad has a problem with large numbers and I could probably cap the values by rounding to 'x' amount of decimal places, but I just like to work with absolutes and my OCD doesn't like a square not being square.

#AUTOCAD LISP ORTHO CODE#

If I draw a rectangle locked to the UCS with ortho on and run the code everything is fine, but if I then rotate that rectangle the code fails, using undo it works again but using rotate with a now negative (same typed value) the code still fails.

both equal to 90В° (actually equal to each other but thats fine), it worksВ great until objects are rotated and then the math seems to fail. I'm trying to create a routine to check that wall ends are square ie.

Autocad lisp ortho