home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
GR
/
GR505.ZIP
/
LSP.EXE
/
BOLT.LSP
< prev
next >
Wrap
Text File
|
1988-09-24
|
6KB
|
2 lines
(DEFUN Qj(Q@)(* Q@(/ PI 180.0)))(DEFUN QQ(Ql)(* Ql(/ 180.0 PI)))(DEFUN C:BOLTE()(SETQ Q&(+ 0.57735))(COMMAND"setvar""cmdecho""0")(TEXTSCR)(PROMPT"\n 8 10 1/4 5/16 3/8 7/16 1/2 5/8")(PROMPT"\n 3/4 7/8 1.000 1.125 1.250 1.375 1.500 1.750")(IF(= Q1 NIL)(SETQ Q1"Choose Size"))(PRINC"\n Nominal size of Bolt <")(PRINC Q1)(PROMPT"> ")(SETQ Q#(GETSTRING" "))(IF(/= Q#"")(SETQ Q1 Q#))(GRAPHSCR)(COMMAND"setvar""osmode""32")(SETQ Q0(GETPOINT"\nStart Position of Bolt Head "))(COMMAND"setvar""osmode""512")(SETQ Q$(GETPOINT"\nDirection of Bolt Head "Q0))(COMMAND"setvar""osmode""0")(SETQ QO(ANGLE Q0 Q$))(SETQ Q|(-(QQ QO)90.0))(SETQ Q%(+(QQ QO)))(SETQ Q?j(+(QQ QO)90))(SETQ Qjj(-(QQ QO)90))(SETQ Q@j(-(QQ QO)180))(SETQ QQj(ASSOC Q1 Qlj))(SETQ QQj(CDR QQj)Q&j(CAR QQj)Q1j(CADR QQj))(SETQ Q#j(* Q&j Q& 2.0))(SETQ Q0j(*(/ Q&j 2.0)Q&))(SETQ Q$j(* Q0j 2.0))(SETQ QOj(*(- Q#j Q&j)Q&))(SETQ Q|j(- Q1j QOj))(SETQ Q%j(POLAR Q0(Qj Q?j)(/ Q#j 2.0)))(SETQ Q?@(POLAR Q%j(Qj Qjj)Q#j))(SETQ Qj@(POLAR Q?@(Qj Q%)Q|j))(SETQ Q@@(POLAR Q?@(Qj Q?j)Q0j))(SETQ QQ@(POLAR Q@@(Qj Q%)Q|j))(SETQ Ql@(POLAR Q@@(Qj Q?j)Q$j))(SETQ Q&@(POLAR Ql@(Qj Q%)Q|j))(SETQ Q1@(POLAR Q%j(Qj Q%)Q|j))(SETQ Q#@(POLAR Q%j(Qj Qjj)(/ Q0j 2.0)))(SETQ Q0@(POLAR Q#@(Qj Q%)Q1j))(SETQ Q$@(POLAR Q?@(Qj Q?j)(/ Q0j 2.0)))(SETQ QO@(POLAR Q$@(Qj Q%)Q1j))(SETQ Q|@(POLAR Q0(Qj Q%)Q1j))(SETQ Q%@(POLAR Q?@(Qj Q%)Q1j))(COMMAND"line"Q%j Q?@ Qj@"")(COMMAND"line"Q@@ QQ@"")(COMMAND"line"Ql@ Q&@"")(COMMAND"line"Q%j Q1@"")(COMMAND"line"Q0@ QO@"")(COMMAND"arc"Qj@ QO@ QQ@)(COMMAND"arc"QQ@ Q|@ Q&@)(COMMAND"arc"Q&@ Q0@ Q1@)(COMMAND"setvar""osmode""32")(COMMAND"setvar""cmdecho""1"))(SETQ Qlj(quote (("8"0.34375 0.125 0.500 0.045 0.34375 0.125)("10"0.375 0.125 0.5625 0.045 0.375 0.125)("1/4"0.4375 0.171875 0.734375 0.071 0.500 0.250)("5/16"0.500 0.21875 0.875 0.071 0.5625 0.314)("3/8"0.5625 0.25 1.0 0.071 0.6875 0.377)("7/16"0.625 0.296875 1.125 0.071 0.750 0.441)("1/2"0.750 0.34375 1.250 0.112 0.875 0.504)("5/8"0.9375 0.421875 1.750 0.112 1.0625 0.631)("3/4"1.125 0.50 2.000 0.112 1.250 0.758)("7/8"1.3125 0.578125 2.250 0.174 1.4375 0.885)("1.000"1.5 0.671875 2.500 0.174 1.625 1.012)("1.125"1.6875 0.75 2.750 0.174 1.8125 1.139)("1.250"1.875 0.84375 3.000 0.174 2.0 1.251)("1.375"2.0625 0.90625 3.250 0.174 2.1875 1.378)("1.500"2.250 1.000 3.500 0.266 2.375 1.505)("1.750"2.625 1.196 4.000 0.266 2.750 1.759))))(DEFUN C:BOLTP()(COMMAND"setvar""cmdecho""0")(TEXTSCR)(PROMPT"\n 8 10 1/4 5/16 3/8 7/16 1/2 5/8 3/4")(PROMPT"\n 7/8 1.000 1.125 1.250 1.375 1.500 1.750")(IF(= Q1 NIL)(SETQ Q1"Choose Size"))(PRINC"\n Nominal size of Bolt <")(PRINC Q1)(PROMPT"> ")(SETQ Q#(GETSTRING" "))(IF(/= Q#"")(SETQ Q1 Q#))(COMMAND"setvar""osmode""32")(GRAPHSCR)(SETQ Q0(GETPOINT"\nCenter of Bolt Head "))(SETQ QQj(ASSOC Q1 Qlj))(SETQ QQj(CDR QQj)Q&j(CAR QQj)Q1j(CADR QQj))(COMMAND"circle"Q0(/ Q&j 2.0))(COMMAND"polygon""6"Q0"c"(/ Q&j 2.0))(COMMAND"setvar""cmdecho""1"))(DEFUN C:WASHE()(COMMAND"setvar""cmdecho""0")(SETQ Q&(+ 0.57735))(TEXTSCR)(PROMPT"\n 8 10 1/4 5/16 3/8 7/16 1/2 5/8 3/4")(PROMPT"\n 7/8 1.000 1.125 1.250 1.375 1.500 1.750")(IF(= Q1 NIL)(SETQ Q1"Choose Size"))(PRINC"\n Nominal size of Bolt <")(PRINC Q1)(PROMPT"> ")(SETQ Q#(GETSTRING" "))(IF(/= Q#"")(SETQ Q1 Q#))(COMMAND"setvar""osmode""32")(GRAPHSCR)(SETQ Q0(GETPOINT"\nStart Position of Washer "))(COMMAND"setvar""osmode""512")(SETQ Q$(GETPOINT"\nDirection of Washer "Q0))(COMMAND"setvar""osmode""0")(SETQ QO(ANGLE Q0 Q$))(SETQ Q|(-(QQ QO)90.0))(SETQ Q%(+(QQ QO)))(SETQ Q?j(+(QQ QO)90))(SETQ Qjj(-(QQ QO)90))(SETQ Q@j(-(QQ QO)180))(SETQ QQj(ASSOC Q1 Qlj))(SETQ QQj(CDR QQj)Q&j(CADDR QQj)Q1j(CADDDR QQj))(SETQ Q?Q Q&j)(SETQ QjQ Q1j)(SETQ Q%j(POLAR Q0(Qj Q?j)(/ Q?Q 2.0)))(SETQ Q?@(POLAR Q%j(Qj Qjj)Q?Q))(SETQ Qj@(POLAR Q?@(Qj Q%)QjQ))(SETQ Q@@(POLAR Qj@(Qj Q?j)Q?Q))(SETQ QQ@(POLAR Q@@(Qj Q@j)QjQ))(COMMAND"pline"Q%j"W""0""0"Q?@ Qj@ Q@@ QQ@"")(COMMAND"setvar""osmode""32")(COMMAND"setvar""cmdecho""1"))(DEFUN C:WASHP()(COMMAND"setvar""cmdecho""0")(SETQ Q&(+ 0.57735))(TEXTSCR)(PROMPT"\n 8 10 1/4 5/16 3/8 7/16 1/2 5/8 3/4")(PROMPT"\n 7/8 1.000 1.125 1.250 1.375 1.500 1.750")(IF(= Q1 NIL)(SETQ Q1"Choose Size"))(PRINC"\n Nominal size of Bolt <")(PRINC Q1)(PROMPT"> ")(SETQ Q#(GETSTRING" "))(IF(/= Q#"")(SETQ Q1 Q#))(COMMAND"setvar""osmode""32")(GRAPHSCR)(SETQ Q0(GETPOINT"\nCenter Position of Washer "))(COMMAND"setvar""osmode""0")(SETQ QQj(ASSOC Q1 Qlj))(SETQ QQj(CDR QQj)Q&j(CADDR QQj)Q1j(CADDDR QQj))(SETQ Q?Q Q&j)(SETQ QjQ Q1j)(COMMAND"circle"Q0"d"Q?Q)(COMMAND"setvar""osmode""32")(COMMAND"setvar""cmdecho""1"))(DEFUN C:NUTE()(SETQ Q&(+ 0.57735))(COMMAND"setvar""cmdecho""0")(TEXTSCR)(PROMPT"\n 8 10 1/4 5/16 3/8 7/16 1/2 5/8 3/4")(PROMPT"\n 7/8 1.000 1.125 1.250 1.375 1.500 1.750")(IF(= Q1 NIL)(SETQ Q1"Choose Size"))(PRINC"\n Nominal size of Bolt <")(PRINC Q1)(PROMPT"> ")(SETQ Q#(GETSTRING" "))(IF(/= Q#"")(SETQ Q1 Q#))(GRAPHSCR)(COMMAND"setvar""osmode""32")(SETQ Q0(GETPOINT"\nStart Position of Nut Head "))(COMMAND"setvar""osmode""512")(SETQ Q$(GETPOINT"\nDirection of Nut Head "Q0))(COMMAND"setvar""osmode""0")(SETQ QO(ANGLE Q0 Q$))(SETQ Q|(-(QQ QO)90.0))(SETQ Q%(+(QQ QO)))(SETQ Q?j(+(QQ QO)90))(SETQ Qjj(-(QQ QO)90))(SETQ Q@j(-(QQ QO)180))(SETQ QQj(ASSOC Q1 Qlj))(SETQ QQj(CDR QQj)Q@Q(CAR(CDR(CDDDR QQj)))QQQ(CAR(CDDR(CDDDR QQj))))(SETQ Q#j(* Q@Q Q& 2.0))(SETQ Q0j(*(/ Q@Q 2.0)Q&))(SETQ Q$j(* Q0j 2.0))(SETQ QOj(*(- Q#j Q@Q)Q&))(SETQ Q|j(- QQQ QOj))(SETQ Q%j(POLAR Q0(Qj Q?j)(/ Q#j 2.0)))(SETQ QlQ(POLAR Q%j(Qj Q%)QOj))(SETQ Q?@(POLAR Q%j(Qj Qjj)Q#j))(SETQ Q&Q(POLAR Q?@(Qj Q%)QOj))(SETQ Qj@(POLAR Q?@(Qj Q%)Q|j))(SETQ Q@@(POLAR Q?@(Qj Q?j)Q0j))(SETQ QQ@(POLAR Q@@(Qj Q%)Q|j))(SETQ Ql@(POLAR Q@@(Qj Q?j)Q$j))(SETQ Q&@(POLAR Ql@(Qj Q%)Q|j))(SETQ Q1@(POLAR Q%j(Qj Q%)Q|j))(SETQ Q#@(POLAR Q%j(Qj Qjj)(/ Q0j 2.0)))(SETQ Q0@(POLAR Q#@(Qj Q%)QQQ))(SETQ Q$@(POLAR Q?@(Qj Q?j)(/ Q0j 2.0)))(SETQ QO@(POLAR Q$@(Qj Q%)QQQ))(SETQ Q|@(POLAR Q0(Qj Q%)QQQ))(SETQ Q%@(POLAR Q?@(Qj Q%)QQQ))(SETQ Q1Q(POLAR Ql@(Qj Q%)QOj))(SETQ Q#Q(POLAR Q@@(Qj Q%)QOj))(COMMAND"line"Q#@ Q$@"")(COMMAND"line"Q&Q Qj@"")(COMMAND"line"Q#Q QQ@"")(COMMAND"line"Q1Q Q&@"")(COMMAND"line"QlQ Q1@"")(COMMAND"line"Q0@ QO@"")(COMMAND"arc"Qj@ QO@ QQ@)(COMMAND"arc"QQ@ Q|@ Q&@)(COMMAND"arc"Q&@ Q0@ Q1@)(COMMAND"arc"Q&Q Q$@ Q#Q)(COMMAND"arc"Q#Q Q0 Q1Q)(COMMAND"arc"Q1Q Q#@ QlQ)(COMMAND"setvar""osmode""32")(COMMAND"setvar""cmdecho""1"))
