home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / ANGLE.LSP < prev    next >
Lisp/Scheme  |  1989-09-07  |  1KB  |  42 lines
  1. ;------------------------------ ANGLE.lsp -----------------------------------
  2. ;
  3. ;
  4. ;(c)1988 Gale Gorman, 4016 Meadow Valley Lane, Las Vegas, NV  89107 
  5. ;                        
  6. ;
  7. ;ANGLE.lsp draws end view of steel angle based on input of "Vertical Leg",
  8. ;    "Horizontal Leg", and "Thickness".  You will be asked to "point"
  9. ;    in the general direction you want each leg to point.    
  10. ;
  11. (defun C:ANGLE (/ p1 a1 a2 s1 s2 t)
  12.     (setvar "blipmode" 0) 
  13.     (setvar "osmode" 0)
  14.     (setvar "osmode" 32)
  15.     (setq p1  (getpoint "\nCorner of Angle: "))
  16.     (setvar "osmode" 0)
  17.     (setvar "orthomode" 1)    
  18.     (setq    a1  (getangle p1 "\nPoint Direction of Vertical Leg:")
  19.         a2  (getangle p1 "\nPoint Direction of Horizontal Leg:")
  20.         s1  (getdist "\nSize of Vertical Leg:")
  21.         s2  (getdist "\nSize of Horizontal Leg:")
  22.         t   (getdist "\nThickness:")
  23.         p2  (polar p1 a1 s1)
  24.         p3  (polar p2 a2 t)
  25.         p6  (polar p1 a2 s2)
  26.         p5  (polar p6 a1 t)
  27.         p7  (polar p1 a1 t)
  28.         p8  (polar p1 a2 t)
  29.         p4  (polar p7 a2 t)
  30.         p9  (polar p4 a1 t)
  31.         p10 (polar p4 a2 t)
  32.         p11 (polar p2 a2 (/ t 2))
  33.         p12 (polar p6 a1 (/ t 2)))
  34.     (command "line" p1 p2 p3 p4 p5 p6 "c" 
  35.         "fillet" "r" (/ t 2)
  36.         "fillet" p9 p11
  37.         "fillet" p10 p12 
  38.         "fillet" "r" t 
  39.         "fillet" p9 p10)
  40.     (setvar "blipmode" 1)
  41.     (prin1)
  42. )