home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / CUDT.LSP < prev    next >
Text File  |  1988-03-01  |  4KB  |  118 lines
  1. ; My "Can You Draw This?" routine
  2. ; Paul Nance (919)226-3648
  3. ;Set-up
  4. (defun c:CAD ()
  5.   (setvar "BLIPMODE" 0)
  6.   (setvar "CMDECHO" 0)
  7.   (setvar "LUNITS" 2)
  8.   (setvar "LUPREC" 4)
  9.   (setvar "FILLETRAD" 0)
  10.   (command "STYLE" "T1" "COMPLEX" ".12" "1.5" "-30" "" "" "")
  11.   (command "STYLE" "T2" "COMPLEX" ".12" "1.5" "30" "" "" "")
  12.   (command "STYLE" "T3" "COMPLEX" ".12" "1.5" "30" "" "" "")
  13.   (command "LAYER" "N" "2" "C" "2" "2" "S" "2" "")
  14.   (command "SETVAR" "LIMMIN" "0,0" )
  15.   (command "SETVAR" "LIMMAX" "3,2.5" )
  16.   (command "ZOOM" "A" )
  17.   (setq sp '(0.4000 0.0800)
  18.         rp '(0.8330 1.0800)
  19.         p1 '(0.1835 0.4550)
  20.         p2 '(0.4000 0.3300)
  21.         w1 '(0.0 0.0)
  22.         w2 '(0.75 0.60)
  23.         f1 '(0.24 2.00)
  24.         f2 '(0.56 2.00)
  25.         e1 '(0.56 1.61)
  26.         b1 '(0.61 1.70)
  27.         b2 '(0.61 1.58)
  28.        aw1 '(0.0 0.45)
  29.        aw2 '(0.8 1.7)
  30.        ar1 '(0.23 0.49)
  31.        ar2 '(0.56 0.49)
  32.        ar3 '(0.45 1.61)
  33.        cc1 '(1.13 0.95)
  34.        cc2 '(1.55 1.07)
  35.         c1 '(1.32 0.67)
  36.         c2 '(1.37 0.76)
  37.        mw1 '(0.0 0.0)
  38.        mw2 '(1.67 2.28)
  39.         m1 '(1.64 0.86)
  40.        mm1 '(1.699 0.83)
  41.        mm2 '(1.699 1.08)
  42.         t1 '(0.32 0.63)
  43.         t2 '(0.32 1.01)
  44.         t3'(0.32 1.38)
  45.         t4 '(0.64 1.57)
  46.         t5 '(0.97 1.38)
  47.         t6 '(1.29 1.19)
  48.         t7 '(1.94 0.82)
  49.         t8 '(2.27 0.63)
  50.         t9 '(2.92 1.01)
  51.        t10 '(2.92 0.63)
  52.        t11 '(2.92 0.26)
  53.        t12 '(2.38 1.60)
  54.        t13 '(2.70 1.79)
  55.        t14 '(3.03 1.97)
  56.        t15 '(0.70 1.79)
  57.        t16 '(1.02 1.60)
  58.        t17 '(1.35 1.41)
  59.        t18 '(1.67 1.22)
  60.        t19 '(2.00 1.04)
  61.        t20 '(2.32 0.85)
  62.        t21 '(3.08 1.38)
  63.        t22 '(3.08 1.01)
  64.        t23 '(3.08 0.63)
  65.        t24 '(3.08 0.26)
  66.         l1 '(1.564 1.111)
  67.         l2 '(1.616 1.081)
  68.         l3 '(1.590 0.957)
  69.         l4 '(1.616 0.943)
  70.         l5 '(1.586 1.020)
  71.         l6 '(1.586 1.098)
  72.         l7 '(1.593 0.955)
  73.         l8 '(1.593 1.094))
  74. ; DRAW SHAPE
  75.   (command "LINE" SP "@.25<150" "@.25<90" "@.25<330" "C" )
  76.   (command "LINE" P1 "@.125<30" "")
  77.   (command "MIRROR" "W" W1 W2 "" SP P2 "" )
  78.   (command "ARRAY" "W" W1 W2 "" "R" "5" "" ".375")
  79.   (command "FILLET" F1 F2 )
  80.   (command "ERASE" E1 "" )
  81.   (command "BREAK" "END" B1 "@.125<90")
  82.   (command "BREAK" "END" B1 "@.125<210")
  83.   (command "BREAK" "END" B2 "@.125<210")
  84.   (command "BREAK" "END" B2 "@.125<270")
  85.   (command "ARRAY" "W" AW1 AW2 "R" AR1 AR2 AR3 "" "P" RP "3" "" "")
  86.   (command "COPY" "C" CC1 CC2  C1 C2 "" RP "@.375<30" )
  87.   (command "MIRROR" "W" MW1 MW2 M1 "" MM1 MM2 "")
  88. ; DRAW TEXT
  89.   (command "TEXT" "S" "T1" "M" T1 "330" "M" )
  90.   (command "TEXT" "M" T2 "" "I")
  91.   (command "TEXT" "M" T3 "" "J")
  92.   (command "TEXT" "M" T4 "" "D")
  93.   (command "TEXT" "M" T5 "" "E")
  94.   (command "TEXT" "M" T6 "" "S")
  95.   (command "TEXT" "M" T7 "" "G")
  96.   (command "TEXT" "M" T8 "" "N")
  97.   (command "TEXT" "M" T9 "" "R")
  98.   (command "TEXT" "M" T10 "" "&")
  99.   (command "TEXT" "M" T11 "" "D")
  100.   (command "TEXT" "M" T12 "30" "S")
  101.   (command "TEXT" "M" T13 "" "E")
  102.   (command "TEXT" "M" T14 "" "A")
  103.   (command "TEXT" "S" "T2" "M" T15 "330" "D")
  104.   (command "TEXT" "M" T16 "" "O")
  105.   (command "TEXT" "M" T17 "" "B")
  106.   (command "TEXT" "M" T18 "" "S")
  107.   (command "TEXT" "M" T19 "" "O")
  108.   (command "TEXT" "M" T20 "" "N")
  109.   (command "TEXT" "S" "T3" "M" T21 "30" "A")
  110.   (command "TEXT" "M" T22 "" "C")
  111.   (command "TEXT" "M" T23 "" "A")
  112.   (command "TEXT" "M" T24 "" "D")
  113.   (command "LINE" L1 L2 "")
  114.   (command "LINE" L3 L4 "")
  115.   (command "LINE" L5 L6 "")
  116.   (command "LINE" L7 L8 "")
  117. )
  118.