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 >
Wrap
Text File
|
1988-03-01
|
4KB
|
118 lines
; My "Can You Draw This?" routine
; Paul Nance (919)226-3648
;Set-up
(defun c:CAD ()
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(setvar "LUNITS" 2)
(setvar "LUPREC" 4)
(setvar "FILLETRAD" 0)
(command "STYLE" "T1" "COMPLEX" ".12" "1.5" "-30" "" "" "")
(command "STYLE" "T2" "COMPLEX" ".12" "1.5" "30" "" "" "")
(command "STYLE" "T3" "COMPLEX" ".12" "1.5" "30" "" "" "")
(command "LAYER" "N" "2" "C" "2" "2" "S" "2" "")
(command "SETVAR" "LIMMIN" "0,0" )
(command "SETVAR" "LIMMAX" "3,2.5" )
(command "ZOOM" "A" )
(setq sp '(0.4000 0.0800)
rp '(0.8330 1.0800)
p1 '(0.1835 0.4550)
p2 '(0.4000 0.3300)
w1 '(0.0 0.0)
w2 '(0.75 0.60)
f1 '(0.24 2.00)
f2 '(0.56 2.00)
e1 '(0.56 1.61)
b1 '(0.61 1.70)
b2 '(0.61 1.58)
aw1 '(0.0 0.45)
aw2 '(0.8 1.7)
ar1 '(0.23 0.49)
ar2 '(0.56 0.49)
ar3 '(0.45 1.61)
cc1 '(1.13 0.95)
cc2 '(1.55 1.07)
c1 '(1.32 0.67)
c2 '(1.37 0.76)
mw1 '(0.0 0.0)
mw2 '(1.67 2.28)
m1 '(1.64 0.86)
mm1 '(1.699 0.83)
mm2 '(1.699 1.08)
t1 '(0.32 0.63)
t2 '(0.32 1.01)
t3'(0.32 1.38)
t4 '(0.64 1.57)
t5 '(0.97 1.38)
t6 '(1.29 1.19)
t7 '(1.94 0.82)
t8 '(2.27 0.63)
t9 '(2.92 1.01)
t10 '(2.92 0.63)
t11 '(2.92 0.26)
t12 '(2.38 1.60)
t13 '(2.70 1.79)
t14 '(3.03 1.97)
t15 '(0.70 1.79)
t16 '(1.02 1.60)
t17 '(1.35 1.41)
t18 '(1.67 1.22)
t19 '(2.00 1.04)
t20 '(2.32 0.85)
t21 '(3.08 1.38)
t22 '(3.08 1.01)
t23 '(3.08 0.63)
t24 '(3.08 0.26)
l1 '(1.564 1.111)
l2 '(1.616 1.081)
l3 '(1.590 0.957)
l4 '(1.616 0.943)
l5 '(1.586 1.020)
l6 '(1.586 1.098)
l7 '(1.593 0.955)
l8 '(1.593 1.094))
; DRAW SHAPE
(command "LINE" SP "@.25<150" "@.25<90" "@.25<330" "C" )
(command "LINE" P1 "@.125<30" "")
(command "MIRROR" "W" W1 W2 "" SP P2 "" )
(command "ARRAY" "W" W1 W2 "" "R" "5" "" ".375")
(command "FILLET" F1 F2 )
(command "ERASE" E1 "" )
(command "BREAK" "END" B1 "@.125<90")
(command "BREAK" "END" B1 "@.125<210")
(command "BREAK" "END" B2 "@.125<210")
(command "BREAK" "END" B2 "@.125<270")
(command "ARRAY" "W" AW1 AW2 "R" AR1 AR2 AR3 "" "P" RP "3" "" "")
(command "COPY" "C" CC1 CC2 C1 C2 "" RP "@.375<30" )
(command "MIRROR" "W" MW1 MW2 M1 "" MM1 MM2 "")
; DRAW TEXT
(command "TEXT" "S" "T1" "M" T1 "330" "M" )
(command "TEXT" "M" T2 "" "I")
(command "TEXT" "M" T3 "" "J")
(command "TEXT" "M" T4 "" "D")
(command "TEXT" "M" T5 "" "E")
(command "TEXT" "M" T6 "" "S")
(command "TEXT" "M" T7 "" "G")
(command "TEXT" "M" T8 "" "N")
(command "TEXT" "M" T9 "" "R")
(command "TEXT" "M" T10 "" "&")
(command "TEXT" "M" T11 "" "D")
(command "TEXT" "M" T12 "30" "S")
(command "TEXT" "M" T13 "" "E")
(command "TEXT" "M" T14 "" "A")
(command "TEXT" "S" "T2" "M" T15 "330" "D")
(command "TEXT" "M" T16 "" "O")
(command "TEXT" "M" T17 "" "B")
(command "TEXT" "M" T18 "" "S")
(command "TEXT" "M" T19 "" "O")
(command "TEXT" "M" T20 "" "N")
(command "TEXT" "S" "T3" "M" T21 "30" "A")
(command "TEXT" "M" T22 "" "C")
(command "TEXT" "M" T23 "" "A")
(command "TEXT" "M" T24 "" "D")
(command "LINE" L1 L2 "")
(command "LINE" L3 L4 "")
(command "LINE" L5 L6 "")
(command "LINE" L7 L8 "")
)