home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / may94cad.zip / TIP978.LSP < prev    next >
Text File  |  1994-04-25  |  808b  |  35 lines
  1. ; TIP978.LSP: ABL.LSP   Angle Between Two Lines    (c)1994, C.D. Iddings
  2.  
  3. (defun C:ABL ()
  4. (setvar "cmdecho" 0)
  5.  
  6. (defun *error* (msg)
  7. (princ "error : ")
  8. (princ msg)
  9. (terpri)
  10. )
  11.  
  12. (setq L1 (entsel "\nFor Angle Between Lines:-- Select First Line: ")
  13.       LW1 (entget (car L1))
  14.       P11 (cdr (assoc 10 LW1))
  15.       P21 (cdr (assoc 11 LW1))
  16.       W1 (angle P11 P21)
  17.       L2 (entsel "\nSelect Second Line: ")
  18.       LW2 (entget (car L2))
  19.       P12 (cdr (assoc 10 LW2))
  20.       P22 (cdr (assoc 11 LW2))
  21.       W2 (angle P12 P22)
  22.       W (abs (- W1 W2)))
  23. (if (> W pi)(setq W (- W pi)))
  24. (setq W (* W (/ 180 pi))
  25.        WC (- 180 W)
  26.        A (min W WC)
  27.        C (max W WC))
  28. (prompt " Angle is = ")
  29. (prompt (rtos A 2 4))
  30. (prompt "  ** 180 - Angle is = ")
  31. (prompt (rtos C 2 4))
  32. (princ)
  33. )
  34. 
  35.