home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / BEAM.LSP < prev    next >
Lisp/Scheme  |  1989-09-07  |  1KB  |  37 lines
  1. ;------------------------------ BEAM-END.lsp --------------------------------
  2. ;
  3. ;
  4. ;(c)1988  Gale Gorman, 4016 Meadow Valley Lane, Las Vegas, NV  89107 
  5. ;                        
  6. ;
  7. ;BEAM-END.lsp draws end view of steel beam based on input corresponding
  8. ;    to the AISC Manual
  9. ;
  10. (defun C:BEAM-END (/ p1 d tw bf tf)
  11.     (setvar "blipmode" 0)
  12.     (setvar "osmode" 0)
  13.     (setvar "osmode" 32)
  14.     (setq p1 (getpoint "\nCenter of Top Flange: "))
  15.     (setvar "osmode" 0)
  16.     (setq    d   (getdist "\nd= " )
  17.         tw  (getdist "\ntw= ")
  18.         bf  (getdist "\nbf= ")
  19.         tf  (getdist "\ntf= ")
  20.         p2  (polar p1 PI (/ bf 2))
  21.         p3  (polar p2 (* PI 1.5) tf)
  22.         p8  (polar p1 (* PI 1.5)(/ d 2))
  23.         p5  (polar p8 PI (/ tw 2))
  24.         p4  (list (car p5)(cadr p3))
  25.         p6  (polar p4 PI (/ bf 4))
  26.         p7  (polar p4 (* PI 1.5)(/ d 4))
  27.         p9  (polar p8 PI (/ bf 2))
  28.         p10 (polar p1 0 (/ bf 2))
  29.         p11 (polar p9 (* PI 1.25) tw)
  30.         p12 (polar p10 (/ PI 4) tw))
  31.     (command "line" p1 p2 p3 p4 p5 ""
  32.         "fillet" "r" 0.5 "fillet" p6 p7 ""
  33.         "mirror" "w" p11 p12 ""  p1 p8 "n"
  34.         "mirror" "w" p11 p12 "" p8 p9 "n")
  35.     (setvar "blipmode" 1)
  36.     (prin1)
  37. )