home *** CD-ROM | disk | FTP | other *** search
/ HomeWare 14 / HOMEWARE14.bin / autocad / geomtol.arj / SHCS.LSP < prev    next >
Text File  |  1993-06-11  |  2KB  |  57 lines
  1. ; CREATED BY ANTONE M. SILVIA - 06/11/93
  2. ; REM PSHCS CREATES PLAN VIEW
  3. ; REM TSHCS CREATES TOP VIEW
  4.  
  5. (DEFUN C:PSHCS (/ INP ANGLE NOM LENGTH P1 P2 P3 P4 P5 P6 P7 P8 P9
  6.             P10 P11 P12 P13 P14 P15 P16 P17 P18 P19
  7.             P20 P21 P22 P23 P24)
  8.     (SETQ NOM (GETREAL "PLEASE ENTER THE NOMINAL SIZE: "))
  9.     (SETQ LENGTH (GETREAL "PLEASE ENTER THE LENGTH: "))
  10.     (SETQ ANGLE (GETREAL "PLEASE ENTER THE ROTATION ANGLE: "))
  11.     (SETQ INP (GETPOINT "PLEASE PICK INSERTION POINT: "))
  12.     (SETQ ANGLE (/ (* ANGLE PI) 180))
  13.     (SETQ P1 (POLAR INP (- ANGLE (/ PI 2)) (/ NOM 2)))
  14.     (SETQ P2 (POLAR INP (- ANGLE (/ PI 2)) (* NOM 0.75)))
  15.     (SETQ P3 (POLAR P2 (+ ANGLE PI) (- NOM 0.04)))
  16.     (SETQ P4 (POLAR P3 (+ ANGLE (* PI 0.75)) 0.056))
  17.     (SETQ P6 (POLAR P3 (+ ANGLE (/ PI 2)) (* NOM 1.5)))
  18.     (SETQ P5 (POLAR P6 (- ANGLE (* PI 0.75)) 0.056))
  19.     (SETQ P7 (POLAR P6 ANGLE (- NOM 0.04)))
  20.     (SETQ P8 (POLAR INP (+ ANGLE (/ PI 2)) (/ NOM 2)))
  21.     (SETQ P23 (POLAR P1 ANGLE (/ NOM 2)))
  22.     (SETQ P24 (POLAR P8 ANGLE (/ NOM 2)))
  23.     (SETQ P9 (POLAR P8 ANGLE LENGTH))
  24.     (SETQ P12 (POLAR P1 ANGLE LENGTH))
  25.     (SETQ P10 (POLAR P9 (- ANGLE (/ PI 4)) 0.056))
  26.     (SETQ P11 (POLAR P12 (+ ANGLE (/ PI 4)) 0.056))
  27.     (SETQ P13 (POLAR INP (+ ANGLE PI) (+ NOM 0.3)))
  28.     (SETQ P14 (POLAR INP ANGLE (+ LENGTH 0.3)))
  29.     (SETQ P15 (POLAR P23 (+ ANGLE (/ PI 2)) 0.06))
  30.     (SETQ P16 (POLAR P12 (+ ANGLE (/ PI 2)) 0.06))
  31.     (SETQ P17 (POLAR P24 (- ANGLE (/ PI 2)) 0.06))
  32.     (SETQ P18 (POLAR P9 (- ANGLE (/ PI 2)) 0.06))
  33.     (SETQ P19 (POLAR P4 (+ ANGLE (/ PI 2)) (* NOM 0.325)))
  34.     (SETQ P22 (POLAR P5 (- ANGLE (/ PI 2)) (* NOM 0.325)))
  35.     (SETQ P20 (POLAR P19 ANGLE (/ NOM 2)))
  36.     (SETQ P21 (POLAR P22 ANGLE (/ NOM 2)))
  37.     (COMMAND "LINE" P2 P3 P6 P7 P2 "")
  38.     (COMMAND "LINE" P1 P8 P9 P12 P1 "")
  39.     (COMMAND "LINE" P3 P4 P5 P6 "")
  40.     (COMMAND "LINE" P9 P10 P11 P12 "")
  41.     (COMMAND "LINE" P23 P24 "")
  42.     (COMMAND "LINE" P15 P16 "")
  43.     (COMMAND "CHANGE" "L" "" "P" "LA" "HID" "")
  44.     (COMMAND "LINE" P17 P18 "")
  45.     (COMMAND "CHANGE" "L" "" "P" "LA" "HID" "")
  46.     (COMMAND "PLINE" P19 P20 P21 P22 "")
  47.     (COMMAND "CHANGE" "L" "" "P" "LA" "HID" "")
  48.     (COMMAND "LINE" P13 P14 "")
  49.     (COMMAND "CHANGE" "L" "" "P" "LA" "CEN" ""))
  50.  
  51. (DEFUN C:TSHCS (/ INP NOM)
  52.     (SETQ NOM (GETREAL "PLEASE ENTER THE NOMINAL SIZE: "))
  53.     (SETQ INP (GETPOINT "PLEASE PICK INSERTION POINT: "))
  54.     (COMMAND "CIRCLE" INP "D" (* NOM 1.5))
  55.     (COMMAND "CIRCLE" INP "D" (- (* NOM 1.5) 0.1))
  56.     (COMMAND "POLYGON" "6" INP "C" (* NOM 0.375)))
  57.