home *** CD-ROM | disk | FTP | other *** search
/ HomeWare 14 / HOMEWARE14.bin / autocad / geomtol.arj / ANGLINES.LSP next >
Lisp/Scheme  |  1993-11-17  |  411b  |  12 lines
  1. (defun c:anglines (/ line1 line2)
  2.  (setq line1 (entsel "Please pick first line..."))
  3.  (setq line2 (entsel "Please pick second line..."))
  4.  (/ (* 180 (- (angle (cdr (assoc 10 (entget (car line1))))
  5.                     (cdr (assoc 11 (entget (car line1)))))
  6.              (angle (cdr (assoc 10 (entget (car line2))))
  7.                     (cdr (assoc 11 (entget (car line2)))))
  8.           )
  9.     )
  10.     PI))
  11.  
  12.