I copied this code from http://www.cadtutor.net/forum/showthread.php?t=47619&page=4
I thought I selected all but I guess I missed it. Look at comment #38
I promise your name is on this code. I've never claimed to know lisp
I did clip out
- (angle (trans p1 1 0) (trans p2 1 0)) ;; modified by Reid b.
|