;;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;; Developer Notes ;;;; ;;;; How these functions work goes as follows ;;;; 1. Select the Fastener you want to look up ;;;; 2. Input the Subtype, Size, Length, and thread information (unless it's washers or pins) ;;;; 3. The function will compile a list of part numbers and set it to a global list variable ;;;; ;;;; You could break down the thread search all the way to TPI, but these are just examples ;;;; ;;;; Listings: ;;;; *PN-List-Ferry-Bolts* Ferry Bolts / 12 point bolts ;;;; *PN-List-Hex-Bolts* Hex Bolts ;;;; *PN-List-Hex-Nuts* Hex Nuts ;;;; *PN-List-Pins* Pins ;;;; *PN-List-Set-Screws* Set Screws ;;;; *PN-List-Shoulder-Bolts* Shoulder Bolts ;;;; *PN-List-Socket-Bolts* Socket Bolts ;;;; *PN-List-Washers* Washers ;;;; ;;;; Version 2.4 ;;;; Date March 30, 2017 ;;;; Developer - Chris Palmer ;;;; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% (in-package :custom) (use-package :oli) ;;;; =================================================================================================================== ;;;; These are for the listing of graphite partnumbers sorted by the generators ;;;; =================================================================================================================== (defvar *PN-List-Ferry-Bolts* nil) (defvar *PN-List-Hex-Bolts* nil) (defvar *PN-List-Hex-Nuts* nil) (defvar *PN-List-Pins* nil) (defvar *PN-List-Set-Screws* nil) (defvar *PN-List-Shoulder-Bolts* nil) (defvar *PN-List-Socket-Bolts* nil) (defvar *PN-List-Washers* nil) (defvar *Fastener-Thread-List* nil) ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;;;%%%%%%%%%% Define the bolt threads by class numbers %%%%%%%%%%%%%%%%%%%%%%%%%%%% **NOTE ** %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;;;%%%%%%%%%% 1 = UNEF 2 = UNF 3 = UN 4 = UNC 5 = UNS %%%%%%%% Classes 6-10 have the same dimension measurements as 1-5. The %%%% ;;;;;%%%%%%%%%% 6 = UNREF 7 = UNRF 8 = UNR 9 = UNRC 10 = UNRS %%%%%%%% only difference is that these are the roounded thread versions %%% ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;;;%%%%%%%%%% Compile the list of available part numbers for each fastener class %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;; =================================================================================================================== (defun sd-compile-fastener-partnumbers-ferry-bolts (Type Thread Size Length) ;;;; =================================================================================================================== ;;Reset the Range to nil (setq *PN-List-Ferry-Bolts* nil) ;;Print out the variables (setf BType (cond ((= Type 1) "Partial")(t "Full") ) ThdFam (cond ((= Thread 1)"UNEF") ((= Thread 2)"UNF") ((= Thread 3)"UN") ((= Thread 4)"UNC") ((= Thread 5)"UNS") ((= Thread 6)"UNREF")((= Thread 7)"UNRF")((= Thread 8)"UNR")((= Thread 9)"UNRC")((= Thread 10)"UNRS") ) );setf (print (format nil "~% Compiling Fastener Information~% >> Bolt Type - ~A~% >> Thread Family - ~A~% >> Thread Size - ~A~% >> Bolt Length - ~A" BType ThdFam Size Length )) ;;Now go get the part numbers (cond ((= Type 1)(cond ;;Ferry-Bolt-Partial ((= Thread X)(cond; ((= Size 0.2500)(cond;;1/4 ((= Length 1.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/2 ((= Length 1.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;1-11/16 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 1.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/2 ((= Length 1.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;1-11/16 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 1.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/2 ((= Length 1.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;1-11/16 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2") ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8") ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 1.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/2 ((= Length 1.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;1-11/16 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2") ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8") ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1/2 ((= Size 0.5625)(cond;;9/16 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;9/16 ((= Size 0.6250)(cond;;5/8 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1-1/2 (t (setq *PN-List-Ferry-Bolts* nil)) ));cond-Thread (t (setq *PN-List-Ferry-Bolts* nil)) ));cond-Type ((= Type 2)(cond ;;Ferry-Bolt-Full ((= Thread X)(cond; ((= Size 0.2500)(cond;;1/4 ((= Length 1.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/2 ((= Length 1.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;1-11/16 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 1.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/2 ((= Length 1.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;1-11/16 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 1.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/2 ((= Length 1.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;1-11/16 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2") ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8") ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 1.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;1-1/2 ((= Length 1.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;1-11/16 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2") ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8") ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1/2 ((= Size 0.5625)(cond;;9/16 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;9/16 ((= Size 0.6250)(cond;;5/8 ((= Length 1.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 2.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 2.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 2.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 3.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 3.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 3.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;3-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 3.6875)(setq *PN-List-Ferry-Bolts* (list "")) );;3-11/16 ((= Length 3.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;7 ((= Length 7.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Ferry-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;8 ((= Length 8.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;8-1/2 ((= Length 9.0000)(setq *PN-List-Ferry-Bolts* (list "")) );;9 ((= Length 9.5000)(setq *PN-List-Ferry-Bolts* (list "")) );;9-1/2 ((= Length 10.000)(setq *PN-List-Ferry-Bolts* (list "")) );;10 ((= Length 10.500)(setq *PN-List-Ferry-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Ferry-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Ferry-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Ferry-Bolts* (list "")) );;11-1/2 ((= Length 12.000)(setq *PN-List-Ferry-Bolts* (list "")) );;12 ((= Length 12.500)(setq *PN-List-Ferry-Bolts* (list "")) );;12-1/2 ((= Length 13.000)(setq *PN-List-Ferry-Bolts* (list "")) );;13 ((= Length 13.500)(setq *PN-List-Ferry-Bolts* (list "")) );;13-1/2 ((= Length 13.750)(setq *PN-List-Ferry-Bolts* (list "")) );;13-3/4 ((= Length 14.000)(setq *PN-List-Ferry-Bolts* (list "")) );;14 (t (setq *PN-List-Ferry-Bolts* nil)) ));;1-1/2 (t (setq *PN-List-Ferry-Bolts* nil)) ));cond-Thread (t (setq *PN-List-Ferry-Bolts* nil)) ));cond-Type (t (setq *PN-List-Ferry-Bolts* nil)) );cond ;;Print out the part number listing (print (format nil "~% Here are the Ferry Bolt Listing - ~% ~A" *PN-List-Ferry-Bolts*)) );defun ;;;; =================================================================================================================== (defun sd-compile-fastener-partnumbers-hex-bolts (Type Thread Size Length) ;;;; =================================================================================================================== ;;Reset the Range to nil (setq *PN-List-Socket-Bolts* nil) ;;Print out the variables (setf BType (cond ;((= Type 1)"Collar Bolt - Partial") ((= Type 2)"Collar Bolt - Full") ((= Type 3)"Hex Bolt - Partial") ((= Type 4)"Hex Bolt - Full") ((= Type 5)"Heavy Hex Bolt - Partial") ((= Type 6)"Heavy Hex Bolt - Full") ((= Type 7)"Heavy Hex Structural Bolt - Partial") ((= Type 8)"Heavy Hex Structural Bolt - Full") ((= Type 9)"Square Bolt - Partial") ((= Type 10)"Square Bolt - Full") );cond ThdFam (cond ((= Thread 1)"UNEF") ((= Thread 2)"UNF") ((= Thread 3)"UN") ((= Thread 4)"UNC") ((= Thread 5)"UNS") ((= Thread 6)"UNREF")((= Thread 7)"UNRF")((= Thread 8)"UNR")((= Thread 9)"UNRC")((= Thread 10)"UNRS") ) );setf (print (format nil "~% Compiling Fastener Information~% >> Bolt Type - ~A~% >> Thread Family - ~A~% >> Thread Size - ~A~% >> Bolt Length - ~A" BType ThdFam Size Length)) ;;Now go get the part numbers (cond ;;I couldn't find the ASME for Collar Bolts :( ;((= Type 1)(cond;;Collar Bolt - Partial ; ));Type=1 ;((= Type 2)(cond;;Collar Bolt - Full ; ));Type=2 ((= Type 3)(cond;;Hex Bolt - Partial ((= Thread X)(cond; ((= Size 0.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/4 ((= Size 0.3125)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/16 ((= Size 0.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/8 ((= Size 0.4375)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/16 ((= Size 0.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 ((= Size 1.1250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/8 ((= Size 1.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/4 ((= Size 1.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/8 ((= Size 1.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/2 ((= Size 1.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 5/8 ((= Size 1.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/4 ((= Size 1.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 7/8 ((= Size 2.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 ((= Size 2.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/4 ((= Size 2.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/2 ((= Size 2.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 3/4 ((= Size 3.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 ((= Size 3.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 1/4 ((= Size 3.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 1/2 ((= Size 3.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 3/4 ((= Size 4.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;4 (t (setq *PN-List-Hex-Bolts* nil)) ));Thread= ));Type=3 ((= Type 4)(cond;;Hex Bolt - Full ((= Thread X)(cond; ((= Size 0.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/4 ((= Size 0.3125)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/16 ((= Size 0.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/8 ((= Size 0.4375)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/16 ((= Size 0.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 ((= Size 1.1250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/8 ((= Size 1.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/4 ((= Size 1.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/8 ((= Size 1.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/2 ((= Size 1.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 5/8 ((= Size 1.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/4 ((= Size 1.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 7/8 ((= Size 2.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 ((= Size 2.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/4 ((= Size 2.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/2 ((= Size 2.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 3/4 ((= Size 3.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 ((= Size 3.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 1/4 ((= Size 3.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 1/2 ((= Size 3.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 3/4 ((= Size 4.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;4 (t (setq *PN-List-Hex-Bolts* nil)) ));Thread= ));Type=4 ((= Type 5)(cond;;Heavy Hex Bolt - Partial ((= Thread X)(cond; ((= Size 0.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 ((= Size 1.1250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/8 ((= Size 1.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/4 ((= Size 1.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/8 ((= Size 1.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/2 ((= Size 1.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 5/8 ((= Size 1.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/4 ((= Size 1.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 7/8 ((= Size 2.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 ((= Size 2.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/4 ((= Size 2.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/2 ((= Size 2.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 3/4 ((= Size 3.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 (t (setq *PN-List-Hex-Bolts* nil)) ));Thread= ));Type=5 ((= Type 6)(cond;;Heavy Hex Bolt - Full ((= Thread X)(cond; ((= Size 0.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 ((= Size 1.1250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/8 ((= Size 1.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/4 ((= Size 1.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/8 ((= Size 1.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/2 ((= Size 1.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 5/8 ((= Size 1.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/4 ((= Size 1.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 7/8 ((= Size 2.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 ((= Size 2.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/4 ((= Size 2.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/2 ((= Size 2.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 3/4 ((= Size 3.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 (t (setq *PN-List-Hex-Bolts* nil)) ));Thread= ));Type=6 ((= Type 7)(cond;;Heavy Hex Structural Bolt - Partial ((= Thread X)(cond ((= Size 0.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 ((= Size 1.1250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/8 ((= Size 1.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/4 ((= Size 1.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/8 ((= Size 1.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/2 ((= Size 1.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 5/8 ((= Size 1.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/4 ((= Size 1.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 7/8 ((= Size 2.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 ((= Size 2.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/4 ((= Size 2.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/2 ((= Size 2.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 3/4 ((= Size 3.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 (t (setq *PN-List-Hex-Bolts* nil)) ));Thread= ));Type=7 ((= Type 8)(cond;;Heavy Hex Structural Bolt - Full ((= Thread X)(cond ((= Size 0.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 ((= Size 1.1250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/8 ((= Size 1.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/4 ((= Size 1.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/8 ((= Size 1.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/2 ((= Size 1.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 5/8 ((= Size 1.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/4 ((= Size 1.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 7/8 ((= Size 2.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 ((= Size 2.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/4 ((= Size 2.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 1/2 ((= Size 2.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;2 3/4 ((= Size 3.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Hex-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Hex-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Hex-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Hex-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Hex-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Hex-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Hex-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Hex-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Hex-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Hex-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Hex-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Hex-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Hex-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Hex-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Hex-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Hex-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Hex-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Hex-Bolts* (list "")) );;12 (t (setq *PN-List-Hex-Bolts* nil)) ));;3 (t (setq *PN-List-Hex-Bolts* nil)) ));Thread= ));Type=8 ((= Type 9)(cond;;Square Bolt - Partial ((= Thread X)(cond; ((= Size 0.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/4 ((= Size 0.3125)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/16 ((= Size 0.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/8 ((= Size 0.4375)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/16 ((= Size 0.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 ((= Size 1.1250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/8 ((= Size 1.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/4 ((= Size 1.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/8 ((= Size 1.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/2 (t (setq *PN-List-Hex-Bolts* nil)) ));Thread= ));Type=9 ((= Type 10)(cond;;Square Bolt - Full ((= Thread X)(cond; ((= Size 0.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/4 ((= Size 0.3125)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/16 ((= Size 0.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/8 ((= Size 0.4375)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/16 ((= Size 0.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 ((= Size 1.1250)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/8 ((= Size 1.2500)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/4 ((= Size 1.3750)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 3/8 ((= Size 1.5000)(cond ((= Length 0.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Hex-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Hex-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Hex-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Hex-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Hex-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Hex-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Hex-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Hex-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Hex-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Hex-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Hex-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Hex-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Hex-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Hex-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Hex-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Hex-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Hex-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Hex-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Hex-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Hex-Bolts* (list "")) );;6 (t (setq *PN-List-Hex-Bolts* nil)) ));;1 1/2 (t (setq *PN-List-Hex-Bolts* nil)) ));Thread= ));Type=10 (t (setq *PN-List-Hex-Bolts* nil)) );cond ;;Print out the part number listing (print (format nil "~A~% Here are the Hex Bolt Listing - ~% ~A" *PrntBrdr* *PN-List-Hex-Bolts*)) );defun ;;;; =================================================================================================================== (defun sd-compile-fastener-partnumbers-hex-nuts (Type Thread Size) ;;;; =================================================================================================================== ;;Reset the Range to nil (setq *PN-List-Hex-Nuts* nil) ;;Print out the variables (setf BType (cond ((= Type 1)"HEX") ((= Type 2)"HEX WF") ((= Type 3)"HEX FLAT") ((= Type 4)"HEAVY HEX") ((= Type 5)"HEAVY HEX WF") ((= Type 6)"HEAVY HEX FLAT") ((= Type 7)"HEX JAM") ((= Type 8)"HEX JAM WF") ((= Type 9)"HEX FLAT JAM") ((= Type 10)"HEAVY HEX JAM") ((= Type 11)"HEAVY HEX JAM WF") ((= Type 12)"HEAVY HEX FLAT JAM") ((= Type 13)"HEX SLOTTED") ((= Type 14)"HEX SLOTTED WF") ((= Type 15)"HEAVY HEX SLOTTED") ((= Type 16)"HEAVY HEX SLOTTED WF") ((= Type 17)"THICK HEX SLOTTED") ((= Type 18)"THICK HEX SLOTTED WF") ((= Type 19)"SQUARE") ((= Type 20)"HEAVY SQUARE") ((= Type 21)"HEX FLANGE") ((= Type 22)"LARGE HEX FLANGE") );cond ThdFam (cond ((= Thread 1)"UNEF") ((= Thread 2)"UNF") ((= Thread 3)"UN") ((= Thread 4)"UNC") ((= Thread 5)"UNS") ((= Thread 6)"UNREF")((= Thread 7)"UNRF")((= Thread 8)"UNR")((= Thread 9)"UNRC")((= Thread 10)"UNRS") ) );setf (print (format nil "~% Compiling Fastener Information~% >> Bolt Type - ~A~% >> Thread Family - ~A~% >> Thread Size - ~A~%" BType ThdFam Size)) ;;Now go get the part numbers (cond ((= Type 1)(cond;;Hex ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Hex-Nuts* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Hex-Nuts* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));; 1-Hex ((= Type 2)(cond;;Hex WF ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Hex-Nuts* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Hex-Nuts* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));; 2-Hex WF ((= Type 3)(cond;;Hex Flat ((= Thread X)(cond ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));; 3-Hex Flat ((= Type 4)(cond;;Heavy Hex ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Hex-Nuts* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Hex-Nuts* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));; 4-Heavy Hex ((= Type 5)(cond;;Heavy Hex WF ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Hex-Nuts* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Hex-Nuts* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));; 5-Heavy Hex WF ((= Type 6)(cond;;Heavy Hex Flat ((= Thread X)(cond ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));; 6-Heavy Hex Flat ((= Type 7)(cond;;Hex Jam ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Hex-Nuts* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Hex-Nuts* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));; 7-Hex Jam ((= Type 8)(cond;;Hex Jam WF ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Hex-Nuts* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Hex-Nuts* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));; 8-Hex Jam WF ((= Type 9)(cond;;Hex Flat Jam ((= Thread X)(cond ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));; 9-Hex Flat Jam ((= Type 10)(cond;;Heavy Hex Jam ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Hex-Nuts* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Hex-Nuts* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;10-Heavy Hex Jam ((= Type 11)(cond;;Heavy Hex Jam WF ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Hex-Nuts* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Hex-Nuts* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;11-Heavy Hex Jam WF ((= Type 12)(cond;;Heavy Hex Flat Jam ((= Thread X)(cond ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;12-Heavy Hex Flat Jam ((= Type 13)(cond;;Hex Slotted ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;13-Hex Slotted ((= Type 14)(cond;;Hex Slotted WF ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;14-Hex Slotted WF ((= Type 15)(cond;;Heavy Hex Slotted ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Hex-Nuts* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Hex-Nuts* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;15-Heavy Hex Slotted ((= Type 16)(cond;;Heavy Hex Slotted WF ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Hex-Nuts* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Hex-Nuts* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Hex-Nuts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Hex-Nuts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Hex-Nuts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Hex-Nuts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/4 ((= Size 3.5000)(setq *PN-List-Hex-Nuts* (list "")) );;3 1/2 ((= Size 3.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3 3/4 ((= Size 4.0000)(setq *PN-List-Hex-Nuts* (list "")) );;4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;16-Heavy Hex Slotted WF ((= Type 17)(cond;;Thick Hex Slotted ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;17-Thick Hex Slotted ((= Type 18)(cond;;Thick Hex Slotted WF ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;18-Thick Hex Slotted WF ((= Type 19)(cond;;Square ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;19-Square ((= Type 20)(cond;;Heavy Square" ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Hex-Nuts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Hex-Nuts* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Hex-Nuts* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1-1/2 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;20-Heavy Square" ((= Type 21)(cond;;Hex Flange ((= Thread X)(cond ((= Size 0.1380)(setq *PN-List-Hex-Nuts* (list "")) );;No. 6 ((= Size 0.1640)(setq *PN-List-Hex-Nuts* (list "")) );;No. 8 ((= Size 0.1900)(setq *PN-List-Hex-Nuts* (list "")) );;No.10 ((= Size 0.2160)(setq *PN-List-Hex-Nuts* (list "")) );;No.12 ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Hex-Nuts* (list "")) );;3/4 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;21-Hex Flange ((= Type 22)(cond;;Large Hex Flange ((= Thread X)(cond ((= Size 0.2500)(setq *PN-List-Hex-Nuts* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Hex-Nuts* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Hex-Nuts* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Hex-Nuts* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Hex-Nuts* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Hex-Nuts* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Hex-Nuts* (list "")) );;5/8 (t (setq *PN-List-Hex-Nuts* nil)) ));;Thd= (t (setq *PN-List-Hex-Nuts* nil)) ));;22-Large Hex Flange (t (setq *PN-List-Hex-Nuts* nil)) );cond ;;Print out the part number listing (print (format nil "~A~% Here are the Hex Nut Listing - ~% ~A" *PrntBrdr* *PN-List-Hex-Nuts*)) );defun ;;;; =================================================================================================================== (defun sd-compile-fastener-partnumbers-pins (Type Size Length) ;;;; =================================================================================================================== ;;Reset the Range to nil (setq *PN-List-Pins* nil) ;;Print out the variables (print (format nil "~% Compiling Fastener Information~% >> Pin Type - ~A~% >> Pin Size - ~A~% >> Pin Length - ~A" Type Size Length)) ;;Now go get the part numbers (cond ((= Type 1)(cond ;;Std Harden ((= Size 0.0625)(cond;;1/16 ((= Length 0.1875)(setq *PN-List-Pins* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 (t (setq *PN-List-Pins* nil)) ));;1/16 ((= Size 0.0938)(cond;;3/32 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;3/32 ((= Size 0.1250)(cond;;1/8 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;1/8 ((= Size 0.1875)(cond;;3/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;3/16 ((= Size 0.2500)(cond;;1/4 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 (t (setq *PN-List-Pins* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 (t (setq *PN-List-Pins* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 (t (setq *PN-List-Pins* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 (t (setq *PN-List-Pins* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Pins* (list "")) );;6 (t (setq *PN-List-Pins* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Pins* (list "")) );;6 (t (setq *PN-List-Pins* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 6.0000)(setq *PN-List-Pins* (list "")) );;6 (t (setq *PN-List-Pins* nil)) ));;1 (t (setq *PN-List-Pins* nil)) ));;Type1 ((= Type 2)(cond ;;Std Harden Over Sized ((= Size 0.0625)(cond;;1/16 ((= Length 0.1875)(setq *PN-List-Pins* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 (t (setq *PN-List-Pins* nil)) ));;1/16 ((= Size 0.0938)(cond;;3/32 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;3/32 ((= Size 0.1250)(cond;;1/8 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;1/8 ((= Size 0.1875)(cond;;3/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;3/16 ((= Size 0.2500)(cond;;1/4 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 (t (setq *PN-List-Pins* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 (t (setq *PN-List-Pins* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 (t (setq *PN-List-Pins* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 (t (setq *PN-List-Pins* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Pins* (list "")) );;6 (t (setq *PN-List-Pins* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Pins* (list "")) );;6 (t (setq *PN-List-Pins* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 6.0000)(setq *PN-List-Pins* (list "")) );;6 (t (setq *PN-List-Pins* nil)) ));;1 (t (setq *PN-List-Pins* nil)) ));;Type2 ((= Type 3)(cond ;;Std Ground Dowel ((= Size 0.0625)(cond;;1/16 ((= Length 0.1875)(setq *PN-List-Pins* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;1/16 ((= Size 0.0938)(cond;;3/32 ((= Length 0.1875)(setq *PN-List-Pins* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;3/32 ((= Size 0.1094)(cond;;7/64 ((= Length 0.1875)(setq *PN-List-Pins* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;7/64 ((= Size 0.1250)(cond;;1/8 ((= Length 0.1875)(setq *PN-List-Pins* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;1/8 ((= Size 0.1562)(cond;;5/32 ((= Length 0.1875)(setq *PN-List-Pins* (list "")) );;"3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;"1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;"5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;"3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;"7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;"1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;"9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;"5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;"11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;"3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;"13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;"7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;"15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;"1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;"1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;"1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;"1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;"1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;"1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;"1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;"1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;"2 (t (setq *PN-List-Pins* nil)) ));;5/32 ((= Size 0.1875)(cond;;3/16 ((= Length 0.1875)(setq *PN-List-Pins* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;3/16 ((= Size 0.2188)(cond;;7/32 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;7/32 ((= Size 0.2500)(cond;;1/4 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;3/8 (t (setq *PN-List-Pins* nil)) ));;Type3 ((= Type 4)(cond ;;Std UnGround Dowel ((= Size 0.0625)(cond;;1/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;1/16 ((= Size 0.0938)(cond;;3/32 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 (t (setq *PN-List-Pins* nil)) ));;3/32 ((= Size 0.1250)(cond;;1/8 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;1/8 ((= Size 0.1562)(cond;;5/32 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;5/32 ((= Size 0.1875)(cond;;3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;3/16 ((= Size 0.2188)(cond;;7/32 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;7/32 ((= Size 0.2500)(cond;;1/4 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 (t (setq *PN-List-Pins* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 (t (setq *PN-List-Pins* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 (t (setq *PN-List-Pins* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 (t (setq *PN-List-Pins* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 (t (setq *PN-List-Pins* nil)) ));;1 (t (setq *PN-List-Pins* nil)) ));;Type4 ((= Type 5)(cond ;;Std Taper - Commercial ((= Size 0.0625)(cond;;No.7/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;No.7/0 ((= Size 0.0780)(cond;;No.6/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;No.6/0 ((= Size 0.0940)(cond;;No.5/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;No.5/0 ((= Size 0.1090)(cond;;No.4/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;No.4/0 ((= Size 0.1250)(cond;;No.3/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;No.3/0 ((= Size 0.1410)(cond;;No.2/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 (t (setq *PN-List-Pins* nil)) ));;No.2/0 ((= Size 0.1560)(cond;;No. 0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 (t (setq *PN-List-Pins* nil)) ));;No. 0 ((= Size 0.1720)(cond;;No. 1 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 (t (setq *PN-List-Pins* nil)) ));;No. 1 ((= Size 0.1930)(cond;;No. 2 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 (t (setq *PN-List-Pins* nil)) ));;No. 2 ((= Size 0.2190)(cond;;No. 3 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 (t (setq *PN-List-Pins* nil)) ));;No. 3 ((= Size 0.2500)(cond;;No. 4 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;No. 4 ((= Size 0.2890)(cond;;No. 5 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;No. 5 ((= Size 0.3410)(cond;;No. 6 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 (t (setq *PN-List-Pins* nil)) ));;No. 6 ((= Size 0.4090)(cond;;No. 7 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 (t (setq *PN-List-Pins* nil)) ));;No. 7 ((= Size 0.4920)(cond;;No. 8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Pins* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 (t (setq *PN-List-Pins* nil)) ));;No. 8 ((= Size 0.5910)(cond;;No. 9 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Pins* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Pins* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;5-1/4 (t (setq *PN-List-Pins* nil)) ));;No. 9 ((= Size 0.7060)(cond;;No.10 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/ ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/ ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Pins* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Pins* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Pins* (list "")) );;5-1/4 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Pins* (list "")) );;5-3/ ((= Length 6.0000)(setq *PN-List-Pins* (list "")) );;6 (t (setq *PN-List-Pins* nil)) ));;No.10 (t (setq *PN-List-Pins* nil)) ));;Type5 ((= Type 6)(cond ;;Std Taper - Percision ((= Size 0.0625)(cond;;No.7/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;No.7/0 ((= Size 0.0780)(cond;;No.6/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;No.6/0 ((= Size 0.0940)(cond;;No.5/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;No.5/0 ((= Size 0.1090)(cond;;No.4/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;No.4/0 ((= Size 0.1250)(cond;;No.3/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));;No.3/0 ((= Size 0.1410)(cond;;No.2/0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 (t (setq *PN-List-Pins* nil)) ));;No.2/0 ((= Size 0.1560)(cond;;No. 0 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 (t (setq *PN-List-Pins* nil)) ));;No. 0 ((= Size 0.1720)(cond;;No. 1 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 (t (setq *PN-List-Pins* nil)) ));;No. 1 ((= Size 0.1930)(cond;;No. 2 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 (t (setq *PN-List-Pins* nil)) ));;No. 2 ((= Size 0.2190)(cond;;No. 3 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 (t (setq *PN-List-Pins* nil)) ));;No. 3 ((= Size 0.2500)(cond;;No. 4 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));;No. 4 ((= Size 0.2890)(cond;;No. 5 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));;No. 5 ((= Size 0.3410)(cond;;No. 6 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 (t (setq *PN-List-Pins* nil)) ));;No. 6 ((= Size 0.4090)(cond;;No. 7 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 (t (setq *PN-List-Pins* nil)) ));;No. 7 ((= Size 0.4920)(cond;;No. 8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Pins* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 (t (setq *PN-List-Pins* nil)) ));;No. 8 ((= Size 0.5910)(cond;;No. 9 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Pins* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Pins* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;5-1/4 (t (setq *PN-List-Pins* nil)) ));;No. 9 ((= Size 0.7060)(cond;;No.10 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/ ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/ ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Pins* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Pins* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Pins* (list "")) );;5-1/4 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Pins* (list "")) );;5-3/ ((= Length 6.0000)(setq *PN-List-Pins* (list "")) );;6 (t (setq *PN-List-Pins* nil)) ));;No.10 (t (setq *PN-List-Pins* nil)) ));;Type6 ((= Type 7);;Clevis Pins (sd-display-alert "There are no legnths for clevis pens" ) );;Type7 ((= Type 8)(cond ;;Slotted Spring ((= Size 0.0625)(cond;;1/16 ((= Length 0.1875)(setq *PN-List-Pins* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 (t (setq *PN-List-Pins* nil)) ));1/16 ((= Size 0.0781)(cond;;5/64 ((= Length 0.1875)(setq *PN-List-Pins* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 (t (setq *PN-List-Pins* nil)) ));5/64 ((= Size 0.0938)(cond;3/32 ((= Length 0.1875)(setq *PN-List-Pins* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Pins* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 (t (setq *PN-List-Pins* nil)) ));3/32 ((= Size 0.1094)(cond;7/64 ((= Length 0.3125)(setq *PN-List-Pins* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));7/64 ((= Size 0.1250)(cond;1/8 ((= Length 0.3750)(setq *PN-List-Pins* (list "")) );;3/8 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 (t (setq *PN-List-Pins* nil)) ));1/8 ((= Size 0.1563)(cond;5/32 ((= Length 0.4375)(setq *PN-List-Pins* (list "")) );;7/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));5/32 ((= Size 0.1875)(cond;3/16 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 (t (setq *PN-List-Pins* nil)) ));3/16 ((= Size 0.2188)(cond;7/32 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Pins* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 (t (setq *PN-List-Pins* nil)) ));7/32 ((= Size 0.2500)(cond;1/4 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;1/2 ((= Length 0.5000)(setq *PN-List-Pins* (list "")) );;9/16 ((= Length 0.6250)(setq *PN-List-Pins* (list "")) );;5/8 ((= Length 0.6875)(setq *PN-List-Pins* (list "")) );;11/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Pins* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 (t (setq *PN-List-Pins* nil)) ));1/4 ((= Size 0.3125)(cond;5/16 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8125)(setq *PN-List-Pins* (list "")) );;13/16 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 0.9375)(setq *PN-List-Pins* (list "")) );;15/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Pins* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Pins* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Pins* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Pins* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Pins* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 (t (setq *PN-List-Pins* nil)) ));5/16 ((= Size 0.3750)(cond;3/8 ((= Length 0.7500)(setq *PN-List-Pins* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Pins* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Pins* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 (t (setq *PN-List-Pins* nil)) ));3/8 ((= Size 0.4375)(cond;7/16 ((= Length 1.0000)(setq *PN-List-Pins* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Pins* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 (t (setq *PN-List-Pins* nil)) ));7/16 ((= Size 0.5000)(cond;1/2 ((= Length 1.2500)(setq *PN-List-Pins* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Pins* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Pins* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Pins* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Pins* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Pins* (list "")) );;4-3/4 (t (setq *PN-List-Pins* nil)) ));1/2 ((= Size 0.6250)(cond;5/8 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Pins* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Pins* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Pins* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Pins* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Pins* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Pins* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Pins* (list "")) );;6 (t (setq *PN-List-Pins* nil)) ));5/8 ((= Size 0.7500)(cond;3/4 ((= Length 2.0000)(setq *PN-List-Pins* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Pins* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Pins* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Pins* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Pins* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Pins* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Pins* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Pins* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Pins* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Pins* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Pins* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Pins* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Pins* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Pins* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Pins* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Pins* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Pins* (list "")) );;6 (t (setq *PN-List-Pins* nil)) ));3/4 (t (setq *PN-List-Pins* nil)) ));;Type8 (t (setq *PN-List-Pins* nil)) );cond ;;Print out the part number listing (print (format nil "Here are the Pin Listing - ~% ~A" *PN-List-Pins*)) );defun ;;;; =================================================================================================================== (defun sd-compile-fastener-partnumbers-set-screws (Head Type Thread Size Length) ;;;; =================================================================================================================== ;;Reset the Range to nil (setq *PN-List-Set-Screws* nil) ;;Print out the variables (setf PType (cond ((= Type 1)"Cone Point") ((= Type 2)"Cup Point") ((= Type 3)"Dog Point") ((= Type 4)"Half Dog Point") ((= Type 5)"Flat Point") ((= Type 6)"Oval Point") );cond ThdFam (cond ((= Thread 1)"UNEF") ((= Thread 2)"UNF") ((= Thread 3)"UN") ((= Thread 4)"UNC") ((= Thread 5)"UNS") ((= Thread 6)"UNREF")((= Thread 7)"UNRF")((= Thread 8)"UNR")((= Thread 9)"UNRC")((= Thread 10)"UNRS") ) );setf (print (format nil "~% Compiling Fastener Information~% >> SetScrew Type - ~A~% >> Thread Family - ~A~% >> Thread Size - ~A~% >> Set Screw Length - ~A" PType ThdFam Size Length)) ;;Now go get the part numbers (cond ((= Head 1)(cond;;Hex Socket ((= Type 1)(cond ;;Cone Point ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 (t (setq *PN-List-Set-Screws* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 4 ((= Size 0.1250)(cond;;# 5 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 10 ((= Size 0.2160)(cond;;# 12 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 12 ((= Size 0.2500)(cond;;1/4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6" (t (setq *PN-List-Set-Screws* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/4 ((= Size 2.0000)(cond;;2 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;2 (t (setq *PN-List-Set-Screws* nil)) ));cond-Thread (t (setq *PN-List-Set-Screws* nil)) ));cond-Type ((= Type 2)(cond ;;Cup Point ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 (t (setq *PN-List-Set-Screws* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 4 ((= Size 0.1250)(cond;;# 5 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 10 ((= Size 0.2160)(cond;;# 12 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 12 ((= Size 0.2500)(cond;;1/4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6" (t (setq *PN-List-Set-Screws* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/4 ((= Size 2.0000)(cond;;2 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;2 (t (setq *PN-List-Set-Screws* nil)) ));cond-Thread (t (setq *PN-List-Set-Screws* nil)) ));cond-Type ((= Type 4)(cond ;;Half Dog Point ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 (t (setq *PN-List-Set-Screws* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 4 ((= Size 0.1250)(cond;;# 5 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 10 ((= Size 0.2160)(cond;;# 12 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 12 ((= Size 0.2500)(cond;;1/4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6" (t (setq *PN-List-Set-Screws* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/4 ((= Size 2.0000)(cond;;2 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;2 (t (setq *PN-List-Set-Screws* nil)) ));cond-Thread (t (setq *PN-List-Set-Screws* nil)) ));cond-Type ((= Type 5)(cond ;;Flat Point ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 (t (setq *PN-List-Set-Screws* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 4 ((= Size 0.1250)(cond;;# 5 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 10 ((= Size 0.2160)(cond;;# 12 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 12 ((= Size 0.2500)(cond;;1/4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6" (t (setq *PN-List-Set-Screws* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/4 ((= Size 2.0000)(cond;;2 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;2 (t (setq *PN-List-Set-Screws* nil)) ));cond-Thread (t (setq *PN-List-Set-Screws* nil)) ));cond-Type ((= Type 6)(cond ;;Oval Point ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 (t (setq *PN-List-Set-Screws* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 4 ((= Size 0.1250)(cond;;# 5 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 10 ((= Size 0.2160)(cond;;# 12 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 12 ((= Size 0.2500)(cond;;1/4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6" (t (setq *PN-List-Set-Screws* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/4 ((= Size 2.0000)(cond;;2 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;2 (t (setq *PN-List-Set-Screws* nil)) ));cond-Thread (t (setq *PN-List-Set-Screws* nil)) ));cond-Type (t (setq *PN-List-Set-Screws* nil)) ));Head=1 ((= Head 3)(cond;;Square Head ((= Type 1)(cond ;;Cone Point ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 (t (setq *PN-List-Set-Screws* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 4 ((= Size 0.1250)(cond;;# 5 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 10 ((= Size 0.2160)(cond;;# 12 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 12 ((= Size 0.2500)(cond;;1/4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6" (t (setq *PN-List-Set-Screws* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/4 ((= Size 2.0000)(cond;;2 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;2 (t (setq *PN-List-Set-Screws* nil)) ));cond-Thread (t (setq *PN-List-Set-Screws* nil)) ));cond-Type ((= Type 2)(cond ;;Cup Point ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 (t (setq *PN-List-Set-Screws* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 4 ((= Size 0.1250)(cond;;# 5 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 10 ((= Size 0.2160)(cond;;# 12 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 12 ((= Size 0.2500)(cond;;1/4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6" (t (setq *PN-List-Set-Screws* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/4 ((= Size 2.0000)(cond;;2 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;2 (t (setq *PN-List-Set-Screws* nil)) ));cond-Thread (t (setq *PN-List-Set-Screws* nil)) ));cond-Type ((= Type 3)(cond ;;Dog Point ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 (t (setq *PN-List-Set-Screws* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 4 ((= Size 0.1250)(cond;;# 5 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 10 ((= Size 0.2160)(cond;;# 12 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 12 ((= Size 0.2500)(cond;;1/4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6" (t (setq *PN-List-Set-Screws* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/4 ((= Size 2.0000)(cond;;2 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;2 (t (setq *PN-List-Set-Screws* nil)) ));cond-Thread (t (setq *PN-List-Set-Screws* nil)) ));cond-Type ((= Type 4)(cond ;;Half Dog Point ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 (t (setq *PN-List-Set-Screws* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 4 ((= Size 0.1250)(cond;;# 5 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 10 ((= Size 0.2160)(cond;;# 12 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 12 ((= Size 0.2500)(cond;;1/4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6" (t (setq *PN-List-Set-Screws* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/4 ((= Size 2.0000)(cond;;2 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;2 (t (setq *PN-List-Set-Screws* nil)) ));cond-Thread (t (setq *PN-List-Set-Screws* nil)) ));cond-Type ((= Type 5)(cond ;;Flat Point ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 (t (setq *PN-List-Set-Screws* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 4 ((= Size 0.1250)(cond;;# 5 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 10 ((= Size 0.2160)(cond;;# 12 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 12 ((= Size 0.2500)(cond;;1/4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6" (t (setq *PN-List-Set-Screws* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/4 ((= Size 2.0000)(cond;;2 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;2 (t (setq *PN-List-Set-Screws* nil)) ));cond-Thread (t (setq *PN-List-Set-Screws* nil)) ));cond-Type ((= Type 6)(cond ;;Oval Point ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 (t (setq *PN-List-Set-Screws* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.0625)(setq *PN-List-Set-Screws* (list "")) );;1/16 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 (t (setq *PN-List-Set-Screws* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 4 ((= Size 0.1250)(cond;;# 5 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 (t (setq *PN-List-Set-Screws* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 (t (setq *PN-List-Set-Screws* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 10 ((= Size 0.2160)(cond;;# 12 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 (t (setq *PN-List-Set-Screws* nil)) ));;# 12 ((= Size 0.2500)(cond;;1/4 ((= Length 0.0938)(setq *PN-List-Set-Screws* (list "")) );;3/32 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6" (t (setq *PN-List-Set-Screws* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Set-Screws* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1875)(setq *PN-List-Set-Screws* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Set-Screws* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3125)(setq *PN-List-Set-Screws* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Set-Screws* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1 ((= Size 1.1250)(cond;;1-1/8 ((= Length 0.5000)(setq *PN-List-Set-Screws* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Length 0.6250)(setq *PN-List-Set-Screws* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Length 0.7500)(setq *PN-List-Set-Screws* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Length 0.8750)(setq *PN-List-Set-Screws* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;1-3/4 ((= Size 2.0000)(cond;;2 ((= Length 1.0000)(setq *PN-List-Set-Screws* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Set-Screws* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Set-Screws* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Set-Screws* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Set-Screws* (list "")) );;2 ((= Length 2.5000)(setq *PN-List-Set-Screws* (list "")) );;2-1/2 ((= Length 3.0000)(setq *PN-List-Set-Screws* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Set-Screws* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Set-Screws* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Set-Screws* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Set-Screws* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Set-Screws* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Set-Screws* (list "")) );;6 (t (setq *PN-List-Set-Screws* nil)) ));;2 (t (setq *PN-List-Set-Screws* nil)) ));cond-Thread (t (setq *PN-List-Set-Screws* nil)) ));cond-Type (t (setq *PN-List-Set-Screws* nil)) ));Head=3 (t (setq *PN-List-Set-Screws* nil)) );cond-Class ;;Print out the part number listing (print (format nil "~% Here are the Set Screw Listing - ~% ~A" *PN-List-Set-Screws*)) );defun ;;;; =================================================================================================================== (defun sd-compile-fastener-partnumbers-shoulder-bolts (Size Length Thread) ;;;; =================================================================================================================== ;;Reset the Range to nil (setq *PN-List-Shoulder-Bolts* nil) ;;Print out the variables ;(print (format nil "Thread Type - ~A~%Thread Class - ~A~%Thread Size - ~A~%Thread Length - ~A" Type Thread Size Length)) ;;Now go get the part numbers (cond ((= Thread X)(cond; ((= Size 0.2500)(cond;;1/4 ((= Size 0.1250)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/8 ((= Size 0.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/4 ((= Size 0.3750)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/8 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-1/4 ((= Size 0.3125)(cond;;5/16 ((= Size 0.1250)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/8 ((= Size 0.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/4 ((= Size 0.3750)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/8 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-5/16 ((= Size 0.3750)(cond;;3/8 ((= Size 0.1250)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/8 ((= Size 0.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/4 ((= Size 0.3750)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/8 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-3/8 ((= Size 0.4375)(cond;;7/16 ((= Size 0.1250)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/8 ((= Size 0.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/4 ((= Size 0.3750)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/8 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-7/16 ((= Size 0.5000)(cond;;1/2 ((= Size 0.1250)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/8 ((= Size 0.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/4 ((= Size 0.3750)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/8 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-1/2 ((= Size 0.6250)(cond;;5/8 ((= Size 0.1250)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/8 ((= Size 0.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/4 ((= Size 0.3750)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/8 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 ((= Size 7.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7-1/2 ((= Size 8.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8 ((= Size 8.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8-1/2 ((= Size 9.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-5/8 ((= Size 0.7500)(cond;;3/4 ((= Size 0.1250)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/8 ((= Size 0.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/4 ((= Size 0.3750)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/8 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 ((= Size 7.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7-1/2 ((= Size 8.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8 ((= Size 8.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8-1/2 ((= Size 9.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-3/4 ((= Size 0.8750)(cond;;7/8 ((= Size 0.1250)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/8 ((= Size 0.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/4 ((= Size 0.3750)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/8 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 ((= Size 7.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7-1/2 ((= Size 8.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8 ((= Size 8.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8-1/2 ((= Size 9.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-7/8 ((= Size 1.0000)(cond;;1 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 ((= Size 7.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7-1/2 ((= Size 8.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8 ((= Size 8.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8-1/2 ((= Size 9.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9 ((= Size 9.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9-1/2 ((= Size 10.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;10 ((= Size 10.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;10-1/2 ((= Size 11.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;11 ((= Size 11.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;11-1/2 ((= Size 12.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;12 ((= Size 12.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;12-1/2 ((= Size 13.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;13 ((= Size 13.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-1/2 ((= Size 13.750)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-3/4 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-1 ((= Size 1.1250)(cond;;1-1/8 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 ((= Size 7.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7-1/2 ((= Size 8.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8 ((= Size 8.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8-1/2 ((= Size 9.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9 ((= Size 9.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9-1/2 ((= Size 10.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;10 ((= Size 10.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;10-1/2 ((= Size 11.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;11 ((= Size 11.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;11-1/2 ((= Size 12.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;12 ((= Size 12.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;12-1/2 ((= Size 13.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;13 ((= Size 13.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-1/2 ((= Size 13.750)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-3/4 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 ((= Size 7.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7-1/2 ((= Size 8.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8 ((= Size 8.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8-1/2 ((= Size 9.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9 ((= Size 9.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9-1/2 ((= Size 10.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;10 ((= Size 10.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;10-1/2 ((= Size 11.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;11 ((= Size 11.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;11-1/2 ((= Size 12.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;12 ((= Size 12.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;12-1/2 ((= Size 13.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;13 ((= Size 13.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-1/2 ((= Size 13.750)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-3/4 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 ((= Size 7.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7-1/2 ((= Size 8.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8 ((= Size 8.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8-1/2 ((= Size 9.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9 ((= Size 9.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9-1/2 ((= Size 10.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;10 ((= Size 10.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;10-1/2 ((= Size 11.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;11 ((= Size 11.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;11-1/2 ((= Size 12.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;12 ((= Size 12.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;12-1/2 ((= Size 13.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;13 ((= Size 13.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-1/2 ((= Size 13.750)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-3/4 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 ((= Size 7.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7-1/2 ((= Size 8.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8 ((= Size 8.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8-1/2 ((= Size 9.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9 ((= Size 9.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9-1/2 ((= Size 10.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;10 ((= Size 10.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;10-1/2 ((= Size 11.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;11 ((= Size 11.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;11-1/2 ((= Size 12.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;12 ((= Size 12.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;12-1/2 ((= Size 13.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;13 ((= Size 13.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-1/2 ((= Size 13.750)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-3/4 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 ((= Size 7.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7-1/2 ((= Size 8.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8 ((= Size 8.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8-1/2 ((= Size 9.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9 ((= Size 9.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9-1/2 ((= Size 10.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;10 ((= Size 10.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;10-1/2 ((= Size 11.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;11 ((= Size 11.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;11-1/2 ((= Size 12.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;12 ((= Size 12.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;12-1/2 ((= Size 13.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;13 ((= Size 13.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-1/2 ((= Size 13.750)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-3/4 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-1-3/4 ((= Size 2.0000)(cond;;2 ((= Size 0.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Shoulder-Bolts* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Shoulder-Bolts* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1 ((= Size 1.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/4 ((= Size 1.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-1/2 ((= Size 1.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-11/16 ((= Size 1.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3 ((= Size 3.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/4 ((= Size 3.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-1/2 ((= Size 3.6875)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-11/16 ((= Size 3.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;3-3/4 ((= Size 4.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4 ((= Size 4.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/4 ((= Size 4.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-1/2 ((= Size 4.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;4-3/4 ((= Size 5.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5 ((= Size 5.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-1/2 ((= Size 5.7500)(setq *PN-List-Shoulder-Bolts* (list "")) );;5-3/4 ((= Size 6.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6 ((= Size 6.2500)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/4 ((= Size 6.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;6-1/2 ((= Size 7.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7 ((= Size 7.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;7-1/2 ((= Size 8.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8 ((= Size 8.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;8-1/2 ((= Size 9.0000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9 ((= Size 9.5000)(setq *PN-List-Shoulder-Bolts* (list "")) );;9-1/2 ((= Size 10.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;10 ((= Size 10.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;10-1/2 ((= Size 11.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;11 ((= Size 11.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;11-1/2 ((= Size 12.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;12 ((= Size 12.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;12-1/2 ((= Size 13.000)(setq *PN-List-Shoulder-Bolts* (list "")) );;13 ((= Size 13.500)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-1/2 ((= Size 13.750)(setq *PN-List-Shoulder-Bolts* (list "")) );;13-3/4 (t (setq *PN-List-Shoulder-Bolts* nil)) ));cond-2 (t (setq *PN-List-Shoulder-Bolts* nil)) ));;thread (t (setq *PN-List-Shoulder-Bolts* nil)) );cond ;;Print out the part number listing (print (format nil "Here are the Shoulder Bolt Listing - ~% ~A" *PN-List-Shoulder-Bolts*)) );defun ;;;; =================================================================================================================== (defun sd-compile-fastener-partnumbers-socket-bolts (Type Thread Size Length) ;;;; =================================================================================================================== ;;Reset the Range to nil (setq *PN-List-Socket-Bolts* nil) ;;Print out the variables (setf BType (cond ((= Type 1)"Socket Head - Part") ((= Type 2)"Socket Head - Full") ((= Type 3)"Button Head") ((= Type 4)"Flat Head") ((= Type 5)"Low Head") );cond ThdFam (cond ((= Thread 1)"UNEF") ((= Thread 2)"UNF") ((= Thread 3)"UN") ((= Thread 4)"UNC") ((= Thread 5)"UNS") ((= Thread 6)"UNREF")((= Thread 7)"UNRF")((= Thread 8)"UNR")((= Thread 9)"UNRC")((= Thread 10)"UNRS") ) );setf (print (format nil "~% Compiling Fastener Information~% >> Bolt Type - ~A~% >> Thread Family - ~A~% >> Thread Size - ~A~% >> Bolt Length - ~A" BType ThdFam Size Length)) ;;Now go get the part numbers (cond ((= Type 1)(cond;;Socket Bolt-Parial ((= Thread X)(cond; ((= Size 0.0600)(cond;;No_0 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 0 ((= Size 0.0730)(cond;;No_1 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 1 ((= Size 0.0860)(cond;;No_2 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 2 ((= Size 0.0990)(cond;;No_3 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 3 ((= Size 0.1120)(cond;;No_4 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 4 ((= Size 0.1251)(cond;;No_5 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 5 ((= Size 0.1380)(cond;;No_6 ((= Length 0.1251)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 6 ((= Size 0.1640)(cond;;No_8 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 8 ((= Size 0.1900)(cond;;No_10 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 10 ((= Size 0.2160)(cond;;No_12 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 10 ((= Size 0.2500)(cond;;1/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 ((= Size 1.1250)(cond;;1 1/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 1/8 ((= Size 1.2500)(cond;;1 1/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 1/4 ((= Size 1.3750)(cond;;1 3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 3/8 ((= Size 1.5000)(cond;;1 1/2 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 1/2 ((= Size 1.7500)(cond;;1 3/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 3/4 ((= Size 2.0000)(cond;;2 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;2 ((= Size 2.2500)(cond;;2 1/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;2 1/4 ((= Size 2.5000)(cond;;2 1/2 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;2 1/2 ((= Size 2.7500)(cond;;2 3/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;2 3/4 ((= Size 3.0000)(cond;;3 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3 ((= Size 3.2500)(cond;;3 1/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3 1/4 ((= Size 3.5000)(cond;;3 1/2 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3 1/2 ((= Size 3.7500)(cond;;3 3/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3 3/4 ((= Size 4.0000)(cond;;4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;4 (t (setq *PN-List-Socket-Bolts* nil)) ));;Thread=X (t (setq *PN-List-Socket-Bolts* nil)) ));Type=1 ((= Type 2)(cond;;Socket Bolt-Full ((= Thread X)(cond; ((= Size 0.0600)(cond;;No_0 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 0 ((= Size 0.0730)(cond;;No_1 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 1 ((= Size 0.0860)(cond;;No_2 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 2 ((= Size 0.0990)(cond;;No_3 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 3 ((= Size 0.1120)(cond;;No_4 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 4 ((= Size 0.1251)(cond;;No_5 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 5 ((= Size 0.1380)(cond;;No_6 ((= Length 0.1251)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 6 ((= Size 0.1640)(cond;;No_8 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 8 ((= Size 0.1900)(cond;;No_10 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 10 ((= Size 0.2160)(cond;;No_12 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 10 ((= Size 0.2500)(cond;;1/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 ((= Size 1.1250)(cond;;1 1/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 1/8 ((= Size 1.2500)(cond;;1 1/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 1/4 ((= Size 1.3750)(cond;;1 3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 3/8 ((= Size 1.5000)(cond;;1 1/2 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 1/2 ((= Size 1.7500)(cond;;1 3/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 3/4 ((= Size 2.0000)(cond;;2 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;2 ((= Size 2.2500)(cond;;2 1/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;2 1/4 ((= Size 2.5000)(cond;;2 1/2 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;2 1/2 ((= Size 2.7500)(cond;;2 3/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;2 3/4 ((= Size 3.0000)(cond;;3 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3 ((= Size 3.2500)(cond;;3 1/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3 1/4 ((= Size 3.5000)(cond;;3 1/2 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3 1/2 ((= Size 3.7500)(cond;;3 3/4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;3 3/4 ((= Size 4.0000)(cond;;4 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/8 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.3750)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/8 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.6250)(setq *PN-List-Socket-Bolts* (list "")) );;1-5/8 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 1.8750)(setq *PN-List-Socket-Bolts* (list "")) );;1-7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.2500)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/4 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 3.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3-3/4 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.2500)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 4.7500)(setq *PN-List-Socket-Bolts* (list "")) );;4-3/4 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.2500)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/4 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 5.7500)(setq *PN-List-Socket-Bolts* (list "")) );;5-3/4 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.2500)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/4 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 6.7500)(setq *PN-List-Socket-Bolts* (list "")) );;6-3/4 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 7.2500)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/4 ((= Length 7.5000)(setq *PN-List-Socket-Bolts* (list "")) );;7-1/2 ((= Length 7.7500)(setq *PN-List-Socket-Bolts* (list "")) );;7-3/4 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 8.2500)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/4 ((= Length 8.5000)(setq *PN-List-Socket-Bolts* (list "")) );;8-1/2 ((= Length 8.7500)(setq *PN-List-Socket-Bolts* (list "")) );;8-3/4 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 9.2500)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/4 ((= Length 9.5000)(setq *PN-List-Socket-Bolts* (list "")) );;9-1/2 ((= Length 9.7500)(setq *PN-List-Socket-Bolts* (list "")) );;9-3/4 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 10.250)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/4 ((= Length 10.500)(setq *PN-List-Socket-Bolts* (list "")) );;10-1/2 ((= Length 10.750)(setq *PN-List-Socket-Bolts* (list "")) );;10-3/4 ((= Length 11.000)(setq *PN-List-Socket-Bolts* (list "")) );;11 ((= Length 11.250)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/4 ((= Length 11.500)(setq *PN-List-Socket-Bolts* (list "")) );;11-1/2 ((= Length 11.750)(setq *PN-List-Socket-Bolts* (list "")) );;11-3/4 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 (t (setq *PN-List-Socket-Bolts* nil)) ));;4 (t (setq *PN-List-Socket-Bolts* nil)) ));;Thread=X (t (setq *PN-List-Socket-Bolts* nil)) ));Type=2 ((= Type 3)(cond;;Button Head ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 4 ((= Size 0.1251)(cond;;# 5 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 10 ((= Size 0.2500)(cond;;1/4 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;3/8 ((= Size 0.5000)(cond;;1/2 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 0.8750)(setq *PN-List-Socket-Bolts* (list "")) );;7/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;5/8 (t (setq *PN-List-Socket-Bolts* nil)) ));;Thread=X (t (setq *PN-List-Socket-Bolts* nil)) ));Type=3 ((= Type 4)(cond;;Flat Head ((= Thread X)(cond; ((= Size 0.0600)(cond;;# 0 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 0 ((= Size 0.0730)(cond;;# 1 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 1 ((= Size 0.0860)(cond;;# 2 ((= Length 0.1250)(setq *PN-List-Socket-Bolts* (list "")) );;1/8 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 2 ((= Size 0.0990)(cond;;# 3 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 3 ((= Size 0.1120)(cond;;# 4 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 4 ((= Size 0.1251)(cond;;# 5 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.1875)(setq *PN-List-Socket-Bolts* (list "")) );;3/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 10 ((= Size 0.2500)(cond;;1/4 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 (t (setq *PN-List-Socket-Bolts* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 (t (setq *PN-List-Socket-Bolts* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 (t (setq *PN-List-Socket-Bolts* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 (t (setq *PN-List-Socket-Bolts* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 (t (setq *PN-List-Socket-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 (t (setq *PN-List-Socket-Bolts* nil)) ));;5/8 ((= Size 0.7500)(cond;;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 (t (setq *PN-List-Socket-Bolts* nil)) ));;3/4 ((= Size 0.8750)(cond;;7/8 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 (t (setq *PN-List-Socket-Bolts* nil)) ));;7/8 ((= Size 1.0000)(cond;;1 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 ((= Length 2.7500)(setq *PN-List-Socket-Bolts* (list "")) );;2-3/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 ((= Size 1.1250)(cond;;1 1/8 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 1/8 ((= Size 1.2500)(cond;;1 1/4 ((= Length 3.0000)(setq *PN-List-Socket-Bolts* (list "")) );;3 ((= Length 3.5000)(setq *PN-List-Socket-Bolts* (list "")) );;3-1/2 ((= Length 4.0000)(setq *PN-List-Socket-Bolts* (list "")) );;4 ((= Length 4.5000)(setq *PN-List-Socket-Bolts* (list "")) );;4-1/2 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 1/4 ((= Size 1.3750)(cond;;1 3/8 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 ((= Length 14.000)(setq *PN-List-Socket-Bolts* (list "")) );;14 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 3/8 ((= Size 1.5000)(cond;;1 1/2 ((= Length 5.0000)(setq *PN-List-Socket-Bolts* (list "")) );;5 ((= Length 5.5000)(setq *PN-List-Socket-Bolts* (list "")) );;5-1/2 ((= Length 6.0000)(setq *PN-List-Socket-Bolts* (list "")) );;6 ((= Length 6.5000)(setq *PN-List-Socket-Bolts* (list "")) );;6-1/2 ((= Length 7.0000)(setq *PN-List-Socket-Bolts* (list "")) );;7 ((= Length 8.0000)(setq *PN-List-Socket-Bolts* (list "")) );;8 ((= Length 9.0000)(setq *PN-List-Socket-Bolts* (list "")) );;9 ((= Length 10.000)(setq *PN-List-Socket-Bolts* (list "")) );;10 ((= Length 12.000)(setq *PN-List-Socket-Bolts* (list "")) );;12 ((= Length 14.000)(setq *PN-List-Socket-Bolts* (list "")) );;14 (t (setq *PN-List-Socket-Bolts* nil)) ));;1 1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;Thread=X (t (setq *PN-List-Socket-Bolts* nil)) ));Type=4 ((= Type 5)(cond;;Low Head ((= Thread X)(cond; ((= Size 0.1120)(cond;;# 4 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 4 ((= Size 0.1251)(cond;;# 5 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 5 ((= Size 0.1380)(cond;;# 6 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 6 ((= Size 0.1640)(cond;;# 8 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 8 ((= Size 0.1900)(cond;;# 10 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 (t (setq *PN-List-Socket-Bolts* nil)) ));;# 10 ((= Size 0.2500)(cond;;1/4 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;1/4 ((= Size 0.3125)(cond;;5/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;5/16 ((= Size 0.3750)(cond;;3/8 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;3/8 ((= Size 0.4375)(cond;;7/16 ((= Length 0.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1/4 ((= Length 0.3125)(setq *PN-List-Socket-Bolts* (list "")) );;5/16 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 (t (setq *PN-List-Socket-Bolts* nil)) ));;7/16 ((= Size 0.5000)(cond;;1/2 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;1/2 ((= Size 0.6250)(cond;;5/8 ((= Length 0.3750)(setq *PN-List-Socket-Bolts* (list "")) );;3/8 ((= Length 0.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1/2 ((= Length 0.6250)(setq *PN-List-Socket-Bolts* (list "")) );;5/8 ((= Length 0.7500)(setq *PN-List-Socket-Bolts* (list "")) );;3/4 ((= Length 1.0000)(setq *PN-List-Socket-Bolts* (list "")) );;1 ((= Length 1.2500)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/4 ((= Length 1.5000)(setq *PN-List-Socket-Bolts* (list "")) );;1-1/2 ((= Length 1.7500)(setq *PN-List-Socket-Bolts* (list "")) );;1-3/4 ((= Length 2.0000)(setq *PN-List-Socket-Bolts* (list "")) );;2 ((= Length 2.2500)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/4 ((= Length 2.5000)(setq *PN-List-Socket-Bolts* (list "")) );;2-1/2 (t (setq *PN-List-Socket-Bolts* nil)) ));;5/8 (t (setq *PN-List-Socket-Bolts* nil)) ));;Thread=X (t (setq *PN-List-Socket-Bolts* nil)) ));Type=5 (t (setq *PN-List-Socket-Bolts* nil)) );cond ;;Print out the part number listing (print (format nil "~A~% Here are the Socket Bolt Listing - ~% ~A" *PrntBrdr* *PN-List-Socket-Bolts*)) );defun ;;;; =================================================================================================================== (defun sd-compile-fastener-partnumbers-washers (Type Size) ;;;; =================================================================================================================== ;;Reset the Range to nil (setq *PN-List-Washers* nil) ;;Print out the variables (setf BType (cond ((= Type 1)"Plain A - Nar") ((= Type 2)"Plain A - Reg") ((= Type 3)"Plain A - Wid") ((= Type 4)"Plain B - Nar") ((= Type 5)"Plain B - Reg") ((= Type 6)"Plain B - Wid") ((= Type 7)"High Collar") ((= Type 8)"Spring Lock Reg") ((= Type 9)"Spring Lock Hvy") ((= Type 10)"Spring Lock Ex-Duty") ((= Type 11)"Intern Tooth Lock") ((= Type 12)"Extern Tooth Lock") ) );setf (print (format nil "~% Compiling Fastener Information~% >> Washer Type - ~A~% >> Washer Size - ~A" Type Size)) ;;Now go get the part numbers (cond ((= Type 1)(cond ;;Plain A - Nar ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Washers* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Washers* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Washers* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Washers* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Washers* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Washers* (list "")) );;1-1/2 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 2)(cond ;;Plain A - Reg ((= Size 0.1380)(setq *PN-List-Washers* (list "")) );;No. 6 ((= Size 0.1640)(setq *PN-List-Washers* (list "")) );;No. 8 ((= Size 0.1900)(setq *PN-List-Washers* (list "")) );;No.10 ((= Size 0.1875)(setq *PN-List-Washers* (list "")) );;3/16 ((= Size 0.2160)(setq *PN-List-Washers* (list "")) );;No.12 ((= Size 1.6250)(setq *PN-List-Washers* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Washers* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Washers* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Washers* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Washers* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Washers* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Washers* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Washers* (list "")) );;3 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 3)(cond ;;Plain A - Wide ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Washers* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Washers* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Washers* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Washers* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Washers* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Washers* (list "")) );;1-1/2 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 4)(cond ;;Plain B - Nar ((= Size 0.0000)(setq *PN-List-Washers* (list "")) );;No. 0 ((= Size 0.0730)(setq *PN-List-Washers* (list "")) );;No. 1 ((= Size 0.0860)(setq *PN-List-Washers* (list "")) );;No. 2 ((= Size 0.0990)(setq *PN-List-Washers* (list "")) );;No. 3 ((= Size 0.1120)(setq *PN-List-Washers* (list "")) );;No. 4 ((= Size 0.1251)(setq *PN-List-Washers* (list "")) );;No. 5 ((= Size 0.1380)(setq *PN-List-Washers* (list "")) );;No. 6 ((= Size 0.1640)(setq *PN-List-Washers* (list "")) );;No. 8 ((= Size 0.1900)(setq *PN-List-Washers* (list "")) );;No.10 ((= Size 0.2160)(setq *PN-List-Washers* (list "")) );;No.12 ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Washers* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Washers* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Washers* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Washers* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Washers* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Washers* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Washers* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Washers* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Washers* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Washers* (list "")) );;2 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 5)(cond ;;Plain B - Reg ((= Size 0.0000)(setq *PN-List-Washers* (list "")) );;No. 0 ((= Size 0.0730)(setq *PN-List-Washers* (list "")) );;No. 1 ((= Size 0.0860)(setq *PN-List-Washers* (list "")) );;No. 2 ((= Size 0.0990)(setq *PN-List-Washers* (list "")) );;No. 3 ((= Size 0.1120)(setq *PN-List-Washers* (list "")) );;No. 4 ((= Size 0.1251)(setq *PN-List-Washers* (list "")) );;No. 5 ((= Size 0.1380)(setq *PN-List-Washers* (list "")) );;No. 6 ((= Size 0.1640)(setq *PN-List-Washers* (list "")) );;No. 8 ((= Size 0.1900)(setq *PN-List-Washers* (list "")) );;No.10 ((= Size 0.2160)(setq *PN-List-Washers* (list "")) );;No.12 ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Washers* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Washers* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Washers* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Washers* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Washers* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Washers* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Washers* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Washers* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Washers* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Washers* (list "")) );;2 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 6)(cond ;;Plain B - Wide ((= Size 0.0000)(setq *PN-List-Washers* (list "")) );;No. 0 ((= Size 0.0730)(setq *PN-List-Washers* (list "")) );;No. 1 ((= Size 0.0860)(setq *PN-List-Washers* (list "")) );;No. 2 ((= Size 0.0990)(setq *PN-List-Washers* (list "")) );;No. 3 ((= Size 0.1120)(setq *PN-List-Washers* (list "")) );;No. 4 ((= Size 0.1251)(setq *PN-List-Washers* (list "")) );;No. 5 ((= Size 0.1380)(setq *PN-List-Washers* (list "")) );;No. 6 ((= Size 0.1640)(setq *PN-List-Washers* (list "")) );;No. 8 ((= Size 0.1900)(setq *PN-List-Washers* (list "")) );;No.10 ((= Size 0.2160)(setq *PN-List-Washers* (list "")) );;No.12 ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Washers* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Washers* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Washers* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Washers* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Washers* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Washers* (list "")) );;1-1/2 ((= Size 1.6250)(setq *PN-List-Washers* (list "")) );;1-5/8 ((= Size 1.7500)(setq *PN-List-Washers* (list "")) );;1-3/4 ((= Size 1.8750)(setq *PN-List-Washers* (list "")) );;1-7/8 ((= Size 2.0000)(setq *PN-List-Washers* (list "")) );;2 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 7)(cond ;;High Collar ((= Size 0.1120)(setq *PN-List-Washers* (list "")) );;No. 4 ((= Size 0.1251)(setq *PN-List-Washers* (list "")) );;No. 5 ((= Size 0.1380)(setq *PN-List-Washers* (list "")) );;No. 6 ((= Size 0.1640)(setq *PN-List-Washers* (list "")) );;No. 8 ((= Size 0.1900)(setq *PN-List-Washers* (list "")) );;No.10 ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Washers* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Washers* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Washers* (list "")) );;1-1/4 ((= Size 1.3750)(setq *PN-List-Washers* (list "")) );;1-3/8 ((= Size 1.5000)(setq *PN-List-Washers* (list "")) );;1-1/2 ((= Size 1.7500)(setq *PN-List-Washers* (list "")) );;1-3/4 ((= Size 2.0000)(setq *PN-List-Washers* (list "")) );;2 ((= Size 2.2500)(setq *PN-List-Washers* (list "")) );;2-1/4 ((= Size 2.5000)(setq *PN-List-Washers* (list "")) );;2-1/2 ((= Size 2.7500)(setq *PN-List-Washers* (list "")) );;2-3/4 ((= Size 3.0000)(setq *PN-List-Washers* (list "")) );;3 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 8)(cond ;;Spring Lock Reg ((= Size 0.0860)(setq *PN-List-Washers* (list "")) );;No. 2 ((= Size 0.0990)(setq *PN-List-Washers* (list "")) );;No. 3 ((= Size 0.1120)(setq *PN-List-Washers* (list "")) );;No. 4 ((= Size 0.1251)(setq *PN-List-Washers* (list "")) );;No. 5 ((= Size 0.1380)(setq *PN-List-Washers* (list "")) );;No. 6 ((= Size 0.1640)(setq *PN-List-Washers* (list "")) );;No. 8 ((= Size 0.1900)(setq *PN-List-Washers* (list "")) );;No.10 ((= Size 0.2160)(setq *PN-List-Washers* (list "")) );;No.12 ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Washers* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.6875)(setq *PN-List-Washers* (list "")) );;11/16 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8125)(setq *PN-List-Washers* (list "")) );;13/16 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 ((= Size 0.9375)(setq *PN-List-Washers* (list "")) );;15/16 ((= Size 1.0000)(setq *PN-List-Washers* (list "")) );;1 ((= Size 1.0625)(setq *PN-List-Washers* (list "")) );;1-1/16 ((= Size 1.1250)(setq *PN-List-Washers* (list "")) );;1-1/8 ((= Size 1.1875)(setq *PN-List-Washers* (list "")) );;1-3/16 ((= Size 1.2500)(setq *PN-List-Washers* (list "")) );;1-1/4 ((= Size 1.3125)(setq *PN-List-Washers* (list "")) );;1-5/16 ((= Size 1.3750)(setq *PN-List-Washers* (list "")) );;1-3/8 ((= Size 1.4375)(setq *PN-List-Washers* (list "")) );;1-7/16 ((= Size 1.5000)(setq *PN-List-Washers* (list "")) );;1-1/2 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 9)(cond ;;Spring Lock Hvy ((= Size 0.0860)(setq *PN-List-Washers* (list "")) );;No. 2 ((= Size 0.0990)(setq *PN-List-Washers* (list "")) );;No. 3 ((= Size 0.1120)(setq *PN-List-Washers* (list "")) );;No. 4 ((= Size 0.1251)(setq *PN-List-Washers* (list "")) );;No. 5 ((= Size 0.1380)(setq *PN-List-Washers* (list "")) );;No. 6 ((= Size 0.1640)(setq *PN-List-Washers* (list "")) );;No. 8 ((= Size 0.1900)(setq *PN-List-Washers* (list "")) );;No.10 ((= Size 0.2160)(setq *PN-List-Washers* (list "")) );;No.12 ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Washers* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.6875)(setq *PN-List-Washers* (list "")) );;11/16 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8125)(setq *PN-List-Washers* (list "")) );;13/16 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 ((= Size 0.9375)(setq *PN-List-Washers* (list "")) );;15/16 ((= Size 1.0000)(setq *PN-List-Washers* (list "")) );;1 ((= Size 1.0625)(setq *PN-List-Washers* (list "")) );;1-1/16 ((= Size 1.1250)(setq *PN-List-Washers* (list "")) );;1-1/8 ((= Size 1.1875)(setq *PN-List-Washers* (list "")) );;1-3/16 ((= Size 1.2500)(setq *PN-List-Washers* (list "")) );;1-1/4 ((= Size 1.3125)(setq *PN-List-Washers* (list "")) );;1-5/16 ((= Size 1.3750)(setq *PN-List-Washers* (list "")) );;1-3/8 ((= Size 1.4375)(setq *PN-List-Washers* (list "")) );;1-7/16 ((= Size 1.5000)(setq *PN-List-Washers* (list "")) );;1-1/2 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 10)(cond ;;Spring Lock Ex-Duty ((= Size 0.0860)(setq *PN-List-Washers* (list "")) );;No. 2 ((= Size 0.0990)(setq *PN-List-Washers* (list "")) );;No. 3 ((= Size 0.1120)(setq *PN-List-Washers* (list "")) );;No. 4 ((= Size 0.1251)(setq *PN-List-Washers* (list "")) );;No. 5 ((= Size 0.1380)(setq *PN-List-Washers* (list "")) );;No. 6 ((= Size 0.1640)(setq *PN-List-Washers* (list "")) );;No. 8 ((= Size 0.1900)(setq *PN-List-Washers* (list "")) );;No.10 ((= Size 0.2160)(setq *PN-List-Washers* (list "")) );;No.12 ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Washers* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.6875)(setq *PN-List-Washers* (list "")) );;11/16 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8125)(setq *PN-List-Washers* (list "")) );;13/16 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 ((= Size 0.9375)(setq *PN-List-Washers* (list "")) );;15/16 ((= Size 1.0000)(setq *PN-List-Washers* (list "")) );;1 ((= Size 1.0625)(setq *PN-List-Washers* (list "")) );;1-1/16 ((= Size 1.1250)(setq *PN-List-Washers* (list "")) );;1-1/8 ((= Size 1.1875)(setq *PN-List-Washers* (list "")) );;1-3/16 ((= Size 1.2500)(setq *PN-List-Washers* (list "")) );;1-1/4 ((= Size 1.3125)(setq *PN-List-Washers* (list "")) );;1-5/16 ((= Size 1.3750)(setq *PN-List-Washers* (list "")) );;1-3/8 ((= Size 1.4375)(setq *PN-List-Washers* (list "")) );;1-7/16 ((= Size 1.5000)(setq *PN-List-Washers* (list "")) );;1-1/2 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 11)(cond ;;Intern Tooth Lock ((= Size 0.0860)(setq *PN-List-Washers* (list "")) );;No. 2 ((= Size 0.0990)(setq *PN-List-Washers* (list "")) );;No. 3 ((= Size 0.1120)(setq *PN-List-Washers* (list "")) );;No. 4 ((= Size 0.1251)(setq *PN-List-Washers* (list "")) );;No. 5 ((= Size 0.1380)(setq *PN-List-Washers* (list "")) );;No. 6 ((= Size 0.1640)(setq *PN-List-Washers* (list "")) );;No. 8 ((= Size 0.1900)(setq *PN-List-Washers* (list "")) );;No.10 ((= Size 0.2160)(setq *PN-List-Washers* (list "")) );;No.12 ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Washers* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.6875)(setq *PN-List-Washers* (list "")) );;11/16 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8125)(setq *PN-List-Washers* (list "")) );;13/16 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Washers* (list "")) );;1 ((= Size 1.1250)(setq *PN-List-Washers* (list "")) );;1-1/8 ((= Size 1.2500)(setq *PN-List-Washers* (list "")) );;1-1/4 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 12)(cond ;;Intern Tooth Lock Hvy ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Washers* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 13)(cond ;;Extern Tooth Lock ((= Size 0.0990)(setq *PN-List-Washers* (list "")) );;No. 3 ((= Size 0.1120)(setq *PN-List-Washers* (list "")) );;No. 4 ((= Size 0.1251)(setq *PN-List-Washers* (list "")) );;No. 5 ((= Size 0.1380)(setq *PN-List-Washers* (list "")) );;No. 6 ((= Size 0.1640)(setq *PN-List-Washers* (list "")) );;No. 8 ((= Size 0.1900)(setq *PN-List-Washers* (list "")) );;No.10 ((= Size 0.2160)(setq *PN-List-Washers* (list "")) );;No.12 ((= Size 0.2500)(setq *PN-List-Washers* (list "")) );;1/4 ((= Size 0.3125)(setq *PN-List-Washers* (list "")) );;5/16 ((= Size 0.3750)(setq *PN-List-Washers* (list "")) );;3/8 ((= Size 0.4375)(setq *PN-List-Washers* (list "")) );;7/16 ((= Size 0.5000)(setq *PN-List-Washers* (list "")) );;1/2 ((= Size 0.5625)(setq *PN-List-Washers* (list "")) );;9/16 ((= Size 0.6250)(setq *PN-List-Washers* (list "")) );;5/8 ((= Size 0.6875)(setq *PN-List-Washers* (list "")) );;11/16 ((= Size 0.7500)(setq *PN-List-Washers* (list "")) );;3/4 ((= Size 0.8125)(setq *PN-List-Washers* (list "")) );;13/16 ((= Size 0.8750)(setq *PN-List-Washers* (list "")) );;7/8 ((= Size 1.0000)(setq *PN-List-Washers* (list "")) );;1 (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 14)(cond ;;Int+Ext Tooth Lock A ((= Size 0.112001)(setq *PN-List-Washers* (list "")) );;No. 4 - A ((= Size 0.112002)(setq *PN-List-Washers* (list "")) );;No. 4 - B ((= Size 0.112003)(setq *PN-List-Washers* (list "")) );;No. 4 - C ((= Size 0.138004)(setq *PN-List-Washers* (list "")) );;No. 6 - A ((= Size 0.138002)(setq *PN-List-Washers* (list "")) );;No. 6 - B ((= Size 0.138003)(setq *PN-List-Washers* (list "")) );;No. 6 - C ((= Size 0.164004)(setq *PN-List-Washers* (list "")) );;No. 8 - A ((= Size 0.164002)(setq *PN-List-Washers* (list "")) );;No. 8 - B ((= Size 0.164003)(setq *PN-List-Washers* (list "")) );;No. 8 - C ((= Size 0.190004)(setq *PN-List-Washers* (list "")) );;No.10 - A ((= Size 0.190002)(setq *PN-List-Washers* (list "")) );;No.10 - B ((= Size 0.190003)(setq *PN-List-Washers* (list "")) );;No.10 - C ((= Size 0.190004)(setq *PN-List-Washers* (list "")) );;No.10 - D ((= Size 0.216001)(setq *PN-List-Washers* (list "")) );;No.12 - A ((= Size 0.216002)(setq *PN-List-Washers* (list "")) );;No.12 - B ((= Size 0.216003)(setq *PN-List-Washers* (list "")) );;No.12 - C ((= Size 0.216004)(setq *PN-List-Washers* (list "")) );;No.12 - D ((= Size 0.250001)(setq *PN-List-Washers* (list "")) );;1/4 - A ((= Size 0.250002)(setq *PN-List-Washers* (list "")) );;1/4 - B ((= Size 0.250003)(setq *PN-List-Washers* (list "")) );;1/4 - C ((= Size 0.250004)(setq *PN-List-Washers* (list "")) );;1/4 - D ((= Size 0.312501)(setq *PN-List-Washers* (list "")) );;5/16 - A ((= Size 0.312502)(setq *PN-List-Washers* (list "")) );;5/16 - B ((= Size 0.312503)(setq *PN-List-Washers* (list "")) );;5/16 - C ((= Size 0.312504)(setq *PN-List-Washers* (list "")) );;5/16 - D ((= Size 0.375001)(setq *PN-List-Washers* (list "")) );;3/8 - A ((= Size 0.375002)(setq *PN-List-Washers* (list "")) );;3/8 - B ((= Size 0.375003)(setq *PN-List-Washers* (list "")) );;3/8 - C ((= Size 0.375004)(setq *PN-List-Washers* (list "")) );;3/8 - D ((= Size 0.437501)(setq *PN-List-Washers* (list "")) );;7/16 - A ((= Size 0.437502)(setq *PN-List-Washers* (list "")) );;7/16 - B ((= Size 0.437503)(setq *PN-List-Washers* (list "")) );;7/16 - C ((= Size 0.437504)(setq *PN-List-Washers* (list "")) );;7/16 - D ((= Size 0.500001)(setq *PN-List-Washers* (list "")) );;1/2 - A ((= Size 0.500002)(setq *PN-List-Washers* (list "")) );;1/2 - B ((= Size 0.500003)(setq *PN-List-Washers* (list "")) );;1/2 - C ((= Size 0.500004)(setq *PN-List-Washers* (list "")) );;1/2 - D ((= Size 0.562501)(setq *PN-List-Washers* (list "")) );;9/16 - A ((= Size 0.562502)(setq *PN-List-Washers* (list "")) );;9/16 - B ((= Size 0.562503)(setq *PN-List-Washers* (list "")) );;9/16 - C ((= Size 0.562504)(setq *PN-List-Washers* (list "")) );;9/16 - D ((= Size 0.625001)(setq *PN-List-Washers* (list "")) );;5/8 - A ((= Size 0.625002)(setq *PN-List-Washers* (list "")) );;5/8 - B ((= Size 0.625003)(setq *PN-List-Washers* (list "")) );;5/8 - C ((= Size 0.625004)(setq *PN-List-Washers* (list "")) );;5/8 - D (t (setq *PN-List-Washers* nil)) ));cond-Type ((= Type 15)(cond ;;Int+Ext Tooth Lock B ((= Size 0.112001)(setq *PN-List-Washers* (list "")) );;No. 4 - A ((= Size 0.112002)(setq *PN-List-Washers* (list "")) );;No. 4 - B ((= Size 0.112003)(setq *PN-List-Washers* (list "")) );;No. 4 - C ((= Size 0.138001)(setq *PN-List-Washers* (list "")) );;No. 6 - A ((= Size 0.138002)(setq *PN-List-Washers* (list "")) );;No. 6 - B ((= Size 0.138003)(setq *PN-List-Washers* (list "")) );;No. 6 - C ((= Size 0.164001)(setq *PN-List-Washers* (list "")) );;No. 8 - A ((= Size 0.164002)(setq *PN-List-Washers* (list "")) );;No. 8 - B ((= Size 0.164003)(setq *PN-List-Washers* (list "")) );;No. 8 - C ((= Size 0.190001)(setq *PN-List-Washers* (list "")) );;No.10 - A ((= Size 0.190002)(setq *PN-List-Washers* (list "")) );;No.10 - B ((= Size 0.190003)(setq *PN-List-Washers* (list "")) );;No.10 - C ((= Size 0.190004)(setq *PN-List-Washers* (list "")) );;No.10 - D ((= Size 0.216001)(setq *PN-List-Washers* (list "")) );;No.12 - A ((= Size 0.216002)(setq *PN-List-Washers* (list "")) );;No.12 - B ((= Size 0.216003)(setq *PN-List-Washers* (list "")) );;No.12 - C ((= Size 0.216004)(setq *PN-List-Washers* (list "")) );;No.12 - D ((= Size 0.250001)(setq *PN-List-Washers* (list "")) );;1/4 - A ((= Size 0.250002)(setq *PN-List-Washers* (list "")) );;1/4 - B ((= Size 0.250003)(setq *PN-List-Washers* (list "")) );;1/4 - C ((= Size 0.250004)(setq *PN-List-Washers* (list "")) );;1/4 - D ((= Size 0.312501)(setq *PN-List-Washers* (list "")) );;5/16 - A ((= Size 0.312502)(setq *PN-List-Washers* (list "")) );;5/16 - B ((= Size 0.312503)(setq *PN-List-Washers* (list "")) );;5/16 - C ((= Size 0.312504)(setq *PN-List-Washers* (list "")) );;5/16 - D ((= Size 0.375001)(setq *PN-List-Washers* (list "")) );;3/8 - A ((= Size 0.375002)(setq *PN-List-Washers* (list "")) );;3/8 - B ((= Size 0.375003)(setq *PN-List-Washers* (list "")) );;3/8 - C ((= Size 0.375004)(setq *PN-List-Washers* (list "")) );;3/8 - D ((= Size 0.437501)(setq *PN-List-Washers* (list "")) );;7/16 - A ((= Size 0.437502)(setq *PN-List-Washers* (list "")) );;7/16 - B ((= Size 0.437503)(setq *PN-List-Washers* (list "")) );;7/16 - C ((= Size 0.437504)(setq *PN-List-Washers* (list "")) );;7/16 - D ((= Size 0.500001)(setq *PN-List-Washers* (list "")) );;1/2 - A ((= Size 0.500002)(setq *PN-List-Washers* (list "")) );;1/2 - B ((= Size 0.500003)(setq *PN-List-Washers* (list "")) );;1/2 - C ((= Size 0.500004)(setq *PN-List-Washers* (list "")) );;1/2 - D ((= Size 0.562501)(setq *PN-List-Washers* (list "")) );;9/16 - A ((= Size 0.562502)(setq *PN-List-Washers* (list "")) );;9/16 - B ((= Size 0.562503)(setq *PN-List-Washers* (list "")) );;9/16 - C ((= Size 0.562504)(setq *PN-List-Washers* (list "")) );;9/16 - D ((= Size 0.625001)(setq *PN-List-Washers* (list "")) );;5/8 - A ((= Size 0.625002)(setq *PN-List-Washers* (list "")) );;5/8 - B ((= Size 0.625003)(setq *PN-List-Washers* (list "")) );;5/8 - C ((= Size 0.625004)(setq *PN-List-Washers* (list "")) );;5/8 - D (t (setq *PN-List-Washers* nil)) ));cond-Type (t (setq *PN-List-Washers* nil)) );cond-Class ;;Print out the part number listing (print (format nil "~% Here are the Washer Listing - ~% ~A" *PN-List-Washers*)) );defun