;;;; =================================================================================================================== ;;;; ;;;; Copyright (c) Dril-Quip, Inc. All rights reserved. ;;;; ;;;; ;;;; Developer Notes: ;;;; ;;;; 1. The dimensions for the thread types UNEF, UNF, UN, UNC, UNS are derived from from the Machinist Handbook v26 ;;;; 2. The threads UNEF, UN. and UNS have been linked to UNF and UNC in the coding because they don't exist already ;;;; 3. The thread colors for the threads listed above is 0.4,0.5,1.0 (sd_Invis_Color) to easily differenciate our ;;;; threads from PTC's machine feature threads. ;;;; 4. Since the thread feature creator functions have been broken out it now takes imperial measurements without ;;;; converting them to MM for unknown reasons. Therefore I have replaced all the 25.4's that were in each ;;;; chart with a local variable mm, which for now is set to 1 so that the measurements can stay in imperial. ;;;; 5. The actual thread feature cmds have been broken out from their modules for the sake of easier tweaking ;;;; 6. The dimensions for the ACME and STUB ACME threads were derived from website www.engineersedge.com. The ;;;; Associated web addresses are defined with their respected module. ;;;; ~Chris ;;;; =================================================================================================================== (in-package :custom) (use-package :oli) (defvar *PrntBrdr* "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%") ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;;; Define the Thread Feature Creator functions ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;; ==================================================================================================== (defun sd_create_imperial_thread (MaxDia MinDia ThdTPI ThdClr ThdProfile ThdHand ThdName ThdFace ThdNameString) ;;;; ==================================================================================================== ;;Logit (print(format nil "~A~% >> Creating the wanted thread on the selected face" *PrntBrdr*)) ;;Check for metric threads (setf IsItMetric (cond((or(sd-string= (format nil "~s" ThdProfile) ":M" ) (sd-string= (format nil "~s" ThdProfile) ":MF" ) (sd-string= (format nil "~s" ThdProfile) ":BSW") (sd-string= (format nil "~s" ThdProfile) ":BSF") ) 1);is metric (t 0);is imperial );cond WhatIsIt (cond ((= IsItMetric 1) "Metric" ) ((= IsItMetric 0) "Imperial") ) );setf (print (format nil " >> Thread Type -> ~A" WhatIsIt)) ;;Check the face's Diameter (setf MaxDiaStr (sd-write-to-string MaxDia 5) MaxDia (sd-read-from-string MaxDiaStr) FaceProp (sd-inq-geo-props ThdFace :dest-space :local) FaceRadStrng (sd-write-to-string (*(/(sd-cylinder-radius FaceProp)25.4)2)5) FaceDia (sd-read-from-string FaceRadStrng) );setf (print (format nil " >> MaxDia = ~A ||| String - ~A~% >> FaceDia = ~A ||| String = ~A" MaxDia MaxDiaStr FaceDia FaceRadStrng)) (cond ((equal MaxDia FaceDia)(print " >> They're the same Dia, YAY!")) (t(cond ((= IsItMetric 1)(sd-call-cmds(NewChangeRad;;Metric :diameter_mode :on :check_fix :on :keep_tangent :no :blend_auto :yes :update_rels :yes :faces ThdFace MaxDia )) ) ((= IsItMetric 0)(sd-call-cmds(NewChangeRad;;Imperial :diameter_mode :on :check_fix :on :keep_tangent :no :blend_auto :yes :update_rels :yes :faces ThdFace (* MaxDia 25.4) )) ) )) );cond ;;Now Check to see what thread we're creating and create it (print(format nil "~% >> Max Dia -> ~A~% >> Min Dia -> ~A~%" (sd-write-to-string MaxDia 6) (sd-write-to-string MinDia 6))) ;(setf ThdExIn (cond ((> MaxDia MinDia)"External") ((< MaxDia MinDia)"Internal") ) ) ;(print(format nil " >> This is an ~A thread~%" ThdExIn)) (cond ((> MaxDia MinDia)(progn (print " >> Creating an External Thread") (sd-call-cmds (sd-define-thread ThdFace :nominal-diameter (cond ((= IsItMetric 0)(* MaxDia 25.4))(t MaxDia) ) :core-diameter (cond ((= IsItMetric 0)(* MinDia 25.4))(t MinDia) ) :tpi ThdTPI :thread-type :outer :thread-unit :inch :thread-color (cond ((= ThdClr 1)0.25,0.25,1.00);;Blue ((= ThdClr 2)1.00,0.00,0.00);;Red ((= ThdClr 3)0.60,0.00,1.00);;Purple ((= ThdClr 4)0.00,0.67,0.33);;Green );cond :thread-direction :cyl-axis :thread-profile ThdProfile :thread-hand ThdHand :thread-name ThdName :include-chamfer t) :success (print " >> Success!") :failure (print " >> Failed!") ) ));External ((< MaxDia MinDia)(progn (print " >> Creating an Internal Thread") (sd-call-cmds (sd-define-thread ThdFace :nominal-diameter (cond ((= IsItMetric 0)(* MinDia 25.4))(t MinDia) ) :core-diameter (cond ((= IsItMetric 0)(* MaxDia 25.4))(t MaxDia) ) :tpi ThdTPI :thread-type :inner :thread-unit :inch :thread-color (cond ((= ThdClr 1)0.25,0.25,1.00);;Blue ((= ThdClr 2)1.00,0.00,0.00);;Red ((= ThdClr 3)0.60,0.00,1.00);;Purple ((= ThdClr 4)0.00,0.67,0.33);;Green );cond :thread-direction :cyl-axis :thread-profile ThdProfile :thread-hand ThdHand :thread-name ThdName :include-chamfer t) :success (print " >> Success!") :failure (print " >> Failed!") ) ));Internal (t (sd-display-alert "This isn't a thread")) );cond ;;Apply a custom feature lable (print " >> Adding the Thread Info Tag") (sd-call-cmds (cocreate_3d_note :action :create :items ThdFace :category :mfg :note ThdNameString)) );defun ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;;; Define the Thread Information compilers ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% (defvar *Thd_EMaxDia* 0) (defvar *Thd_EMinDia* 0) (defvar *Thd_IMaxDia* 0) (defvar *Thd_IMinDia* 0) (defvar *Thd_NameStr* nil) (defvar *Thd_Info_List_Sizes* nil) (defvar *Thd_Info_List_TPI* nil) (defvar *Thd_Info_List_Class* nil) (defvar *Thd_Drill_Size*) (defvar *Thd_Info_List_M_Pitch* nil) (defvar *GetThreadSizes* nil) ;;;; ==================================================================================================== (defun sd_compile_thread_size (Profile) ;;;; ==================================================================================================== ;;Setup a profile variable (setf Prof (cond ((= Profile 01) "UNEF" ) ((= Profile 06) "UNREF" ) ((= Profile 02) "UNF" ) ((= Profile 07) "UNRF" ) ((= Profile 03) "UN" ) ((= Profile 08) "UNR" ) ((= Profile 04) "UNC" ) ((= Profile 09) "UNRC" ) ((= Profile 05) "UNS" ) ((= Profile 10) "UNRS" ) ((= Profile 11) "NPSM" ) ((= Profile 12) "NPSL" ) ((= Profile 13) "M" ) ((= Profile 14) "MF" ) ) );setf ;;Document what's going on through the print dialog (print (format nil "~A~% Compiling a listing of thread Sizes - ~% >> Profile = ~A" *PrntBrdr* Prof)) ;;Now create a listing of the available sizes per profile. (cond ;;UNEF / UNREF ((or(= Profile 01)(= Profile 06))(setq *GetThreadSizes* (list (list 0.2160 :label "No 12") (list 0.2500 :label "1/4") (list 0.3125 :label "5/16") (list 0.3750 :label "3/8") (list 0.4375 :label "7/16") (list 0.5000 :label "1/2") (list 0.5625 :label "9/16") (list 0.6250 :label "5/8") (list 0.6875 :label "11/16") (list 0.7500 :label "3/4") (list 0.8125 :label "13/16") (list 0.8750 :label "7/8") (list 1.0000 :label "1") (list 1.0625 :label "1-1/16") (list 1.1250 :label "1-1/8") (list 1.1875 :label "1-3/16") (list 1.2500 :label "1-1/4") (list 1.3125 :label "1-5/16") (list 1.3750 :label "1-3/8") (list 1.4375 :label "1-7/16") (list 1.5000 :label "1-1/2") (list 1.5625 :label "1-9/16") (list 1.6250 :label "1-5/8") (list 1.6875 :label "1-11/16") ))) ;;UNF / UNRF ((or(= Profile 02)(= Profile 07))(setq *GetThreadSizes* (list (list 0.0600 :label "No 0") (list 0.0730 :label "No 1") (list 0.0860 :label "No 2") (list 0.0990 :label "No 3") (list 0.1120 :label "No 4") (list 0.1251 :label "No 5") (list 0.1380 :label "No 6") (list 0.1640 :label "No 8") (list 0.1900 :label "No 10") (list 0.2160 :label "No 12") (list 0.2500 :label "1/4") (list 0.3125 :label "5/16") (list 0.3750 :label "3/8") (list 0.4375 :label "7/16") (list 0.5000 :label "1/2") (list 0.5625 :label "9/16") (list 0.6250 :label "5/8") (list 0.7500 :label "3/4") (list 0.8750 :label "7/8") (list 1.0000 :label "1") (list 1.1250 :label "1-1/8") (list 1.2500 :label "1-1/4") (list 1.3750 :label "1-3/8") (list 1.5000 :label "1-1/2") ))) ;;UN / UN ((or(= Profile 03)(= Profile 08))(setq *GetThreadSizes* (list (list 0.3125 :label "5/16") (list 0.3750 :label "3/8") (list 0.4375 :label "7/16") (list 0.5000 :label "1/2") (list 0.5625 :label "9/16") (list 0.6250 :label "5/8") (list 0.6875 :label "11/16") (list 0.7500 :label "3/4") (list 0.8125 :label "13/16") (list 0.8750 :label "7/8") (list 0.9375 :label "15/16") (list 1.0000 :label "1") (list 1.0625 :label "1-1/16") (list 1.1250 :label "1-1/8") (list 1.1875 :label "1-3/16") (list 1.2500 :label "1-1/4") (list 1.3125 :label "1-5/16") (list 1.3750 :label "1-3/8") (list 1.4375 :label "1-7/16") (list 1.5000 :label "1-1/2") (list 1.5625 :label "1-9/16") (list 1.6250 :label "1-5/8") (list 1.6875 :label "1-11/16")(list 1.7500 :label "1-3/4") (list 1.8125 :label "1-13/16") (list 1.8750 :label "1-7/8") (list 1.9375 :label "1-15/16")(list 2.0000 :label "2") (list 2.1250 :label "2-1/8") (list 2.2500 :label "2-1/4") (list 2.3750 :label "2-3/8") (list 2.5000 :label "2-1/2") (list 2.6250 :label "2-5/8") (list 2.7500 :label "2-3/4") (list 2.8750 :label "2-7/8") (list 3.0000 :label "3") (list 3.1250 :label "3-1/8") (list 3.2500 :label "3-1/4") (list 3.3750 :label "3-3/8") (list 3.5000 :label "3-1/2") (list 3.6250 :label "3-5/8") (list 3.7500 :label "3-3/4") (list 3.8750 :label "3-7/8") (list 4.0000 :label "4") ))) ;;UNC / UNRC ((or(= Profile 04)(= Profile 09))(setq *GetThreadSizes* (list (list 0.0730 :label "No 1") (list 0.0860 :label "No 2") (list 0.0990 :label "No 3") (list 0.1120 :label "No 4") (list 0.1251 :label "No 5") (list 0.1380 :label "No 6") (list 0.1640 :label "No 8") (list 0.1032 :label "No 10") (list 0.1228 :label "No 12") (list 0.2500 :label "1/4") (list 0.3125 :label "5/16") (list 0.3750 :label "3/8") (list 0.4375 :label "7/16") (list 0.5000 :label "1/2") (list 0.5625 :label "9/16") (list 0.6250 :label "5/8") (list 0.7500 :label "3/4") (list 0.8750 :label "7/8") (list 1.0000 :label "1") (list 1.1250 :label "1-1/8") (list 1.2500 :label "1-1/4") (list 1.3750 :label "1-3/8") (list 1.5000 :label "1-1/2") (list 1.7500 :label "1-3/4") (list 2.0000 :label "2") (list 2.2500 :label "2-1/4") (list 2.5000 :label "2-1/2") (list 2.7500 :label "2-3/4") (list 3.0000 :label "3") (list 3.2500 :label "3-1/4") (list 3.5000 :label "3-1/2") (list 3.7500 :label "3-3/4") (list 4.0000 :label "4") ))) ;;UNS / UNRS ((or(= Profile 05)(= Profile 10))(setq *GetThreadSizes* (list (list 0.1900 :label "No 10") (list 0.2160 :label "No 12") (list 0.2500 :label "1/4") (list 0.3125 :label "5/16") (list 0.3750 :label "3/8") (list 0.3900 :label "0.390") (list 0.4375 :label "7/16") (list 0.5000 :label "1/2") (list 0.5625 :label "9/16") (list 0.6250 :label "5/8") (list 0.7500 :label "3/4") (list 0.8750 :label "7/8") (list 1.0000 :label "1") (list 1.1250 :label "1-1/8") (list 1.2500 :label "1-1/4") (list 1.3750 :label "1-3/8") (list 1.5000 :label "1-1/4") (list 1.6250 :label "1-5/8") (list 1.7500 :label "1-3/4") (list 1.8750 :label "1-7/8") (list 2.0000 :label "2") (list 2.0625 :label "2-1/16") (list 2.1875 :label "2-3/16") (list 2.2500 :label "2-1/4") (list 2.3125 :label "2-5/16") (list 2.4375 :label "2-7/16") (list 2.5000 :label "2-1/2") (list 2.7500 :label "2-3/4") (list 3.0000 :label "3") (list 3.2500 :label "3-1/4") (list 3.5000 :label "3-1/2") (list 3.7500 :label "3-3/4") (list 4.0000 :label "4") ))) ;;NPSM ((= Profile 11)(setq *GetThreadSizes* (list (list 0.1250 :label "1/8") (list 0.2500 :label "1/4") (list 0.3750 :label "3/8") (list 0.5000 :label "1/2") (list 0.7500 :label "3/4") (list 1.0000 :label "1") (list 1.2500 :label "1-1/4") (list 1.5000 :label "1-1/2") (list 2.0000 :label "2") (list 2.5000 :label "2-1/2") (list 3.0000 :label "3") (list 3.5000 :label "3-1/2") (list 4.0000 :label "4") (list 5.0000 :label "5") (list 6.0000 :label "6") ))) ;;NPSL ((= Profile 12)(setq *GetThreadSizes* (list (list 0.1250 :label "1/8") (list 0.2500 :label "1/4") (list 0.3750 :label "3/8") (list 0.5000 :label "1/2") (list 0.7500 :label "3/4") (list 1.0000 :label "1") (list 1.2500 :label "1-1/4") (list 1.5000 :label "1-1/2") (list 2.0000 :label "2") (list 2.5000 :label "2-1/2") (list 3.0000 :label "3") (list 3.5000 :label "3-1/2") (list 4.0000 :label "4") (list 5.0000 :label "5") (list 6.0000 :label "6") (list 8.0000 :label "8") (list 10.000 :label "10") (list 12.000 :label "12") ))) ;;Metric ((= Profile 13)(setq *GetThreadSizes* (list (list 1.6 :label " 1.6") (list 2 :label " 2") (list 2.5 :label " 2.5") (list 3 :label " 3") (list 3.5 :label " 3.5") (list 4 :label " 4") (list 5 :label " 5") (list 6 :label " 6") (list 8 :label " 8") (list 10 :label " 10") (list 12 :label " 12") (list 14 :label " 14") (list 15 :label " 15") (list 16 :label " 16") (list 17 :label " 17") (list 18 :label " 18") (list 20 :label " 20") (list 22 :label " 22") (list 24 :label " 24") (list 25 :label " 25") (list 27 :label " 27") (list 30 :label " 30") (list 33 :label " 33") (list 35 :label " 35") (list 36 :label " 36") (list 39 :label " 39") (list 40 :label " 40") (list 42 :label " 42") (list 45 :label " 45") (list 48 :label " 48") (list 50 :label " 50") (list 55 :label " 55") (list 56 :label " 56") (list 60 :label " 60") (list 64 :label " 64") (list 65 :label " 65") (list 70 :label " 70") (list 72 :label " 72") (list 75 :label " 75") (list 80 :label " 80") (list 85 :label " 85") (list 90 :label " 90") (list 100 :label "100") (list 105 :label "105") (list 110 :label "110") (list 120 :label "120") (list 130 :label "130") (list 140 :label "140") (list 160 :label "160") (list 170 :label "170") (list 180 :label "180") (list 190 :label "190") (list 200 :label "200") ))) );cond (print (format nil "~A~% >> Sizes = ~% ~A" *PrntBrdr* *GetThreadSizes*)) );defun ;;;; ==================================================================================================== (defun sd_compile_thread_tpi (Profile Size) ;;;; ==================================================================================================== ;;Turn the size into a string to get rid of the trailing zeros (setf Size (sd-write-to-string size 4)) ;;First breakdown the profile because some of them use the same one (setf Profile0 (cond ((= Profile 1)"UNEF") ((= Profile 2)"UNF") ((= Profile 3)"UN") ((= Profile 4)"UNC") ((= Profile 5)"UNS") ((= Profile 6)"UNREF")((= Profile 7)"UNRF")((= Profile 8)"UNR")((= Profile 9)"UNRC")((= Profile 10)"UNRS") ) ) (print(format nil "~A~% Compiling a listing of thread TPI's~% >> Thread Type = ~A~% >> Thread Size = ~A" *PrntBrdr* Profile0 Size)) ;(print (format nil "Sorting for the profile ~A" Profile0)) ;;Break down the profile and sizes to compile a TPI listing ;(print (format nil "Sorting by the thread size ~A" Size)) (cond ((or(= Profile 01)(= Profile 06))(cond;;UNEF / UNREF ((equal Size "0.216") (setq *Thd_Info_List_TPI* (list 32)) );;Size # 12 ((equal Size "0.25") (setq *Thd_Info_List_TPI* (list 32)) );;Size 1/4 ((equal Size "0.3125")(setq *Thd_Info_List_TPI* (list 32)) );;Size 5/16 ((equal Size "0.375") (setq *Thd_Info_List_TPI* (list 32)) );;Size 3/8 ((equal Size "0.4375")(setq *Thd_Info_List_TPI* (list 28)) );;Size 7/16 ((equal Size "0.5") (setq *Thd_Info_List_TPI* (list 28)) );;Size 1/2 ((equal Size "0.5625")(setq *Thd_Info_List_TPI* (list 24)) );;Size 9/16 ((equal Size "0.625") (setq *Thd_Info_List_TPI* (list 24)) );;Size 5/8 ((equal Size "0.6875")(setq *Thd_Info_List_TPI* (list 24)) );;Size 11/16 ((equal Size "0.75") (setq *Thd_Info_List_TPI* (list 20)) );;Size 3/4 ((equal Size "0.8125")(setq *Thd_Info_List_TPI* (list 20)) );;Size 13/16 ((equal Size "0.875") (setq *Thd_Info_List_TPI* (list 20)) );;Size 7/8 ((equal Size "1") (setq *Thd_Info_List_TPI* (list 20)) );;Size 1 ((equal Size "1.0625")(setq *Thd_Info_List_TPI* (list 18)) );;Size 1-1/16 ((equal Size "1.125") (setq *Thd_Info_List_TPI* (list 18)) );;Size 1-1/8 ((equal Size "1.1875")(setq *Thd_Info_List_TPI* (list 18)) );;Size 1-3/16 ((equal Size "1.25") (setq *Thd_Info_List_TPI* (list 18)) );;Size 1-1/4 ((equal Size "1.3125")(setq *Thd_Info_List_TPI* (list 18)) );;Size 1-5/16 ((equal Size "1.375") (setq *Thd_Info_List_TPI* (list 18)) );;Size 1-3/8 ((equal Size "1.4375")(setq *Thd_Info_List_TPI* (list 18)) );;Size 1-7/16 ((equal Size "1.5") (setq *Thd_Info_List_TPI* (list 18)) );;Size 1-1/2 ((equal Size "1.5625")(setq *Thd_Info_List_TPI* (list 18)) );;Size 1-9/16 ((equal Size "1.625") (setq *Thd_Info_List_TPI* (list 18)) );;Size 1-5/8 ((equal Size "1.6875")(setq *Thd_Info_List_TPI* (list 18)) );;Size 1-11/16 (t(progn(setq *Thd_Info_List_TPI* (write(list 0))) (sd-display-alert "There is no TPI for this size") )) ));;Profile=1 ((or(= Profile 02)(= Profile 07))(cond;;UNF / UNRF ((equal Size "0.06") (setq *Thd_Info_List_TPI* (list 80)) );;Size # 0 ((equal Size "0.073") (setq *Thd_Info_List_TPI* (list 70)) );;Size # 1 ((equal Size "0.086") (setq *Thd_Info_List_TPI* (list 60)) );;Size # 2 ((equal Size "0.099") (setq *Thd_Info_List_TPI* (list 56)) );;Size # 3 ((equal Size "0.112") (setq *Thd_Info_List_TPI* (list 48)) );;Size # 4 ((equal Size "0.1251")(setq *Thd_Info_List_TPI* (list 44)) );;Size # 5 ((equal Size "0.138") (setq *Thd_Info_List_TPI* (list 40)) );;Size # 6 ((equal Size "0.164") (setq *Thd_Info_List_TPI* (list 36)) );;Size # 8 ((equal Size "0.19") (setq *Thd_Info_List_TPI* (list 32)) );;Size # 10 ((equal Size "0.216") (setq *Thd_Info_List_TPI* (list 28)) );;Size # 12 ((equal Size "0.25") (setq *Thd_Info_List_TPI* (list 28)) );;Size 1/4 ((equal Size "0.3125")(setq *Thd_Info_List_TPI* (list 24)) );;Size 5/16 ((equal Size "0.375") (setq *Thd_Info_List_TPI* (list 24)) );;Size 3/8 ((equal Size "0.4375")(setq *Thd_Info_List_TPI* (list 20)) );;Size 7/16 ((equal Size "0.5") (setq *Thd_Info_List_TPI* (list 20)) );;Size 1/2 ((equal Size "0.5625")(setq *Thd_Info_List_TPI* (list 18)) );;Size 9/16 ((equal Size "0.625") (setq *Thd_Info_List_TPI* (list 18)) );;Size 5/8 ((equal Size "0.75") (setq *Thd_Info_List_TPI* (list 16)) );;Size 3/4 ((equal Size "0.875") (setq *Thd_Info_List_TPI* (list 14)) );;Size 7/8 ((equal Size "1") (setq *Thd_Info_List_TPI* (list 12)) );;Size 1 ((equal Size "1.125") (setq *Thd_Info_List_TPI* (list 12)) );;Size 1-1/8 ((equal Size "1.25") (setq *Thd_Info_List_TPI* (list 12)) );;Size 1-1/4 ((equal Size "1.375") (setq *Thd_Info_List_TPI* (list 12)) );;Size 1-3/8 ((equal Size "1.5") (setq *Thd_Info_List_TPI* (list 12)) );;Size 1-1/2 (t(progn(setq *Thd_Info_List_TPI* (write(list 0))) (sd-display-alert "There is no TPI for this size") )) ));;Profile=2 ((or(= Profile 03)(= Profile 08))(cond;;UN / UNR ((equal Size "0.3125")(setq *Thd_Info_List_TPI* (list 20 28 )) );;Size 5/16 ((equal Size "0.375") (setq *Thd_Info_List_TPI* (list 20 28 )) );;Size 3/8 ((equal Size "0.4375")(setq *Thd_Info_List_TPI* (list 16 32 )) );;Size 7/16 ((equal Size "0.5") (setq *Thd_Info_List_TPI* (list 16 32 )) );;Size 1/2 ((equal Size "0.5625")(setq *Thd_Info_List_TPI* (list 16 20 28 32 )) );;Size 9/16 ((equal Size "0.625") (setq *Thd_Info_List_TPI* (list 12 16 20 28 32 )) );;Size 5/8 ((equal Size "0.6875")(setq *Thd_Info_List_TPI* (list 12 16 20 28 32 )) );;Size 11/16 ((equal Size "0.75") (setq *Thd_Info_List_TPI* (list 12 28 32 )) );;Size 3/4 ((equal Size "0.8125")(setq *Thd_Info_List_TPI* (list 12 16 28 32 )) );;Size 13/16 ((equal Size "0.875") (setq *Thd_Info_List_TPI* (list 12 16 28 32 )) );;Size 7/8 ((equal Size "0.9375")(setq *Thd_Info_List_TPI* (list 12 16 28 32 )) );;Size 15/16 ((equal Size "1") (setq *Thd_Info_List_TPI* (list 16 28 32 )) );;Size 1 ((equal Size "1.0625")(setq *Thd_Info_List_TPI* (list 8 12 16 20 28 )) );;Size 1-1/16 ((equal Size "1.125") (setq *Thd_Info_List_TPI* (list 8 16 20 28 )) );;Size 1-1/8 ((equal Size "1.1875")(setq *Thd_Info_List_TPI* (list 8 12 16 20 28 )) );;Size 1-3/16 ((equal Size "1.25") (setq *Thd_Info_List_TPI* (list 8 16 20 28 )) );;Size 1-1/4 ((equal Size "1.3125")(setq *Thd_Info_List_TPI* (list 8 12 16 20 28 )) );;Size 1-5/16 ((equal Size "1.375") (setq *Thd_Info_List_TPI* (list 8 16 20 28 )) );;Size 1-3/8 ((equal Size "1.4375")(setq *Thd_Info_List_TPI* (list 6 8 12 16 20 28 )) );;Size 1-7/16 ((equal Size "1.5") (setq *Thd_Info_List_TPI* (list 8 16 20 28 )) );;Size 1-1/2 ((equal Size "1.5625")(setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 1-9/16 ((equal Size "1.625") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 1-5/8 ((equal Size "1.6875")(setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 1-11/16 ((equal Size "1.75") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 1-3/4 ((equal Size "1.8125")(setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 1-13/16 ((equal Size "1.875") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 1-7/8 ((equal Size "1.9375")(setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 1-15/16 ((equal Size "2") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 2 ((equal Size "2.125") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 2-1/8 ((equal Size "2.25") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 2-1/4 ((equal Size "2.375") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 2-3/8 ((equal Size "2.5") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 2-1/2 ((equal Size "2.625") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 2-5/8 ((equal Size "2.75") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 2-3/4 ((equal Size "2.875") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 2-7/8 ((equal Size "3") (setq *Thd_Info_List_TPI* (list 6 8 12 16 20 )) );;Size 3 ((equal Size "3.125") (setq *Thd_Info_List_TPI* (list 6 8 12 16 )) );;Size 3-1/8 ((equal Size "3.25") (setq *Thd_Info_List_TPI* (list 6 8 12 16 )) );;Size 3-1/4 ((equal Size "3.375") (setq *Thd_Info_List_TPI* (list 6 8 12 16 )) );;Size 3-3/8 ((equal Size "3.5") (setq *Thd_Info_List_TPI* (list 6 8 12 16 )) );;Size 3-1/2 ((equal Size "3.625") (setq *Thd_Info_List_TPI* (list 6 8 12 16 )) );;Size 3-5/8 ((equal Size "3.75") (setq *Thd_Info_List_TPI* (list 6 8 12 16 )) );;Size 3-3/4 ((equal Size "3.875") (setq *Thd_Info_List_TPI* (list 6 8 12 16 )) );;Size 3-7/8 ((equal Size "4") (setq *Thd_Info_List_TPI* (list 6 8 12 16 )) );;Size 4 (t(progn(setq *Thd_Info_List_TPI* (write(list 0))) (sd-display-alert "There is no TPI for this size") )) ));;Profile=3 ((or(= Profile 04)(= Profile 09))(cond;;UNC / UNRC ((equal Size "0.073") (setq *Thd_Info_List_TPI* (list 64 )) );;Size No 1 ((equal Size "0.086") (setq *Thd_Info_List_TPI* (list 56 )) );;Size No 2 ((equal Size "0.099") (setq *Thd_Info_List_TPI* (list 48 )) );;Size No 3 ((equal Size "0.112") (setq *Thd_Info_List_TPI* (list 40 )) );;Size No 4 ((equal Size "0.1251")(setq *Thd_Info_List_TPI* (list 40 )) );;Size No 5 ((equal Size "0.138") (setq *Thd_Info_List_TPI* (list 32 )) );;Size No 6 ((equal Size "0.164") (setq *Thd_Info_List_TPI* (list 32 )) );;Size No 8 ((equal Size "0.1032")(setq *Thd_Info_List_TPI* (list 24 )) );;Size No 10 ((equal Size "0.1228")(setq *Thd_Info_List_TPI* (list 24 )) );;Size No 12 ((equal Size "0.25") (setq *Thd_Info_List_TPI* (list 20 )) );;Size 1/4 ((equal Size "0.3125")(setq *Thd_Info_List_TPI* (list 18 )) );;Size 5/16 ((equal Size "0.375") (setq *Thd_Info_List_TPI* (list 16 )) );;Size 3/8 ((equal Size "0.4375")(setq *Thd_Info_List_TPI* (list 14 )) );;Size 7/16 ((equal Size "0.5") (setq *Thd_Info_List_TPI* (list 13 )) );;Size 1/2 ((equal Size "0.5625")(setq *Thd_Info_List_TPI* (list 12 )) );;Size 9/16 ((equal Size "0.625") (setq *Thd_Info_List_TPI* (list 11 )) );;Size 5/8 ((equal Size "0.75") (setq *Thd_Info_List_TPI* (list 10 )) );;Size 3/4 ((equal Size "0.875") (setq *Thd_Info_List_TPI* (list 9 )) );;Size 7/8 ((equal Size "1") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 1 ((equal Size "1.125") (setq *Thd_Info_List_TPI* (list 7 )) );;Size 1-1/8 ((equal Size "1.25") (setq *Thd_Info_List_TPI* (list 7 )) );;Size 1-1/4 ((equal Size "1.375") (setq *Thd_Info_List_TPI* (list 6 )) );;Size 1-3/8 ((equal Size "1.5") (setq *Thd_Info_List_TPI* (list 6 )) );;Size 1-1/2 ((equal Size "1.75") (setq *Thd_Info_List_TPI* (list 5 )) );;Size 1-3/4 ((equal Size "2") (setq *Thd_Info_List_TPI* (list 4.5 )) );;Size 2 ((equal Size "2.25") (setq *Thd_Info_List_TPI* (list 4.5 )) );;Size 2-1/4 ((equal Size "2.5") (setq *Thd_Info_List_TPI* (list 4 )) );;Size 2-1/2 ((equal Size "2.75") (setq *Thd_Info_List_TPI* (list 4 )) );;Size 2-3/4 ((equal Size "3") (setq *Thd_Info_List_TPI* (list 4 )) );;Size 3 ((equal Size "3.25") (setq *Thd_Info_List_TPI* (list 4 )) );;Size 3-1/4 ((equal Size "3.5") (setq *Thd_Info_List_TPI* (list 4 )) );;Size 3-1/2 ((equal Size "3.75") (setq *Thd_Info_List_TPI* (list 4 )) );;Size 3-3/4 ((equal Size "4") (setq *Thd_Info_List_TPI* (list 4 )) );;Size 4 (t(progn(setq *Thd_Info_List_TPI* (write(list 0))) (sd-display-alert "There is no TPI for this size") )) ));;Profile=4 ((or(= Profile 05)(= Profile 10))(cond;;UNS / UNRS ((equal Size "0.19") (setq *Thd_Info_List_TPI* (list 28 36 40 48 56 )) );;Size No 10 ((equal Size "0.216") (setq *Thd_Info_List_TPI* (list 36 40 48 56 )) );;Size No 12 ((equal Size "0.25") (setq *Thd_Info_List_TPI* (list 24 27 36 40 48 56 )) );;Size 1/4 ((equal Size "0.3125")(setq *Thd_Info_List_TPI* (list 27 36 40 48 )) );;Size 5/16 ((equal Size "0.375") (setq *Thd_Info_List_TPI* (list 18 27 36 40 )) );;Size 3/8 ((equal Size "0.39") (setq *Thd_Info_List_TPI* (list 27 )) );;Size 0.390 ((equal Size "0.4375")(setq *Thd_Info_List_TPI* (list 18 24 27 )) );;Size 7/16 ((equal Size "0.5") (setq *Thd_Info_List_TPI* (list 12 14 18 24 27 )) );;Size 1/2 ((equal Size "0.5625")(setq *Thd_Info_List_TPI* (list 14 27 )) );;Size 9/16 ((equal Size "0.625") (setq *Thd_Info_List_TPI* (list 14 27 )) );;Size 5/8 ((equal Size "0.75") (setq *Thd_Info_List_TPI* (list 14 18 24 28 )) );;Size 3/4 ((equal Size "0.875") (setq *Thd_Info_List_TPI* (list 10 18 24 27 )) );;Size 7/8 ((equal Size "1") (setq *Thd_Info_List_TPI* (list 10 14 18 24 27 )) );;Size 1 ((equal Size "1.125") (setq *Thd_Info_List_TPI* (list 10 14 24 )) );;Size 1-1/8 ((equal Size "1.25") (setq *Thd_Info_List_TPI* (list 10 14 24 )) );;Size 1-1/4 ((equal Size "1.375") (setq *Thd_Info_List_TPI* (list 10 14 24 )) );;Size 1-3/8 ((equal Size "1.5") (setq *Thd_Info_List_TPI* (list 10 14 24 )) );;Size 1-1/4 ((equal Size "1.625") (setq *Thd_Info_List_TPI* (list 10 14 24 )) );;Size 1-5/8 ((equal Size "1.75") (setq *Thd_Info_List_TPI* (list 10 14 24 )) );;Size 1-3/4 ((equal Size "1.875") (setq *Thd_Info_List_TPI* (list 10 14 24 )) );;Size 1-7/8 ((equal Size "2") (setq *Thd_Info_List_TPI* (list 10 14 24 )) );;Size 2 ((equal Size "2.0625")(setq *Thd_Info_List_TPI* (list 16 )) );;Size 2-1/16 ((equal Size "2.1875")(setq *Thd_Info_List_TPI* (list 16 )) );;Size 2-3/16 ((equal Size "2.25") (setq *Thd_Info_List_TPI* (list 10 14 18 )) );;Size 2-1/4 ((equal Size "2.3125")(setq *Thd_Info_List_TPI* (list 16 )) );;Size 2-5/16 ((equal Size "2.4375")(setq *Thd_Info_List_TPI* (list 16 )) );;Size 2-7/16 ((equal Size "2.5") (setq *Thd_Info_List_TPI* (list 10 14 18 )) );;Size 2-1/2 ((equal Size "2.75") (setq *Thd_Info_List_TPI* (list 10 14 18 )) );;Size 2-3/4 ((equal Size "3") (setq *Thd_Info_List_TPI* (list 10 14 18 )) );;Size 3 ((equal Size "3.25") (setq *Thd_Info_List_TPI* (list 10 14 18 )) );;Size 3-1/4 ((equal Size "3.5") (setq *Thd_Info_List_TPI* (list 10 14 18 )) );;Size 3-1/2 ((equal Size "3.75") (setq *Thd_Info_List_TPI* (list 10 14 18 )) );;Size 3-3/4 ((equal Size "4") (setq *Thd_Info_List_TPI* (list 10 14 )) );;Size 4 (t(progn(setq *Thd_Info_List_TPI* (write(list 0))) (sd-display-alert "There is no TPI for this size") )) ));;Profile=5 ((= Profile 11)(cond;;NPSM ((equal Size "0.125")(setq *Thd_Info_List_TPI* (list 27 )) );;Size 1/8 ((equal Size "0.25") (setq *Thd_Info_List_TPI* (list 18 )) );;Size 1/4 ((equal Size "0.375")(setq *Thd_Info_List_TPI* (list 18 )) );;Size 3/8 ((equal Size "0.5") (setq *Thd_Info_List_TPI* (list 14 )) );;Size 1/2 ((equal Size "0.75") (setq *Thd_Info_List_TPI* (list 14 )) );;Size 3/4 ((equal Size "1") (setq *Thd_Info_List_TPI* (list (list 11.5 :label "11-1/2") )) );;Size 1 ((equal Size "1.25") (setq *Thd_Info_List_TPI* (list (list 11.5 :label "11-1/2") )) );;Size 1-1/4 ((equal Size "1.5") (setq *Thd_Info_List_TPI* (list (list 11.5 :label "11-1/2") )) );;Size 1-1/2 ((equal Size "2") (setq *Thd_Info_List_TPI* (list (list 11.5 :label "11-1/2") )) );;Size 2 ((equal Size "2.5") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 2-1/2 ((equal Size "3") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 3 ((equal Size "3.5") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 3-1/2 ((equal Size "4") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 4 ((equal Size "5") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 5 ((equal Size "6") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 6 ));Profile 11 ((= Profile 12)(cond;;NPSL ((equal Size "0.125")(setq *Thd_Info_List_TPI* (list 27 )) );;Size 1/8 ((equal Size "0.25") (setq *Thd_Info_List_TPI* (list 18 )) );;Size 1/4 ((equal Size "0.375")(setq *Thd_Info_List_TPI* (list 18 )) );;Size 3/8 ((equal Size "0.5") (setq *Thd_Info_List_TPI* (list 14 )) );;Size 1/2 ((equal Size "0.75") (setq *Thd_Info_List_TPI* (list 14 )) );;Size 3/4 ((equal Size "1") (setq *Thd_Info_List_TPI* (list (list 11.5 :label "11-1/2") )) );;Size 1 ((equal Size "1.25") (setq *Thd_Info_List_TPI* (list (list 11.5 :label "11-1/2") )) );;Size 1-1/4 ((equal Size "1.5") (setq *Thd_Info_List_TPI* (list (list 11.5 :label "11-1/2") )) );;Size 1-1/2 ((equal Size "2") (setq *Thd_Info_List_TPI* (list (list 11.5 :label "11-1/2") )) );;Size 2 ((equal Size "2.5") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 2-1/2 ((equal Size "3") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 3 ((equal Size "3.5") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 3-1/2 ((equal Size "4") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 4 ((equal Size "5") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 5 ((equal Size "6") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 6 ((equal Size "8") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 8 ((equal Size "10") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 10 ((equal Size "12") (setq *Thd_Info_List_TPI* (list 8 )) );;Size 12 ));Profile 12 );cond ;;Print out the listing of the TPIs (print(format nil " >> TPIs -> ~A" *Thd_Info_List_TPI* )) );defun ;;;; ==================================================================================================== (defun sd_compile_thread_class (profile size tpi) ;;;; ==================================================================================================== ;;First breakdown the profile because some of them use the same one (setf Profile0 (cond ((= Profile 1)"UNEF") ((= Profile 2)"UNF") ((= Profile 3)"UN") ((= Profile 4)"UNC") ((= Profile 5)"UNS") ((= Profile 6)"UNREF")((= Profile 7)"UNRF")((= Profile 8)"UNR")((= Profile 9)"UNRC")((= Profile 10)"UNRS") ) ) (print (format nil "~A~% Compiling available thread classes - ~% >> Profile - ~A" *PrntBrdr* Profile0)) (cond ((or (= profile 11)(= profile 12)) (setq *Thd_Info_List_Class* nil) ) ((< profile 6)(setq Profile0 profile)) ((> profile 5)(setq Profile0 (- profile 5))) );cond ;;Break down the profile and sizes to compile a TPI listing (cond ((= Profile0 1);;UNEF / UNREF (setq *Thd_Info_List_Class* (list 2 3 ) )) ((= Profile0 2)(cond;;UNF / UNRF ((< Size 0.2490)(setq *Thd_Info_List_Class* (list 2 3 ) ));;Size (t (setq *Thd_Info_List_Class* (list 1 2 3 ) )) ));;Profile=2 ((= Profile0 3);;UN / UNR (setq *Thd_Info_List_Class* (list 2 3 )) );; Profile - 3 ((= Profile0 4)(cond;;UNC / UNRC ((< Size 0.2000)(setq *Thd_Info_List_Class* (list 2 3 ) ));;Size (t (setq *Thd_Info_List_Class* (list 1 2 3 ) )) ));;Profile=4 ((= Profile0 5)(cond;;UNS / UNRS ((= Size 1.0000)(setq *Thd_Info_List_Class* (cond ((= tpi 14) (list 1 2 3 ) ) (t (list 2 ) )) ));; 1.0000 ((= Size 2.0625)(setq *Thd_Info_List_Class* (list 2 3 ) ));; 2.0625 ((= Size 2.1875)(setq *Thd_Info_List_Class* (list 2 3 ) ));; 2.1875 ((= Size 2.4375)(setq *Thd_Info_List_Class* (list 2 3 ) ));; 2.4375 (t (setq *Thd_Info_List_Class* (list 2) )) ));;Profile=5 );cond ;;Logit (print(format nil " >> Classes - ~A" *Thd_Info_List_Class* )) );defun ;;;; ==================================================================================================== (defun sd_compile_bolt_threads (Profile Size TPI Type Class Hand) ;;;; ==================================================================================================== ;;Document what's going on through the print dialog (setf Profile0 (cond ((= Profile 1)"UNEF") ((= Profile 2)"UNF") ((= Profile 3)"UN") ((= Profile 4)"UNC") ((= Profile 5)"UNS") ((= Profile 6)"UNREF")((= Profile 7)"UNRF")((= Profile 8)"UNR")((= Profile 9)"UNRC")((= Profile 10)"UNRS") ((= Profile 10)"UNRS")((= Profile 11)"NPSM")((= Profile 12)"NPSL") (t Profile) ) Hand0 (cond ((equal Hand :right-hand)"Right")((= Hand 1)"Right") ((equal Hand :left-hand)"Left")((= Hand 2)"Left") ) ThdClassAB (cond ((= Type 1) "A") ((= Type 2) "B") );cond );setf (print(format nil "~A~% Gathering the Selected Thread Information for Calculations~% >> Size = ~A~% >> TPI = ~A~% >> Profile = ~A~% >> Class = ~A~A~% >> Hand = ~A~%" *PrntBrdr* (sd-write-to-string Size 4) TPI Profile0 Class ThdClassAB Hand0 )) ;;Reset the global variables (setq *Thd_EMaxDia* 0 *Thd_EMinDia* 0 *Thd_IMaxDia* 0 *Thd_IMinDia* 0 ) ;;First breakdown the profile because some of them use the same one (cond ;;KEY - 1 = UNF 2 = UNC ((equal Profile "UNEF") (setf Profile0 1)) ((equal Profile "UNREF")(setf Profile0 1)) ((equal Profile "UNF") (setf Profile0 2)) ((equal Profile "UNRF") (setf Profile0 2)) ((equal Profile "UN") (setf Profile0 3)) ((equal Profile "UNR") (setf Profile0 3)) ((equal Profile "UNC") (setf Profile0 4)) ((equal Profile "UNRC") (setf Profile0 4)) ((equal Profile "UNS") (setf Profile0 5)) ((equal Profile "UNRS") (setf Profile0 5)) ((= Profile 1) (setf Profile "UNEF" Profile0 1 )) ((= Profile 6) (setf Profile "UNREF" Profile0 1 )) ((= Profile 2) (setf Profile "UNF" Profile0 2 )) ((= Profile 7) (setf Profile "UNRF" Profile0 2 )) ((= Profile 3) (setf Profile "UN" Profile0 3 )) ((= Profile 8) (setf Profile "UNR" Profile0 3 )) ((= Profile 4) (setf Profile "UNC" Profile0 4 )) ((= Profile 9) (setf Profile "UNRC" Profile0 4 )) ((= Profile 5) (setf Profile "UNS" Profile0 5 )) ((= Profile 10) (setf Profile "UNRS" Profile0 5 )) ((= Profile 11) (setf Profile "NPSM" Profile0 6 )) ((= Profile 12) (setf Profile "NPSL" Profile0 7 )) );cond ;(print(format nil " >> Profile ~A | No. = ~A" Profile Profile0 )) ;;Now Break out the 5 general profiles > then by TPI ;(print (format nil " 2. Go through the thread information for...~% >>Profile ~A~% >>Size ~A" Profile (sd-write-to-string Size 4))) (cond ((= Profile0 1)(cond;;UNEF / UNREF ((= Size 0.2160)(cond;;No_12 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2151 0.2091)2) *Thd_EMinDia* 0.1779 *Thd_IMaxDia* (/(+ 0.1820 0.1900)2) *Thd_IMinDia* 0.2160)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.2160 0.2100)2) *Thd_EMinDia* 0.1788 *Thd_IMaxDia* (/(+ 0.1820 0.1895)2) *Thd_IMinDia* 0.2160)) ));;TPI 32 ((= Size 0.2500)(cond;;1/4 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2490 0.2430)2) *Thd_EMinDia* 0.2118 *Thd_IMaxDia* (/(+ 0.2160 0.0000)2) *Thd_IMinDia* 0.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.2500 0.2440)2) *Thd_EMinDia* 0.2128 *Thd_IMaxDia* (/(+ 0.2160 0.0000)2) *Thd_IMinDia* 0.2500)) ));;TPI 32 ((= Size 0.3125)(cond;;5/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3115 0.3055)2) *Thd_EMinDia* 0.2743 *Thd_IMaxDia* (/(+ 0.2790 0.2860)2) *Thd_IMinDia* 0.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.3125 0.3065)2) *Thd_EMinDia* 0.2753 *Thd_IMaxDia* (/(+ 0.2790 0.2847)2) *Thd_IMinDia* 0.3125)) ));;TPI 32 ((= Size 0.3750)(cond;;3/8 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3115 0.3055)2) *Thd_EMinDia* 0.2743 *Thd_IMaxDia* (/(+ 0.2790 0.2860)2) *Thd_IMinDia* 0.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.3125 0.3065)2) *Thd_EMinDia* 0.2753 *Thd_IMaxDia* (/(+ 0.2790 0.2847)2) *Thd_IMinDia* 0.3125)) ));;TPI 32 ((= Size 0.4375)(cond;;7/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4364 0.4299)2) *Thd_EMinDia* 0.3938 *Thd_IMaxDia* (/(+ 0.3990 0.4070)2) *Thd_IMinDia* 0.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.4375 0.4310)2) *Thd_EMinDia* 0.3949 *Thd_IMaxDia* (/(+ 0.3990 0.4051)2) *Thd_IMinDia* 0.4375)) ));;TPI 28 ((= Size 0.5000)(cond;;1/2 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4989 0.4924)2) *Thd_EMinDia* 0.4563 *Thd_IMaxDia* (/(+ 0.4610 0.4700)2) *Thd_IMinDia* 0.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.5000 0.4935)2) *Thd_EMinDia* 0.4574 *Thd_IMaxDia* (/(+ 0.4610 0.4676)2) *Thd_IMinDia* 0.5000)) ));;TPI 28 ((= Size 0.5625)(cond;;9/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.5613 0.5541)2) *Thd_EMinDia* 0.5117 *Thd_IMaxDia* (/(+ 0.5170 0.5270)2) *Thd_IMinDia* 0.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.5625 0.5553)2) *Thd_EMinDia* 0.5129 *Thd_IMaxDia* (/(+ 0.5170 0.5244)2) *Thd_IMinDia* 0.5625)) ));;TPI 24 ((= Size 0.6250)(cond;;5/8 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6238 0.6166)2) *Thd_EMinDia* 0.5742 *Thd_IMaxDia* (/(+ 0.5800 0.5900)2) *Thd_IMinDia* 0.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6250 0.6178)2) *Thd_EMinDia* 0.5754 *Thd_IMaxDia* (/(+ 0.5800 0.5869)2) *Thd_IMinDia* 0.6250)) ));;TPI 24 ((= Size 0.6875)(cond;;11/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6863 0.6791)2) *Thd_EMinDia* 0.6367 *Thd_IMaxDia* (/(+ 0.6420 0.6520)2) *Thd_IMinDia* 0.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6875 0.6803)2) *Thd_EMinDia* 0.6379 *Thd_IMaxDia* (/(+ 0.6420 0.6494)2) *Thd_IMinDia* 0.6875)) ));;TPI 24 ((= Size 0.7500)(cond;;3/4 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.7487 0.7406)2) *Thd_EMinDia* 0.6892 *Thd_IMaxDia* (/(+ 0.6960 0.7070)2) *Thd_IMinDia* 0.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.7500 0.7419)2) *Thd_EMinDia* 0.6905 *Thd_IMaxDia* (/(+ 0.6960 0.7037)2) *Thd_IMinDia* 0.7500)) ));;TPI 20 ((= Size 0.8125)(cond;;13/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8112 0.8031)2) *Thd_EMinDia* 0.7517 *Thd_IMaxDia* (/(+ 0.7580 0.7700)2) *Thd_IMinDia* 0.8125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.8125 0.8044)2) *Thd_EMinDia* 0.7530 *Thd_IMaxDia* (/(+ 0.7580 0.7662)2) *Thd_IMinDia* 0.8125)) ));;TPI 20 ((= Size 0.8750)(cond;;7/8 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8737 0.8656)2) *Thd_EMinDia* 0.8142 *Thd_IMaxDia* (/(+ 0.8210 0.8320)2) *Thd_IMinDia* 0.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.8750 0.8669)2) *Thd_EMinDia* 0.8155 *Thd_IMaxDia* (/(+ 0.8210 0.8287)2) *Thd_IMinDia* 0.8750)) ));;TPI 20 ((= Size 0.9375)(cond;;15/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9361 0.9280)2) *Thd_EMinDia* 0.8766 *Thd_IMaxDia* (/(+ 0.8830 0.8950)2) *Thd_IMinDia* 0.9375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.9375 0.9294)2) *Thd_EMinDia* 0.8780 *Thd_IMaxDia* (/(+ 0.8830 0.8912)2) *Thd_IMinDia* 0.9375)) ));;TPI 20 ((= Size 1.0000)(cond;;1 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9986 0.9905)2) *Thd_EMinDia* 0.9391 *Thd_IMaxDia* (/(+ 0.9460 0.9570)2) *Thd_IMinDia* 1.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.0000 0.9919)2) *Thd_EMinDia* 0.9405 *Thd_IMaxDia* (/(+ 0.9460 0.9537)2) *Thd_IMinDia* 1.0000)) ));;TPI 20 ((= Size 1.0625)(cond;;1-1/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.0611 1.0524)2) *Thd_EMinDia* 0.9950 *Thd_IMaxDia* (/(+ 1.0002 1.0015)2) *Thd_IMinDia* 1.0625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.0625 1.0538)2) *Thd_EMinDia* 0.9964 *Thd_IMaxDia* (/(+ 1.0020 1.0105)2) *Thd_IMinDia* 1.0625)) ));;TPI 18 ((= Size 1.1250)(cond;;1-1/8 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1236 1.1149)2) *Thd_EMinDia* 1.0575 *Thd_IMaxDia* (/(+ 1.0650 1.0780)2) *Thd_IMinDia* 1.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1250 1.1163)2) *Thd_EMinDia* 1.0589 *Thd_IMaxDia* (/(+ 1.0650 1.0730)2) *Thd_IMinDia* 1.1250)) ));;TPI 18 ((= Size 1.1875)(cond;;1-3/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1860 1.1773)2) *Thd_EMinDia* 1.1199 *Thd_IMaxDia* (/(+ 1.1270 1.1400)2) *Thd_IMinDia* 1.1875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1875 1.1788)2) *Thd_EMinDia* 1.1214 *Thd_IMaxDia* (/(+ 1.1270 1.1355)2) *Thd_IMinDia* 1.1875)) ));;TPI 18 ((= Size 1.2500)(cond;;1-1/4 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.2485 1.2398)2) *Thd_EMinDia* 1.1824 *Thd_IMaxDia* (/(+ 1.1900 1.2030)2) *Thd_IMinDia* 1.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.2500 1.2413)2) *Thd_EMinDia* 1.1839 *Thd_IMaxDia* (/(+ 1.1900 1.1980)2) *Thd_IMinDia* 1.2500)) ));;TPI 18 ((= Size 1.3125)(cond;;1-5/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3110 1.3023)2) *Thd_EMinDia* 1.2449 *Thd_IMaxDia* (/(+ 1.2520 1.2650)2) *Thd_IMinDia* 1.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3125 1.3038)2) *Thd_EMinDia* 1.2464 *Thd_IMaxDia* (/(+ 1.2520 1.2605)2) *Thd_IMinDia* 1.3125)) ));;TPI 18 ((= Size 1.3750)(cond;;1-3/8 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3735 1.3648)2) *Thd_EMinDia* 1.3074 *Thd_IMaxDia* (/(+ 1.3150 1.3280)2) *Thd_IMinDia* 1.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3750 1.3663)2) *Thd_EMinDia* 1.3089 *Thd_IMaxDia* (/(+ 1.3150 1.3230)2) *Thd_IMinDia* 1.3750)) ));;TPI 18 ((= Size 1.4375)(cond;;1-7/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4360 1.4273)2) *Thd_EMinDia* 1.3699 *Thd_IMaxDia* (/(+ 1.3770 1.3900)2) *Thd_IMinDia* 1.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.4375 1.4288)2) *Thd_EMinDia* 1.3714 *Thd_IMaxDia* (/(+ 1.3770 1.3855)2) *Thd_IMinDia* 1.4375)) ));;TPI 18 ((= Size 1.5000)(cond;;1-1/2 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4985 1.4898)2) *Thd_EMinDia* 1.4324 *Thd_IMaxDia* (/(+ 1.4400 1.4520)2) *Thd_IMinDia* 1.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5000 1.4913)2) *Thd_EMinDia* 1.4339 *Thd_IMaxDia* (/(+ 1.4400 1.4480)2) *Thd_IMinDia* 1.5000)) ));;TPI 18 ((= Size 1.5625)(cond;;1-9/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.5610 1.5523)2) *Thd_EMinDia* 1.4949 *Thd_IMaxDia* (/(+ 1.5020 1.5150)2) *Thd_IMinDia* 1.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5625 1.5538)2) *Thd_EMinDia* 1.4964 *Thd_IMaxDia* (/(+ 1.5020 1.5105)2) *Thd_IMinDia* 1.5625)) ));;TPI 18 ((= Size 1.6250)(cond;;5/8 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6235 1.6148)2) *Thd_EMinDia* 1.5574 *Thd_IMaxDia* (/(+ 1.5650 1.5780)2) *Thd_IMinDia* 1.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6250 1.6163)2) *Thd_EMinDia* 1.5589 *Thd_IMaxDia* (/(+ 1.5650 1.5730)2) *Thd_IMinDia* 1.6250)) ));;TPI 18 ((= Size 1.6875)(cond;;1-11/16 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6860 1.6773)2) *Thd_EMinDia* 1.6199 *Thd_IMaxDia* (/(+ 1.6270 1.6400)2) *Thd_IMinDia* 1.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6875 1.6788)2) *Thd_EMinDia* 1.6214 *Thd_IMaxDia* (/(+ 1.6270 1.6355)2) *Thd_IMinDia* 1.6875)) ));;TPI 18 (t (print (format nil " Can't fine the thread information for size - ~A" Size))) ));;Profile=1 ((= Profile0 2)(cond;;UNF / UNRF ((= Size 0.0600)(cond;;0-80 ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.0595 0.0563)2) *Thd_EMinDia* 0.0446 *Thd_IMaxDia* (/(+ 0.0465 0.0514)2) *Thd_IMinDia* 0.0600)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.0600 0.0568)2) *Thd_EMinDia* 0.0451 *Thd_IMaxDia* (/(+ 0.0465 0.0514)2) *Thd_IMinDia* 0.0600)) ));;No 0 ((= Size 0.0730)(cond;;1-75 ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.0724 0.0689)2) *Thd_EMinDia* 0.0559 *Thd_IMaxDia* (/(+ 0.0580 0.0635)2) *Thd_IMinDia* 0.0730)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.0730 0.0695)2) *Thd_EMinDia* 0.0565 *Thd_IMaxDia* (/(+ 0.0580 0.0635)2) *Thd_IMinDia* 0.0730)) ));;No 1 ((= Size 0.0860)(cond;;2-64 ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.0854 0.0816)2) *Thd_EMinDia* 0.0668 *Thd_IMaxDia* (/(+ 0.0691 0.0753)2) *Thd_IMinDia* 0.0860)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.0860 0.0822)2) *Thd_EMinDia* 0.0674 *Thd_IMaxDia* (/(+ 0.0691 0.0753)2) *Thd_IMinDia* 0.0860)) ));;No 2 ((= Size 0.0990)(cond;;3-56 ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.0983 0.0942)2) *Thd_EMinDia* 0.0771 *Thd_IMaxDia* (/(+ 0.0797 0.0865)2) *Thd_IMinDia* 0.0990)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.0990 0.0949)2) *Thd_EMinDia* 0.0778 *Thd_IMaxDia* (/(+ 0.0797 0.0865)2) *Thd_IMinDia* 0.0990)) ));;No 3 ((= Size 0.1120)(cond;;4-48 ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.1113 0.1068)2) *Thd_EMinDia* 0.0864 *Thd_IMaxDia* (/(+ 0.0894 0.0968)2) *Thd_IMinDia* 0.1120)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.1120 0.1075)2) *Thd_EMinDia* 0.0871 *Thd_IMaxDia* (/(+ 0.0894 0.0968)2) *Thd_IMinDia* 0.1120)) ));;No 4 ((= Size 0.1251)(cond;;5-44 ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.1243 0.1195)2) *Thd_EMinDia* 0.0972 *Thd_IMaxDia* (/(+ 0.1004 0.1079)2) *Thd_IMinDia* 0.1250)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.1250 0.1202)2) *Thd_EMinDia* 0.0979 *Thd_IMaxDia* (/(+ 0.1004 0.1079)2) *Thd_IMinDia* 0.1250)) ));;No 5 ((= Size 0.1380)(cond;;6-40 ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.1372 0.1321)2) *Thd_EMinDia* 0.1074 *Thd_IMaxDia* (/(+ 0.1110 0.1190)2) *Thd_IMinDia* 0.1380)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.1380 0.1329)2) *Thd_EMinDia* 0.1082 *Thd_IMaxDia* (/(+ 0.1110 0.1186)2) *Thd_IMinDia* 0.1380)) ));;No 6 ((= Size 0.1640)(cond;;8-36 ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.1632 0.1577)2) *Thd_EMinDia* 0.1301 *Thd_IMaxDia* (/(+ 0.1340 0.1420)2) *Thd_IMinDia* 0.1640)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.1640 0.1585)2) *Thd_EMinDia* 0.1309 *Thd_IMaxDia* (/(+ 0.1340 0.1416)2) *Thd_IMinDia* 0.1640)) ));;No 8 ((= Size 0.1900)(cond;;10-32 ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.1891 0.1831)2) *Thd_EMinDia* 0.1519 *Thd_IMaxDia* (/(+ 0.1560 0.1640)2) *Thd_IMinDia* 0.1900)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.1900 0.1840)2) *Thd_EMinDia* 0.1528 *Thd_IMaxDia* (/(+ 0.1560 0.1641)2) *Thd_IMinDia* 0.1900)) ));;No 10 ((= Size 0.2160)(cond;;12-28 ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.2150 0.2085)2) *Thd_EMinDia* 0.1918 *Thd_IMaxDia* (/(+ 0.1770 0.1860)2) *Thd_IMinDia* 0.2160)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.2160 0.2095)2) *Thd_EMinDia* 0.1928 *Thd_IMaxDia* (/(+ 0.1770 0.1857)2) *Thd_IMinDia* 0.2160)) ));;No 12 ((= Size 0.2500)(cond;;1/4-28 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 0.2490 0.2392)2) *Thd_EMinDia* 0.2064 *Thd_IMaxDia* (/(+ 0.2110 0.2200)2) *Thd_IMinDia* 0.2500)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.2490 0.2425)2) *Thd_EMinDia* 0.2064 *Thd_IMaxDia* (/(+ 0.2110 0.2200)2) *Thd_IMinDia* 0.2500)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.2500 0.2435)2) *Thd_EMinDia* 0.2074 *Thd_IMaxDia* (/(+ 0.2110 0.2190)2) *Thd_IMinDia* 0.2500)) ));;TPI 28 ((= Size 0.3125)(cond;;5/16-24 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 0.3114 0.3006)2) *Thd_EMinDia* 0.2618 *Thd_IMaxDia* (/(+ 0.2670 0.2770)2) *Thd_IMinDia* 0.3125)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.3114 0.3042)2) *Thd_EMinDia* 0.2618 *Thd_IMaxDia* (/(+ 0.2670 0.2770)2) *Thd_IMinDia* 0.3125)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.3125 0.3053)2) *Thd_EMinDia* 0.2629 *Thd_IMaxDia* (/(+ 0.2670 0.2754)2) *Thd_IMinDia* 0.3125)) ));;TPI 24 ((= Size 0.3750)(cond;;3/8-24 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 0.3739 0.3631)2) *Thd_EMinDia* 0.3243 *Thd_IMaxDia* (/(+ 0.3300 0.3400)2) *Thd_IMinDia* 0.3750)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.3739 0.3667)2) *Thd_EMinDia* 0.3243 *Thd_IMaxDia* (/(+ 0.3300 0.3400)2) *Thd_IMinDia* 0.3750)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.3750 0.3678)2) *Thd_EMinDia* 0.3254 *Thd_IMaxDia* (/(+ 0.3300 0.3372)2) *Thd_IMinDia* 0.3750)) ));;TPI 24 ((= Size 0.4375)(cond;;7/16-20 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 0.4362 0.4240)2) *Thd_EMinDia* 0.3767 *Thd_IMaxDia* (/(+ 0.3830 0.3950)2) *Thd_IMinDia* 0.4375)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.4362 0.4281)2) *Thd_EMinDia* 0.3767 *Thd_IMaxDia* (/(+ 0.3830 0.3950)2) *Thd_IMinDia* 0.4375)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.4375 0.4294)2) *Thd_EMinDia* 0.3780 *Thd_IMaxDia* (/(+ 0.3830 0.3916)2) *Thd_IMinDia* 0.4375)) ));;TPI 20 ((= Size 0.5000)(cond;;1/2-20 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 0.4987 0.4865)2) *Thd_EMinDia* 0.4392 *Thd_IMaxDia* (/(+ 0.4460 0.4570)2) *Thd_IMinDia* 0.5000)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.4987 0.4906)2) *Thd_EMinDia* 0.4392 *Thd_IMaxDia* (/(+ 0.4460 0.4570)2) *Thd_IMinDia* 0.5000)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.5000 0.4919)2) *Thd_EMinDia* 0.4405 *Thd_IMaxDia* (/(+ 0.4460 0.4537)2) *Thd_IMinDia* 0.5000)) ));;TPI 20 ((= Size 0.5625)(cond;;9/16-18 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 0.5611 0.4580)2) *Thd_EMinDia* 0.4950 *Thd_IMaxDia* (/(+ 0.5020 0.5150)2) *Thd_IMinDia* 0.5625)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.5611 0.5524)2) *Thd_EMinDia* 0.4950 *Thd_IMaxDia* (/(+ 0.5020 0.5150)2) *Thd_IMinDia* 0.5625)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.5625 0.5538)2) *Thd_EMinDia* 0.4964 *Thd_IMaxDia* (/(+ 0.5020 0.5106)2) *Thd_IMinDia* 0.5625)) ));;TPI 18 ((= Size 0.6250)(cond;;5/8-18 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 0.6236 0.6105)2) *Thd_EMinDia* 0.5575 *Thd_IMaxDia* (/(+ 0.5650 0.5780)2) *Thd_IMinDia* 0.6250)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.6236 0.6149)2) *Thd_EMinDia* 0.5575 *Thd_IMaxDia* (/(+ 0.5650 0.5780)2) *Thd_IMinDia* 0.6250)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.6250 0.6163)2) *Thd_EMinDia* 0.5589 *Thd_IMaxDia* (/(+ 0.5650 0.5730)2) *Thd_IMinDia* 0.6250)) ));;TPI 18 ((= Size 0.7500)(cond;;3/4-16 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 0.7485 0.7343)2) *Thd_EMinDia* 0.6740 *Thd_IMaxDia* (/(+ 0.6820 0.6960)2) *Thd_IMinDia* 0.7500)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.7485 0.7391)2) *Thd_EMinDia* 0.6740 *Thd_IMaxDia* (/(+ 0.6820 0.6960)2) *Thd_IMinDia* 0.7500)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.7500 0.7406)2) *Thd_EMinDia* 0.6755 *Thd_IMaxDia* (/(+ 0.6820 0.6908)2) *Thd_IMinDia* 0.7500)) ));;TPI 16 ((= Size 0.8750)(cond;;7/8-14 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 0.8734 0.8579)2) *Thd_EMinDia* 0.7884 *Thd_IMaxDia* (/(+ 0.7980 0.8140)2) *Thd_IMinDia* 0.8750)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.8734 0.8631)2) *Thd_EMinDia* 0.7884 *Thd_IMaxDia* (/(+ 0.7980 0.8140)2) *Thd_IMinDia* 0.8750)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 0.8750 0.8647)2) *Thd_EMinDia* 0.7900 *Thd_IMaxDia* (/(+ 0.7980 0.8068)2) *Thd_IMinDia* 0.8750)) ));;TPI 14 ((= Size 1.0000)(cond;;1-12 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 0.9982 0.9810)2) *Thd_EMinDia* 0.8990 *Thd_IMaxDia* (/(+ 0.9100 0.9280)2) *Thd_IMinDia* 1.0000)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 0.9982 0.9868)2) *Thd_EMinDia* 0.8990 *Thd_IMaxDia* (/(+ 0.9100 0.9280)2) *Thd_IMinDia* 1.0000)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 1.0000 0.9886)2) *Thd_EMinDia* 0.9008 *Thd_IMaxDia* (/(+ 0.9100 0.9198)2) *Thd_IMinDia* 1.0000)) ));;TPI 12 ((= Size 1.1250)(cond;;1 1/8-12 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 1.1232 1.1060)2) *Thd_EMinDia* 1.0240 *Thd_IMaxDia* (/(+ 1.0350 1.0530)2) *Thd_IMinDia* 1.1250)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 1.1232 1.1118)2) *Thd_EMinDia* 1.0240 *Thd_IMaxDia* (/(+ 1.0350 1.0530)2) *Thd_IMinDia* 1.1250)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 1.1250 1.1136)2) *Thd_EMinDia* 1.0258 *Thd_IMaxDia* (/(+ 1.0350 1.0448)2) *Thd_IMinDia* 1.1250)) ));;TPI 12 ((= Size 1.2500)(cond;;1 1/4-12 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 1.2482 1.2310)2) *Thd_EMinDia* 1.1490 *Thd_IMaxDia* (/(+ 1.1600 1.1780)2) *Thd_IMinDia* 1.2500)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 1.2482 1.2368)2) *Thd_EMinDia* 1.1490 *Thd_IMaxDia* (/(+ 1.1600 1.1780)2) *Thd_IMinDia* 1.2500)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 1.2500 1.2386)2) *Thd_EMinDia* 1.1508 *Thd_IMaxDia* (/(+ 1.1600 1.1698)2) *Thd_IMinDia* 1.2500)) ));;TPI 12 ((= Size 1.3750)(cond;;1 3/8-12 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 1.3731 1.3559)2) *Thd_EMinDia* 1.2739 *Thd_IMaxDia* (/(+ 1.2850 1.3030)2) *Thd_IMinDia* 1.3750)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 1.3731 1.3617)2) *Thd_EMinDia* 1.2739 *Thd_IMaxDia* (/(+ 1.2850 1.3030)2) *Thd_IMinDia* 1.3750)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 1.3750 1.3636)2) *Thd_EMinDia* 1.2758 *Thd_IMaxDia* (/(+ 1.2850 1.2948)2) *Thd_IMinDia* 1.3750)) ));;TPI 12 ((= Size 1.5000)(cond;;1 1/2-12 ((= Class 1) (setf *Thd_EMaxDia* (/(+ 1.4981 1.4809)2) *Thd_EMinDia* 1.3989 *Thd_IMaxDia* (/(+ 1.4100 1.4280)2) *Thd_IMinDia* 1.5000)) ((= Class 2) (setf *Thd_EMaxDia* (/(+ 1.4981 1.4867)2) *Thd_EMinDia* 1.3989 *Thd_IMaxDia* (/(+ 1.4100 1.4280)2) *Thd_IMinDia* 1.5000)) ((= Class 3) (setf *Thd_EMaxDia* (/(+ 1.5000 1.4886)2) *Thd_EMinDia* 1.4008 *Thd_IMaxDia* (/(+ 1.4100 1.4198)2) *Thd_IMinDia* 1.5000)) ));;TPI 12 (t (print (format nil " Can't fine the thread information for size - ~A" Size))) ));;Profile=2 ((= Profile0 3)(cond;;UN / UN ((= Size 0.3125)(cond;;5/16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3113 0.3032)2) *Thd_EMinDia* 0.2518 *Thd_IMaxDia* (/(+ 0.2580 0.2700)2) *Thd_IMinDia* 0.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.3125 0.3044)2) *Thd_EMinDia* 0.2530 *Thd_IMaxDia* (/(+ 0.2580 0.2680)2) *Thd_IMinDia* 0.3125)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3115 0.3050)2) *Thd_EMinDia* 0.2849 *Thd_IMaxDia* (/(+ 0.2740 0.2820)2) *Thd_IMinDia* 0.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.3125 0.3060)2) *Thd_EMinDia* 0.2867 *Thd_IMaxDia* (/(+ 0.2740 0.2807)2) *Thd_IMinDia* 0.3125)) )) ));TPI=28 ((= Size 0.3750)(cond;;3/8 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3738 0.3657)2) *Thd_EMinDia* 0.3143 *Thd_IMaxDia* (/(+ 0.3210 0.3320)2) *Thd_IMinDia* 0.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.3750 0.3669)2) *Thd_EMinDia* 0.3155 *Thd_IMaxDia* (/(+ 0.3210 0.3297)2) *Thd_IMinDia* 0.3750)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3739 0.3674)2) *Thd_EMinDia* 0.3313 *Thd_IMaxDia* (/(+ 0.3360 0.3450)2) *Thd_IMinDia* 0.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.3750 0.3685)2) *Thd_EMinDia* 0.3324 *Thd_IMaxDia* (/(+ 0.3360 0.3426)2) *Thd_IMinDia* 0.3750)) )) ));TPI=28 ((= Size 0.4375)(cond;;7/16 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4361 0.3955)2) *Thd_EMinDia* 0.3909 *Thd_IMaxDia* (/(+ 0.3700 0.3840)2) *Thd_IMinDia* 0.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.4375 0.4281)2) *Thd_EMinDia* 0.3935 *Thd_IMaxDia* (/(+ 0.3700 0.3800)2) *Thd_IMinDia* 0.4375)) ));TPI=16 ((= TPI 32)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4365 0.4305)2) *Thd_EMinDia* 0.4128 *Thd_IMaxDia* (/(+ 0.4040 0.4110)2) *Thd_IMinDia* 0.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.4375 0.4315)2) *Thd_EMinDia* 0.4147 *Thd_IMaxDia* (/(+ 0.4040 0.4094)2) *Thd_IMinDia* 0.4375)) )) ));TPI=32 ((= Size 0.5000)(cond;;1/2 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4986 0.4892)2) *Thd_EMinDia* 0.4241 *Thd_IMaxDia* (/(+ 0.4320 0.4460)2) *Thd_IMinDia* 0.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.5000 0.4906)2) *Thd_EMinDia* 0.4255 *Thd_IMaxDia* (/(+ 0.4320 0.4419)2) *Thd_IMinDia* 0.5000)) ));TPI=16 ((= TPI 32)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4990 0.4930)2) *Thd_EMinDia* 0.4618 *Thd_IMaxDia* (/(+ 0.4660 0.4740)2) *Thd_IMinDia* 0.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.5000 0.4940)2) *Thd_EMinDia* 0.4628 *Thd_IMaxDia* (/(+ 0.4660 0.4719)2) *Thd_IMinDia* 0.5000)) )) ));TPI=32 ((= Size 0.5625)(cond;;9/16 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.5611 0.5517)2) *Thd_EMinDia* 0.4866 *Thd_IMaxDia* (/(+ 0.4950 0.5090)2) *Thd_IMinDia* 0.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.5625 0.5531)2) *Thd_EMinDia* 0.4880 *Thd_IMaxDia* (/(+ 0.4950 0.5040)2) *Thd_IMinDia* 0.5625)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.5612 0.5612)2) *Thd_EMinDia* 0.5017 *Thd_IMaxDia* (/(+ 0.5080 0.5200)2) *Thd_IMinDia* 0.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.5625 0.5625)2) *Thd_EMinDia* 0.5030 *Thd_IMaxDia* (/(+ 0.5080 0.5162)2) *Thd_IMinDia* 0.5625)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.5614 0.5549)2) *Thd_EMinDia* 0.5188 *Thd_IMaxDia* (/(+ 0.5240 0.5320)2) *Thd_IMinDia* 0.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.5625 0.5560)2) *Thd_EMinDia* 0.5199 *Thd_IMaxDia* (/(+ 0.5240 0.5301)2) *Thd_IMinDia* 0.5625)) ));TPI=28 ((= TPI 32)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.5615 0.5555)2) *Thd_EMinDia* 0.5243 *Thd_IMaxDia* (/(+ 0.5290 0.5360)2) *Thd_IMinDia* 0.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.5625 0.5565)2) *Thd_EMinDia* 0.5253 *Thd_IMaxDia* (/(+ 0.5290 0.5344)2) *Thd_IMinDia* 0.5625)) )) ));TPI=32 ((= Size 0.6250)(cond;;5/8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6234 0.6120)2) *Thd_EMinDia* 0.5242 *Thd_IMaxDia* (/(+ 0.5350 0.5530)2) *Thd_IMinDia* 0.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6250 0.6136)2) *Thd_EMinDia* 0.5258 *Thd_IMaxDia* (/(+ 0.5350 0.5463)2) *Thd_IMinDia* 0.6250)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6236 0.6142)2) *Thd_EMinDia* 0.5491 *Thd_IMaxDia* (/(+ 0.5570 0.5710)2) *Thd_IMinDia* 0.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6250 0.6156)2) *Thd_EMinDia* 0.5505 *Thd_IMaxDia* (/(+ 0.5570 0.5662)2) *Thd_IMinDia* 0.6250)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6237 0.6156)2) *Thd_EMinDia* 0.5642 *Thd_IMaxDia* (/(+ 0.5710 0.5820)2) *Thd_IMinDia* 0.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6250 0.6169)2) *Thd_EMinDia* 0.5655 *Thd_IMaxDia* (/(+ 0.5710 0.5787)2) *Thd_IMinDia* 0.6250)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6239 0.0000)2) *Thd_EMinDia* 0.5813 *Thd_IMaxDia* (/(+ 0.5860 0.5950)2) *Thd_IMinDia* 0.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6250 0.6185)2) *Thd_EMinDia* 0.5824 *Thd_IMaxDia* (/(+ 0.5860 0.5926)2) *Thd_IMinDia* 0.6250)) ));TPI=28 ((= TPI 32)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6239 0.6179)2) *Thd_EMinDia* 0.6000 *Thd_IMaxDia* (/(+ 0.5910 0.5990)2) *Thd_IMinDia* 0.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6250 0.6190)2) *Thd_EMinDia* 0.6020 *Thd_IMaxDia* (/(+ 0.5910 0.5969)2) *Thd_IMinDia* 0.6250)) )) ));TPI=32 ((= Size 0.6875)(cond;;11/16 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6859 0.6745)2) *Thd_EMinDia* 0.5867 *Thd_IMaxDia* (/(+ 0.5970 0.6150)2) *Thd_IMinDia* 0.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6875 0.6761)2) *Thd_EMinDia* 0.5883 *Thd_IMaxDia* (/(+ 0.5970 0.6085)2) *Thd_IMinDia* 0.6875)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6861 0.6767)2) *Thd_EMinDia* 0.6116 *Thd_IMaxDia* (/(+ 0.6200 0.6340)2) *Thd_IMinDia* 0.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6875 0.6781)2) *Thd_EMinDia* 0.6130 *Thd_IMaxDia* (/(+ 0.6200 0.6284)2) *Thd_IMinDia* 0.6875)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6862 0.6781)2) *Thd_EMinDia* 0.6267 *Thd_IMaxDia* (/(+ 0.6330 0.6450)2) *Thd_IMinDia* 0.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6875 0.6794)2) *Thd_EMinDia* 0.6280 *Thd_IMaxDia* (/(+ 0.6330 0.6412)2) *Thd_IMinDia* 0.6875)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6864 0.6799)2) *Thd_EMinDia* 0.6438 *Thd_IMaxDia* (/(+ 0.6490 0.6570)2) *Thd_IMinDia* 0.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6875 0.6810)2) *Thd_EMinDia* 0.6492 *Thd_IMaxDia* (/(+ 0.6490 0.6551)2) *Thd_IMinDia* 0.6875)) ));TPI=28 ((= TPI 32)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6864 0.6804)2) *Thd_EMinDia* 0.6491 *Thd_IMaxDia* (/(+ 0.6540 0.6610)2) *Thd_IMinDia* 0.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6875 0.6815)2) *Thd_EMinDia* 0.6508 *Thd_IMaxDia* (/(+ 0.6540 0.6594)2) *Thd_IMinDia* 0.6875)) )) ));TPI=32 ((= Size 0.7500)(cond;;3/4 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.7483 0.7369)2) *Thd_EMinDia* 0.6491 *Thd_IMaxDia* (/(+ 0.6600 0.6780)2) *Thd_IMinDia* 0.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.7500 0.7386)2) *Thd_EMinDia* 0.6508 *Thd_IMaxDia* (/(+ 0.6600 0.6707)2) *Thd_IMinDia* 0.7500)) ));TPI=12 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.7488 0.7423)2) *Thd_EMinDia* 0.7062 *Thd_IMaxDia* (/(+ 0.7110 0.7200)2) *Thd_IMinDia* 0.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.7500 0.7435)2) *Thd_EMinDia* 0.7074 *Thd_IMaxDia* (/(+ 0.7110 0.7176)2) *Thd_IMinDia* 0.7500)) ));TPI=28 ((= TPI 32)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.7489 0.7429)2) *Thd_EMinDia* 0.7117 *Thd_IMaxDia* (/(+ 0.7160 0.7240)2) *Thd_IMinDia* 0.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.7500 0.7440)2) *Thd_EMinDia* 0.7128 *Thd_IMaxDia* (/(+ 0.7160 0.7219)2) *Thd_IMinDia* 0.7500)) )) ));TPI=32 ((= Size 0.8125)(cond;;13/16 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8108 0.7994)2) *Thd_EMinDia* 0.7116 *Thd_IMaxDia* (/(+ 0.7220 0.7400)2) *Thd_IMinDia* 0.8125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.8125 0.8011)2) *Thd_EMinDia* 0.7133 *Thd_IMaxDia* (/(+ 0.7220 0.7329)2) *Thd_IMinDia* 0.8125)) ));TPI=12 ((= TPI 16)(cond ;((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8110 0.8016)2) *Thd_EMinDia* 0.7365 *Thd_IMaxDia* (/(+ 0.7450 0.7591)2) *Thd_IMinDia* 0.8125)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8110 0.8016)2) *Thd_EMinDia* 0.7365 *Thd_IMaxDia* (/(+ 0.7451 0.7592)2) *Thd_IMinDia* 0.8125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.8125 0.8031)2) *Thd_EMinDia* 0.7380 *Thd_IMaxDia* (/(+ 0.7450 0.7533)2) *Thd_IMinDia* 0.8125)) ));TPI=16 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8133 0.8048)2) *Thd_EMinDia* 0.7687 *Thd_IMaxDia* (/(+ 0.7740 0.7820)2) *Thd_IMinDia* 0.8125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.8125 0.8060)2) *Thd_EMinDia* 0.7699 *Thd_IMaxDia* (/(+ 0.7740 0.7801)2) *Thd_IMinDia* 0.8125)) ));TPI=28 ((= TPI 32)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8114 0.8054)2) *Thd_EMinDia* 0.7742 *Thd_IMaxDia* (/(+ 0.7790 0.7860)2) *Thd_IMinDia* 0.8125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.8125 0.8065)2) *Thd_EMinDia* 0.7753 *Thd_IMaxDia* (/(+ 0.7790 0.7844)2) *Thd_IMinDia* 0.8125)) )) ));TPI=32 ((= Size 0.8750)(cond;;7/8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8733 0.8619)2) *Thd_EMinDia* 0.7741 *Thd_IMaxDia* (/(+ 0.7850 0.8030)2) *Thd_IMinDia* 0.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.8750 0.8636)2) *Thd_EMinDia* 0.7758 *Thd_IMaxDia* (/(+ 0.7850 0.7948)2) *Thd_IMinDia* 0.8750)) ));TPI=16 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8735 0.8641)2) *Thd_EMinDia* 0.7900 *Thd_IMaxDia* (/(+ 0.8070 0.8210)2) *Thd_IMinDia* 0.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.8750 0.8656)2) *Thd_EMinDia* 0.8005 *Thd_IMaxDia* (/(+ 0.8070 0.8158)2) *Thd_IMinDia* 0.8750)) ));TPI=16 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8738 0.8673)2) *Thd_EMinDia* 0.8312 *Thd_IMaxDia* (/(+ 0.8360 0.8450)2) *Thd_IMinDia* 0.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.8750 0.8685)2) *Thd_EMinDia* 0.8324 *Thd_IMaxDia* (/(+ 0.8360 0.8426)2) *Thd_IMinDia* 0.8750)) ));TPI=28 ((= TPI 32)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8739 0.8679)2) *Thd_EMinDia* 0.0000 *Thd_IMaxDia* (/(+ 0.8410 0.8490)2) *Thd_IMinDia* 0.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.8750 0.8690)2) *Thd_EMinDia* 0.0000 *Thd_IMaxDia* (/(+ 0.8410 0.8469)2) *Thd_IMinDia* 0.8750)) )) ));TPI=32 ((= Size 0.9375)(cond;;15/16 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9358 0.9244)2) *Thd_EMinDia* 0.8366 *Thd_IMaxDia* (/(+ 0.8470 0.8650)2) *Thd_IMinDia* 0.9375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.9375 0.9261)2) *Thd_EMinDia* 0.8383 *Thd_IMaxDia* (/(+ 0.8470 0.8575)2) *Thd_IMinDia* 0.9375)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9360 0.9266)2) *Thd_EMinDia* 0.8615 *Thd_IMaxDia* (/(+ 0.8700 0.8840)2) *Thd_IMinDia* 0.9375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.9375 0.9281)2) *Thd_EMinDia* 0.8630 *Thd_IMaxDia* (/(+ 0.8700 0.8783)2) *Thd_IMinDia* 0.9375)) ));TPI=16 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9363 0.9298)2) *Thd_EMinDia* 0.8937 *Thd_IMaxDia* (/(+ 0.8990 0.9070)2) *Thd_IMinDia* 0.9375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.9375 0.9310)2) *Thd_EMinDia* 0.8949 *Thd_IMaxDia* (/(+ 0.9040 0.9110)2) *Thd_IMinDia* 0.9375)) ));TPI=28 ((= TPI 32)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9364 0.9304)2) *Thd_EMinDia* 0.8992 *Thd_IMaxDia* (/(+ 0.9040 0.9110)2) *Thd_IMinDia* 0.9375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.9375 0.9315)2) *Thd_EMinDia* 0.9003 *Thd_IMaxDia* (/(+ 0.9040 0.9094)2) *Thd_IMinDia* 0.9375)) )) ));TPI=32 ((= Size 1.0000)(cond;;1 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9985 0.9923)2) *Thd_EMinDia* 0.9240 *Thd_IMaxDia* (/(+ 0.9320 0.9460)2) *Thd_IMinDia* 1.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.0000 0.9935)2) *Thd_EMinDia* 0.9255 *Thd_IMaxDia* (/(+ 0.9320 0.9408)2) *Thd_IMinDia* 1.0000)) ));TPI=16 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9988 0.9923)2) *Thd_EMinDia* 0.9562 *Thd_IMaxDia* (/(+ 0.9610 0.9700)2) *Thd_IMinDia* 1.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.0000 0.9935)2) *Thd_EMinDia* 0.9574 *Thd_IMaxDia* (/(+ 0.9610 0.9676)2) *Thd_IMinDia* 1.0000)) ));TPI=28 ((= TPI 32)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9989 0.9929)2) *Thd_EMinDia* 0.9617 *Thd_IMaxDia* (/(+ 0.9660 0.9740)2) *Thd_IMinDia* 1.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.0000 0.9940)2) *Thd_EMinDia* 0.9628 *Thd_IMaxDia* (/(+ 0.9660 0.9719)2) *Thd_IMinDia* 1.0000)) )) ));TPI=32 ((= Size 1.0625)(cond;;1-1/16 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.0605 1.0455)2) *Thd_EMinDia* 0.9117 *Thd_IMaxDia* (/(+ 0.9270 0.9520)2) *Thd_IMinDia* 1.0625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.0625 1.0475)2) *Thd_EMinDia* 0.9137 *Thd_IMaxDia* (/(+ 0.9270 0.9422)2) *Thd_IMinDia* 1.0625)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.0608 1.0494)2) *Thd_EMinDia* 0.9616 *Thd_IMaxDia* (/(+ 0.9720 0.9900)2) *Thd_IMinDia* 1.0625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.0625 1.0511)2) *Thd_EMinDia* 0.9633 *Thd_IMaxDia* (/(+ 0.9720 0.9823)2) *Thd_IMinDia* 1.0625)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.0610 1.0516)2) *Thd_EMinDia* 0.9865 *Thd_IMaxDia* (/(+ 0.9950 1.0009)2) *Thd_IMinDia* 1.0625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.0625 1.0531)2) *Thd_EMinDia* 0.9950 *Thd_IMaxDia* (/(+ 0.9950 1.0033)2) *Thd_IMinDia* 1.0625)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.0611 1.0530)2) *Thd_EMinDia* 1.0016 *Thd_IMaxDia* (/(+ 0.0080 1.0200)2) *Thd_IMinDia* 1.0625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.0625 1.0554)2) *Thd_EMinDia* 1.0030 *Thd_IMaxDia* (/(+ 0.0080 1.0320)2) *Thd_IMinDia* 1.0625)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1238 1.1173)2) *Thd_EMinDia* 1.0187 *Thd_IMaxDia* (/(+ 0.0860 1.0950)2) *Thd_IMinDia* 1.0625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1250 1.1185)2) *Thd_EMinDia* 1.0199 *Thd_IMaxDia* (/(+ 0.0860 1.0926)2) *Thd_IMinDia* 1.0625)) )) ));TPI=28 ((= Size 1.1250)(cond;;1-1/8 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1229 1.1079)2) *Thd_EMinDia* 0.9741 *Thd_IMaxDia* (/(+ 0.9900 1.0150)2) *Thd_IMinDia* 1.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1250 1.1100)2) *Thd_EMinDia* 0.9762 *Thd_IMaxDia* (/(+ 0.9900 1.0047)2) *Thd_IMinDia* 1.1250)) ));TPI=8 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1235 1.1141)2) *Thd_EMinDia* 1.0490 *Thd_IMaxDia* (/(+ 1.0570 1.0710)2) *Thd_IMinDia* 1.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1250 1.1156)2) *Thd_EMinDia* 1.0505 *Thd_IMaxDia* (/(+ 1.0570 1.0658)2) *Thd_IMinDia* 1.1250)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1236 1.1155)2) *Thd_EMinDia* 1.0641 *Thd_IMaxDia* (/(+ 1.0710 1.0820)2) *Thd_IMinDia* 1.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1250 1.1169)2) *Thd_EMinDia* 1.0655 *Thd_IMaxDia* (/(+ 1.0710 1.0787)2) *Thd_IMinDia* 1.1250)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1238 1.1173)2) *Thd_EMinDia* 1.0812 *Thd_IMaxDia* (/(+ 1.0860 1.0950)2) *Thd_IMinDia* 1.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1250 1.1185)2) *Thd_EMinDia* 1.0824 *Thd_IMaxDia* (/(+ 1.0860 1.0926)2) *Thd_IMinDia* 1.1250)) )) ));TPI=28 ((= Size 1.1875)(cond;;1-3/16 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1854 1.1704)2) *Thd_EMinDia* 1.0366 *Thd_IMaxDia* (/(+ 1.0520 1.0770)2) *Thd_IMinDia* 1.1875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1875 1.1725)2) *Thd_EMinDia* 1.0387 *Thd_IMaxDia* (/(+ 1.0520 1.0672)2) *Thd_IMinDia* 1.1875)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1858 1.1744)2) *Thd_EMinDia* 1.0866 *Thd_IMaxDia* (/(+ 1.0970 1.1150)2) *Thd_IMinDia* 1.1875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1875 1.1761)2) *Thd_EMinDia* 1.0883 *Thd_IMaxDia* (/(+ 1.0970 1.1073)2) *Thd_IMinDia* 1.1875)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1860 1.1776)2) *Thd_EMinDia* 1.1115 *Thd_IMaxDia* (/(+ 1.1200 1.1340)2) *Thd_IMinDia* 1.1875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1875 1.1781)2) *Thd_EMinDia* 1.1130 *Thd_IMaxDia* (/(+ 1.1200 1.1283)2) *Thd_IMinDia* 1.1875)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1861 1.1780)2) *Thd_EMinDia* 1.1266 *Thd_IMaxDia* (/(+ 1.1330 1.1450)2) *Thd_IMinDia* 1.1875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1875 1.1794)2) *Thd_EMinDia* 1.1280 *Thd_IMaxDia* (/(+ 1.1330 1.1412)2) *Thd_IMinDia* 1.1875)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1863 1.1798)2) *Thd_EMinDia* 1.1437 *Thd_IMaxDia* (/(+ 1.1490 1.1570)2) *Thd_IMinDia* 1.1875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1875 1.1810)2) *Thd_EMinDia* 1.1449 *Thd_IMaxDia* (/(+ 1.1490 1.1551)2) *Thd_IMinDia* 1.1875)) )) ));TPI=28 ((= Size 1.2500)(cond;;1-1/4 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.2479 1.2329)2) *Thd_EMinDia* 1.0991 *Thd_IMaxDia* (/(+ 1.1150 1.1400)2) *Thd_IMinDia* 1.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.2500 1.2350)2) *Thd_EMinDia* 1.1012 *Thd_IMaxDia* (/(+ 1.1150 1.1297)2) *Thd_IMinDia* 1.2500)) ));TPI=8 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.2485 1.2391)2) *Thd_EMinDia* 1.1740 *Thd_IMaxDia* (/(+ 1.1820 1.1960)2) *Thd_IMinDia* 1.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.2500 1.2406)2) *Thd_EMinDia* 1.1755 *Thd_IMaxDia* (/(+ 1.1820 1.1908)2) *Thd_IMinDia* 1.2500)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.2486 1.2405)2) *Thd_EMinDia* 1.1891 *Thd_IMaxDia* (/(+ 1.1960 1.2070)2) *Thd_IMinDia* 1.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.2500 1.2419)2) *Thd_EMinDia* 1.1905 *Thd_IMaxDia* (/(+ 1.1960 1.2037)2) *Thd_IMinDia* 1.2500)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.2488 1.2423)2) *Thd_EMinDia* 1.2062 *Thd_IMaxDia* (/(+ 1.2110 1.2200)2) *Thd_IMinDia* 1.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.2500 1.2435)2) *Thd_EMinDia* 1.2074 *Thd_IMaxDia* (/(+ 1.2110 1.2176)2) *Thd_IMinDia* 1.2500)) )) ));TPI=28 ((= Size 1.3125)(cond;;1-5/16 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3104 1.2954)2) *Thd_EMinDia* 1.1616 *Thd_IMaxDia* (/(+ 1.1770 1.2020)2) *Thd_IMinDia* 1.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3125 1.2975)2) *Thd_EMinDia* 1.1637 *Thd_IMaxDia* (/(+ 1.1770 1.1922)2) *Thd_IMinDia* 1.3125)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3108 1.2994)2) *Thd_EMinDia* 1.2116 *Thd_IMaxDia* (/(+ 1.2220 1.2400)2) *Thd_IMinDia* 1.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3125 1.3011)2) *Thd_EMinDia* 1.2133 *Thd_IMaxDia* (/(+ 1.2220 1.2323)2) *Thd_IMinDia* 1.3125)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3110 1.3016)2) *Thd_EMinDia* 1.2365 *Thd_IMaxDia* (/(+ 1.2450 1.2590)2) *Thd_IMinDia* 1.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3125 1.3031)2) *Thd_EMinDia* 1.2380 *Thd_IMaxDia* (/(+ 1.2450 1.2533)2) *Thd_IMinDia* 1.3125)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3111 1.3030)2) *Thd_EMinDia* 1.2516 *Thd_IMaxDia* (/(+ 1.2580 1.2700)2) *Thd_IMinDia* 1.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3125 1.3044)2) *Thd_EMinDia* 1.2530 *Thd_IMaxDia* (/(+ 1.2580 1.2662)2) *Thd_IMinDia* 1.3125)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3113 1.3048)2) *Thd_EMinDia* 1.2687 *Thd_IMaxDia* (/(+ 1.2740 1.2820)2) *Thd_IMinDia* 1.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3125 1.3060)2) *Thd_EMinDia* 1.2699 *Thd_IMaxDia* (/(+ 1.2740 1.2801)2) *Thd_IMinDia* 1.3125)) )) ));TPI=28 ((= Size 1.3750)(cond;;1-3/8 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3728 1.3578)2) *Thd_EMinDia* 1.2240 *Thd_IMaxDia* (/(+ 1.1240 1.2650)2) *Thd_IMinDia* 1.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3750 1.3600)2) *Thd_EMinDia* 1.2262 *Thd_IMaxDia* (/(+ 1.2400 1.2547)2) *Thd_IMinDia* 1.3750)) ));TPI=8 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3735 1.3641)2) *Thd_EMinDia* 1.2990 *Thd_IMaxDia* (/(+ 1.3070 1.3210)2) *Thd_IMinDia* 1.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3750 1.3656)2) *Thd_EMinDia* 1.3005 *Thd_IMaxDia* (/(+ 1.3070 1.3158)2) *Thd_IMinDia* 1.3750)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3736 1.3655)2) *Thd_EMinDia* 1.3141 *Thd_IMaxDia* (/(+ 1.3210 1.3320)2) *Thd_IMinDia* 1.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3750 1.3669)2) *Thd_EMinDia* 1.3155 *Thd_IMaxDia* (/(+ 1.3210 1.3387)2) *Thd_IMinDia* 1.3750)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3738 1.3673)2) *Thd_EMinDia* 1.3312 *Thd_IMaxDia* (/(+ 1.3360 1.3450)2) *Thd_IMinDia* 1.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3750 1.3685)2) *Thd_EMinDia* 1.3324 *Thd_IMaxDia* (/(+ 1.3360 1.3426)2) *Thd_IMinDia* 1.3750)) )) ));TPI=28 ((= Size 1.4375)(cond;;1-7/16 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4351 1.4169)2) *Thd_EMinDia* 1.2367 *Thd_IMaxDia* (/(+ 1.2570 1.2880)2) *Thd_IMinDia* 1.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.4375 1.4193)2) *Thd_EMinDia* 1.2391 *Thd_IMaxDia* (/(+ 1.2570 1.2771)2) *Thd_IMinDia* 1.4375)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4353 1.4203)2) *Thd_EMinDia* 1.2865 *Thd_IMaxDia* (/(+ 1.3020 1.3270)2) *Thd_IMinDia* 1.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.4375 1.4225)2) *Thd_EMinDia* 1.2887 *Thd_IMaxDia* (/(+ 1.3020 1.3172)2) *Thd_IMinDia* 1.4375)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4357 1.4243)2) *Thd_EMinDia* 1.3365 *Thd_IMaxDia* (/(+ 1.3470 1.3650)2) *Thd_IMinDia* 1.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.4375 1.4261)2) *Thd_EMinDia* 1.3383 *Thd_IMaxDia* (/(+ 1.3470 1.3573)2) *Thd_IMinDia* 1.4375)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4359 1.4265)2) *Thd_EMinDia* 1.3614 *Thd_IMaxDia* (/(+ 1.3700 1.3840)2) *Thd_IMinDia* 1.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.4375 1.4281)2) *Thd_EMinDia* 1.3630 *Thd_IMaxDia* (/(+ 1.3700 1.3783)2) *Thd_IMinDia* 1.4375)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4361 1.4280)2) *Thd_EMinDia* 1.3766 *Thd_IMaxDia* (/(+ 1.3830 1.3950)2) *Thd_IMinDia* 1.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.4375 1.4294)2) *Thd_EMinDia* 1.3780 *Thd_IMaxDia* (/(+ 1.3830 1.3912)2) *Thd_IMinDia* 1.4375)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4362 1.4297)2) *Thd_EMinDia* 1.3936 *Thd_IMaxDia* (/(+ 1.3990 1.4070)2) *Thd_IMinDia* 1.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.4375 1.4310)2) *Thd_EMinDia* 1.3949 *Thd_IMaxDia* (/(+ 1.3990 1.4051)2) *Thd_IMinDia* 1.4375)) )) ));TPI=28 ((= Size 1.5000)(cond;;1-1/2 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4978 1.4828)2) *Thd_EMinDia* 1.3490 *Thd_IMaxDia* (/(+ 1.3650 1.3900)2) *Thd_IMinDia* 1.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5000 1.4850)2) *Thd_EMinDia* 1.3512 *Thd_IMaxDia* (/(+ 1.3650 1.3797)2) *Thd_IMinDia* 1.5000)) ));TPI=8 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4894 1.4890)2) *Thd_EMinDia* 1.4239 *Thd_IMaxDia* (/(+ 1.4320 1.4460)2) *Thd_IMinDia* 1.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5000 1.4906)2) *Thd_EMinDia* 1.4255 *Thd_IMaxDia* (/(+ 1.4320 1.4408)2) *Thd_IMinDia* 1.5000)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4986 1.4905)2) *Thd_EMinDia* 1.4391 *Thd_IMaxDia* (/(+ 1.4460 1.4570)2) *Thd_IMinDia* 1.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5000 1.4919)2) *Thd_EMinDia* 1.4405 *Thd_IMaxDia* (/(+ 1.4460 1.4537)2) *Thd_IMinDia* 1.5000)) ));TPI=20 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4987 1.4922)2) *Thd_EMinDia* 1.4561 *Thd_IMaxDia* (/(+ 1.4610 1.4700)2) *Thd_IMinDia* 1.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5000 1.4935)2) *Thd_EMinDia* 1.4574 *Thd_IMaxDia* (/(+ 1.4610 1.4676)2) *Thd_IMinDia* 1.5000)) )) ));TPI=28 ((= Size 1.5625)(cond;;1-9/16 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.5601 1.5419)2) *Thd_EMinDia* 1.3617 *Thd_IMaxDia* (/(+ 1.3820 1.4130)2) *Thd_IMinDia* 1.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5625 1.5443)2) *Thd_EMinDia* 1.3641 *Thd_IMaxDia* (/(+ 1.3820 1.4021)2) *Thd_IMinDia* 1.5625)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.5603 1.5453)2) *Thd_EMinDia* 1.4115 *Thd_IMaxDia* (/(+ 1.4270 1.4520)2) *Thd_IMinDia* 1.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5625 1.5475)2) *Thd_EMinDia* 1.4137 *Thd_IMaxDia* (/(+ 1.4270 1.4422)2) *Thd_IMinDia* 1.5625)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.5607 1.5493)2) *Thd_EMinDia* 1.4615 *Thd_IMaxDia* (/(+ 1.4720 1.4900)2) *Thd_IMinDia* 1.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5625 1.5511)2) *Thd_EMinDia* 1.4633 *Thd_IMaxDia* (/(+ 1.4720 1.4823)2) *Thd_IMinDia* 1.5625)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.5609 1.5515)2) *Thd_EMinDia* 1.4864 *Thd_IMaxDia* (/(+ 1.4950 1.5090)2) *Thd_IMinDia* 1.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5625 1.5531)2) *Thd_EMinDia* 1.4880 *Thd_IMaxDia* (/(+ 1.4950 1.5033)2) *Thd_IMinDia* 1.5625)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.5611 1.5530)2) *Thd_EMinDia* 1.5016 *Thd_IMaxDia* (/(+ 1.5080 1.5200)2) *Thd_IMinDia* 1.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5625 1.5544)2) *Thd_EMinDia* 1.5030 *Thd_IMaxDia* (/(+ 1.5080 1.5162)2) *Thd_IMinDia* 1.5625)) )) ));TPI=20 ((= Size 1.6250)(cond;;1-5/8 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6225 1.6043)2) *Thd_EMinDia* 1.4246 *Thd_IMaxDia* (/(+ 1.4450 1.4750)2) *Thd_IMinDia* 1.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6250 1.6068)2) *Thd_EMinDia* 1.4271 *Thd_IMaxDia* (/(+ 1.4450 1.4646)2) *Thd_IMinDia* 1.6250)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6228 1.6078)2) *Thd_EMinDia* 1.4784 *Thd_IMaxDia* (/(+ 1.4900 1.5150)2) *Thd_IMinDia* 1.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6250 1.6100)2) *Thd_EMinDia* 1.4806 *Thd_IMaxDia* (/(+ 1.4900 1.5047)2) *Thd_IMinDia* 1.6250)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6232 1.6118)2) *Thd_EMinDia* 1.5240 *Thd_IMaxDia* (/(+ 1.5350 1.5530)2) *Thd_IMinDia* 1.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6250 1.6136)2) *Thd_EMinDia* 1.5258 *Thd_IMaxDia* (/(+ 1.5350 1.5448)2) *Thd_IMinDia* 1.6250)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6234 1.6140)2) *Thd_EMinDia* 1.5489 *Thd_IMaxDia* (/(+ 1.5570 1.5710)2) *Thd_IMinDia* 1.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6250 1.6156)2) *Thd_EMinDia* 1.5505 *Thd_IMaxDia* (/(+ 1.5570 1.5658)2) *Thd_IMinDia* 1.6250)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6236 1.6155)2) *Thd_EMinDia* 1.5641 *Thd_IMaxDia* (/(+ 1.5710 1.5820)2) *Thd_IMinDia* 1.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6250 1.6169)2) *Thd_EMinDia* 1.5655 *Thd_IMaxDia* (/(+ 1.5710 1.5787)2) *Thd_IMinDia* 1.6250)) )) ));TPI=20 ((= Size 1.6875)(cond;;1-11/16 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6850 1.6668)2) *Thd_EMinDia* 1.4866 *Thd_IMaxDia* (/(+ 1.5070 1.5380)2) *Thd_IMinDia* 1.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6875 1.6693)2) *Thd_EMinDia* 1.4891 *Thd_IMaxDia* (/(+ 1.5070 1.5271)2) *Thd_IMinDia* 1.6875)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6853 1.6703)2) *Thd_EMinDia* 1.5365 *Thd_IMaxDia* (/(+ 1.5520 1.5770)2) *Thd_IMinDia* 1.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6875 1.6725)2) *Thd_EMinDia* 1.5387 *Thd_IMaxDia* (/(+ 1.5520 1.5672)2) *Thd_IMinDia* 1.6875)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6857 1.6743)2) *Thd_EMinDia* 1.5865 *Thd_IMaxDia* (/(+ 1.5970 1.6150)2) *Thd_IMinDia* 1.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6875 1.6761)2) *Thd_EMinDia* 1.5883 *Thd_IMaxDia* (/(+ 1.5970 1.6073)2) *Thd_IMinDia* 1.6875)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6859 1.6765)2) *Thd_EMinDia* 1.6114 *Thd_IMaxDia* (/(+ 1.6200 1.6340)2) *Thd_IMinDia* 1.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6875 1.6781)2) *Thd_EMinDia* 1.6130 *Thd_IMaxDia* (/(+ 1.6200 1.6283)2) *Thd_IMinDia* 1.6875)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6860 1.6779)2) *Thd_EMinDia* 1.6265 *Thd_IMaxDia* (/(+ 1.6330 1.6450)2) *Thd_IMinDia* 1.6875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.6875 1.6794)2) *Thd_EMinDia* 1.6280 *Thd_IMaxDia* (/(+ 1.6330 1.6412)2) *Thd_IMinDia* 1.6875)) )) ));TPI=20 ((= Size 1.7500)(cond;;1-3/4 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.7475 1.7293)2) *Thd_EMinDia* 1.5491 *Thd_IMaxDia* (/(+ 1.5700 1.6000)2) *Thd_IMinDia* 1.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.7500 1.7318)2) *Thd_EMinDia* 1.5516 *Thd_IMaxDia* (/(+ 1.5700 1.5896)2) *Thd_IMinDia* 1.7500)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.7477 1.7327)2) *Thd_EMinDia* 1.5989 *Thd_IMaxDia* (/(+ 1.6150 1.6400)2) *Thd_IMinDia* 1.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.7500 1.7350)2) *Thd_EMinDia* 1.6012 *Thd_IMaxDia* (/(+ 1.6150 1.6297)2) *Thd_IMinDia* 1.7500)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.7482 1.7368)2) *Thd_EMinDia* 1.6490 *Thd_IMaxDia* (/(+ 1.6600 1.6780)2) *Thd_IMinDia* 1.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.7500 1.7386)2) *Thd_EMinDia* 1.6508 *Thd_IMaxDia* (/(+ 1.6600 1.6698)2) *Thd_IMinDia* 1.7500)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.7484 1.7390)2) *Thd_EMinDia* 1.6739 *Thd_IMaxDia* (/(+ 1.6820 1.6960)2) *Thd_IMinDia* 1.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.7500 1.7406)2) *Thd_EMinDia* 1.6755 *Thd_IMaxDia* (/(+ 1.6820 1.6908)2) *Thd_IMinDia* 1.7500)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.7485 1.7404)2) *Thd_EMinDia* 1.6890 *Thd_IMaxDia* (/(+ 1.6960 1.7070)2) *Thd_IMinDia* 1.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.7500 1.7419)2) *Thd_EMinDia* 1.6905 *Thd_IMaxDia* (/(+ 1.6960 1.7037)2) *Thd_IMinDia* 1.7500)) )) ));TPI=20 ((= Size 1.8125)(cond;;1-13/16 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8100 1.7918)2) *Thd_EMinDia* 1.6116 *Thd_IMaxDia* (/(+ 1.6320 1.6630)2) *Thd_IMinDia* 1.8125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.8125 1.7943)2) *Thd_EMinDia* 1.6141 *Thd_IMaxDia* (/(+ 1.6320 1.6521)2) *Thd_IMinDia* 1.8125)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8102 1.7952)2) *Thd_EMinDia* 1.6614 *Thd_IMaxDia* (/(+ 1.6770 1.7020)2) *Thd_IMinDia* 1.8125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.8125 1.7975)2) *Thd_EMinDia* 1.6637 *Thd_IMaxDia* (/(+ 1.6770 1.6922)2) *Thd_IMinDia* 1.8125)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8107 1.7993)2) *Thd_EMinDia* 1.7115 *Thd_IMaxDia* (/(+ 1.7220 1.7400)2) *Thd_IMinDia* 1.8125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.8125 1.8011)2) *Thd_EMinDia* 1.7133 *Thd_IMaxDia* (/(+ 1.7220 1.7323)2) *Thd_IMinDia* 1.8125)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8109 1.8015)2) *Thd_EMinDia* 1.7364 *Thd_IMaxDia* (/(+ 1.7450 1.7590)2) *Thd_IMinDia* 1.8125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.8125 1.8031)2) *Thd_EMinDia* 1.7380 *Thd_IMaxDia* (/(+ 1.7450 1.7533)2) *Thd_IMinDia* 1.8125)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8110 1.8029)2) *Thd_EMinDia* 1.7515 *Thd_IMaxDia* (/(+ 1.7580 1.7700)2) *Thd_IMinDia* 1.8125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.8125 1.8044)2) *Thd_EMinDia* 1.7530 *Thd_IMaxDia* (/(+ 1.7580 1.7662)2) *Thd_IMinDia* 1.8125)) )) ));TPI=20 ((= Size 1.8750)(cond;;1-7/8 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8725 1.8543)2) *Thd_EMinDia* 1.6741 *Thd_IMaxDia* (/(+ 1.6950 1.7250)2) *Thd_IMinDia* 1.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.8750 1.8568)2) *Thd_EMinDia* 1.6766 *Thd_IMaxDia* (/(+ 1.6950 1.7146)2) *Thd_IMinDia* 1.8750)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8727 1.8577)2) *Thd_EMinDia* 1.7239 *Thd_IMaxDia* (/(+ 1.7400 1.7650)2) *Thd_IMinDia* 1.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.8750 1.8600)2) *Thd_EMinDia* 1.7262 *Thd_IMaxDia* (/(+ 1.7400 1.7547)2) *Thd_IMinDia* 1.8750)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8732 1.8618)2) *Thd_EMinDia* 1.7740 *Thd_IMaxDia* (/(+ 1.7850 1.8030)2) *Thd_IMinDia* 1.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.8750 1.8636)2) *Thd_EMinDia* 1.7758 *Thd_IMaxDia* (/(+ 1.7850 1.7948)2) *Thd_IMinDia* 1.8750)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8734 1.8640)2) *Thd_EMinDia* 1.7989 *Thd_IMaxDia* (/(+ 1.8070 1.8210)2) *Thd_IMinDia* 1.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.8750 1.8656)2) *Thd_EMinDia* 1.8005 *Thd_IMaxDia* (/(+ 1.8070 1.8158)2) *Thd_IMinDia* 1.8750)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8735 1.8654)2) *Thd_EMinDia* 1.8140 *Thd_IMaxDia* (/(+ 1.8210 1.8320)2) *Thd_IMinDia* 1.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.8750 1.8669)2) *Thd_EMinDia* 1.8155 *Thd_IMaxDia* (/(+ 1.8210 1.8287)2) *Thd_IMinDia* 1.8750)) )) ));TPI=20 ((= Size 1.9375)(cond;;1-15/16 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9349 1.9167)2) *Thd_EMinDia* 1.7365 *Thd_IMaxDia* (/(+ 1.7570 1.7880)2) *Thd_IMinDia* 1.9375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.9375 1.9193)2) *Thd_EMinDia* 1.7391 *Thd_IMaxDia* (/(+ 1.7570 1.7771)2) *Thd_IMinDia* 1.9375)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9352 1.9202)2) *Thd_EMinDia* 1.7864 *Thd_IMaxDia* (/(+ 1.8020 1.8270)2) *Thd_IMinDia* 1.9375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.9375 1.9225)2) *Thd_EMinDia* 1.7887 *Thd_IMaxDia* (/(+ 1.8020 1.8172)2) *Thd_IMinDia* 1.9375)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9357 1.9243)2) *Thd_EMinDia* 1.8365 *Thd_IMaxDia* (/(+ 1.8470 1.8650)2) *Thd_IMinDia* 1.9375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.9375 1.9261)2) *Thd_EMinDia* 1.8383 *Thd_IMaxDia* (/(+ 1.8470 1.8573)2) *Thd_IMinDia* 1.9375)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9359 1.9265)2) *Thd_EMinDia* 1.8614 *Thd_IMaxDia* (/(+ 1.8700 1.8840)2) *Thd_IMinDia* 1.9375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.9375 1.9281)2) *Thd_EMinDia* 1.8630 *Thd_IMaxDia* (/(+ 1.8700 1.8783)2) *Thd_IMinDia* 1.9375)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9360 1.9279)2) *Thd_EMinDia* 1.8765 *Thd_IMaxDia* (/(+ 1.8830 1.8950)2) *Thd_IMinDia* 1.9375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.9375 1.9294)2) *Thd_EMinDia* 1.8780 *Thd_IMaxDia* (/(+ 1.8830 1.8912)2) *Thd_IMinDia* 1.9375)) )) ));TPI=20 ((= Size 2.0000)(cond;;2 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9974 1.9792)2) *Thd_EMinDia* 1.7790 *Thd_IMaxDia* (/(+ 1.8200 1.8500)2) *Thd_IMinDia* 2.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.0000 1.9818)2) *Thd_EMinDia* 1.8016 *Thd_IMaxDia* (/(+ 1.8200 1.8396)2) *Thd_IMinDia* 2.0000)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9977 1.9827)2) *Thd_EMinDia* 1.8489 *Thd_IMaxDia* (/(+ 1.8650 1.8900)2) *Thd_IMinDia* 2.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.0000 1.9850)2) *Thd_EMinDia* 1.8512 *Thd_IMaxDia* (/(+ 1.8650 1.8797)2) *Thd_IMinDia* 2.0000)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9982 1.9868)2) *Thd_EMinDia* 1.8990 *Thd_IMaxDia* (/(+ 1.9100 1.9280)2) *Thd_IMinDia* 2.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.0000 1.9886)2) *Thd_EMinDia* 1.9008 *Thd_IMaxDia* (/(+ 1.9100 1.9198)2) *Thd_IMinDia* 2.0000)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9984 1.9890)2) *Thd_EMinDia* 1.9239 *Thd_IMaxDia* (/(+ 1.9320 1.9460)2) *Thd_IMinDia* 2.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.0000 1.9906)2) *Thd_EMinDia* 1.9255 *Thd_IMaxDia* (/(+ 1.9320 1.9408)2) *Thd_IMinDia* 2.0000)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9985 1.9904)2) *Thd_EMinDia* 1.9390 *Thd_IMaxDia* (/(+ 1.9460 1.9570)2) *Thd_IMinDia* 2.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.0000 1.9919)2) *Thd_EMinDia* 1.9405 *Thd_IMaxDia* (/(+ 1.9460 1.9537)2) *Thd_IMinDia* 2.0000)) )) ));TPI=20 ((= Size 2.1250)(cond;;2-1/8 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.1224 2.1042)2) *Thd_EMinDia* 2.9240 *Thd_IMaxDia* (/(+ 1.9450 1.9750)2) *Thd_IMinDia* 2.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.1250 2.1068)2) *Thd_EMinDia* 2.9266 *Thd_IMaxDia* (/(+ 1.9450 1.9646)2) *Thd_IMinDia* 2.1250)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.1226 2.1076)2) *Thd_EMinDia* 1.9738 *Thd_IMaxDia* (/(+ 1.9900 2.0150)2) *Thd_IMinDia* 2.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.1250 2.1100)2) *Thd_EMinDia* 1.9762 *Thd_IMaxDia* (/(+ 1.9900 2.0047)2) *Thd_IMinDia* 2.1250)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.1232 2.1118)2) *Thd_EMinDia* 2.0240 *Thd_IMaxDia* (/(+ 1.0350 2.0530)2) *Thd_IMinDia* 2.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.1250 2.1136)2) *Thd_EMinDia* 2.0258 *Thd_IMaxDia* (/(+ 1.0350 2.0448)2) *Thd_IMinDia* 2.1250)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.1234 2.1140)2) *Thd_EMinDia* 2.0489 *Thd_IMaxDia* (/(+ 1.0570 2.0710)2) *Thd_IMinDia* 2.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.1250 2.1156)2) *Thd_EMinDia* 2.0505 *Thd_IMaxDia* (/(+ 1.0570 2.0658)2) *Thd_IMinDia* 2.1250)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.1235 2.1154)2) *Thd_EMinDia* 2.0640 *Thd_IMaxDia* (/(+ 2.0710 2.0820)2) *Thd_IMinDia* 2.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.1250 2.1169)2) *Thd_EMinDia* 2.0655 *Thd_IMaxDia* (/(+ 2.0710 2.0787)2) *Thd_IMinDia* 2.1250)) )) ));TPI=20 ((= Size 2.2500)(cond;;2-1/4 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2474 2.2292)2) *Thd_EMinDia* 2.0490 *Thd_IMaxDia* (/(+ 2.0700 2.1000)2) *Thd_IMinDia* 2.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.2500 2.2318)2) *Thd_EMinDia* 2.0516 *Thd_IMaxDia* (/(+ 2.0700 2.0896)2) *Thd_IMinDia* 2.2500)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2476 2.2326)2) *Thd_EMinDia* 2.0988 *Thd_IMaxDia* (/(+ 2.1150 2.1400)2) *Thd_IMinDia* 2.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.2500 2.2350)2) *Thd_EMinDia* 2.1012 *Thd_IMaxDia* (/(+ 2.1150 2.1297)2) *Thd_IMinDia* 2.2500)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2482 2.2368)2) *Thd_EMinDia* 2.1490 *Thd_IMaxDia* (/(+ 2.1600 2.1780)2) *Thd_IMinDia* 2.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.2500 2.2386)2) *Thd_EMinDia* 2.1508 *Thd_IMaxDia* (/(+ 2.1600 2.1698)2) *Thd_IMinDia* 2.2500)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2484 2.2390)2) *Thd_EMinDia* 2.1739 *Thd_IMaxDia* (/(+ 2.1820 2.1960)2) *Thd_IMinDia* 2.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.2500 2.2406)2) *Thd_EMinDia* 2.1755 *Thd_IMaxDia* (/(+ 2.1820 2.1908)2) *Thd_IMinDia* 2.2500)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2485 2.2404)2) *Thd_EMinDia* 2.1890 *Thd_IMaxDia* (/(+ 2.1960 2.2070)2) *Thd_IMinDia* 2.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.2500 2.2419)2) *Thd_EMinDia* 2.1905 *Thd_IMaxDia* (/(+ 2.1960 2.2037)2) *Thd_IMinDia* 2.2500)) )) ));TPI=20 ((= Size 2.3750)(cond;;2-3/8 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.3723 2.3541)2) *Thd_EMinDia* 2.1739 *Thd_IMaxDia* (/(+ 2.1950 2.2260)2) *Thd_IMinDia* 2.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.3750 2.3568)2) *Thd_EMinDia* 2.1766 *Thd_IMaxDia* (/(+ 2.1950 2.2146)2) *Thd_IMinDia* 2.3750)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.3726 2.3576)2) *Thd_EMinDia* 2.2238 *Thd_IMaxDia* (/(+ 2.2400 2.2650)2) *Thd_IMinDia* 2.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.3750 2.3600)2) *Thd_EMinDia* 2.2262 *Thd_IMaxDia* (/(+ 2.2400 2.2547)2) *Thd_IMinDia* 2.3750)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.3731 2.3617)2) *Thd_EMinDia* 2.2739 *Thd_IMaxDia* (/(+ 2.2850 2.3030)2) *Thd_IMinDia* 2.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.3750 2.3636)2) *Thd_EMinDia* 2.2758 *Thd_IMaxDia* (/(+ 2.2850 2.2948)2) *Thd_IMinDia* 2.3750)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.3733 2.3639)2) *Thd_EMinDia* 2.2988 *Thd_IMaxDia* (/(+ 2.3070 2.3210)2) *Thd_IMinDia* 2.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.3750 2.3656)2) *Thd_EMinDia* 2.3005 *Thd_IMaxDia* (/(+ 2.3070 2.3158)2) *Thd_IMinDia* 2.3750)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.3735 2.3654)2) *Thd_EMinDia* 2.3140 *Thd_IMaxDia* (/(+ 2.3210 2.3320)2) *Thd_IMinDia* 2.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.3750 2.3669)2) *Thd_EMinDia* 2.3155 *Thd_IMaxDia* (/(+ 2.3210 2.3287)2) *Thd_IMinDia* 2.3750)) )) ));TPI=20 ((= Size 2.5000)(cond;;2-1/2 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4973 2.4791)2) *Thd_EMinDia* 2.2989 *Thd_IMaxDia* (/(+ 2.3200 2.3500)2) *Thd_IMinDia* 2.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.5000 2.4818)2) *Thd_EMinDia* 2.3016 *Thd_IMaxDia* (/(+ 2.3200 2.3396)2) *Thd_IMinDia* 2.5000)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4976 2.4826)2) *Thd_EMinDia* 2.3488 *Thd_IMaxDia* (/(+ 2.3650 2.3900)2) *Thd_IMinDia* 2.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.5000 2.4850)2) *Thd_EMinDia* 2.3512 *Thd_IMaxDia* (/(+ 2.3650 2.3797)2) *Thd_IMinDia* 2.5000)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4981 2.4867)2) *Thd_EMinDia* 2.3989 *Thd_IMaxDia* (/(+ 2.4100 2.4280)2) *Thd_IMinDia* 2.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.5000 2.4886)2) *Thd_EMinDia* 2.4008 *Thd_IMaxDia* (/(+ 2.4100 2.4198)2) *Thd_IMinDia* 2.5000)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4983 2.4889)2) *Thd_EMinDia* 2.4238 *Thd_IMaxDia* (/(+ 2.4320 2.4460)2) *Thd_IMinDia* 2.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.5000 2.4906)2) *Thd_EMinDia* 2.4255 *Thd_IMaxDia* (/(+ 2.4320 2.4408)2) *Thd_IMinDia* 2.5000)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4985 2.4904)2) *Thd_EMinDia* 2.4390 *Thd_IMaxDia* (/(+ 2.4460 2.4570)2) *Thd_IMinDia* 2.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.5000 2.4919)2) *Thd_EMinDia* 2.4405 *Thd_IMaxDia* (/(+ 2.4460 2.4537)2) *Thd_IMinDia* 2.5000)) )) ));TPI=20 ((= Size 2.6250)(cond;;2-5/8 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.6223 2.6041)2) *Thd_EMinDia* 2.4239 *Thd_IMaxDia* (/(+ 2.4450 2.4750)2) *Thd_IMinDia* 2.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.6250 2.6068)2) *Thd_EMinDia* 2.4266 *Thd_IMaxDia* (/(+ 2.4450 2.4646)2) *Thd_IMinDia* 2.6250)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.6225 2.6075)2) *Thd_EMinDia* 2.4737 *Thd_IMaxDia* (/(+ 2.4900 2.5150)2) *Thd_IMinDia* 2.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.6250 2.6100)2) *Thd_EMinDia* 2.4762 *Thd_IMaxDia* (/(+ 2.4900 2.5047)2) *Thd_IMinDia* 2.6250)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.6231 2.6117)2) *Thd_EMinDia* 2.5239 *Thd_IMaxDia* (/(+ 2.5350 2.5530)2) *Thd_IMinDia* 2.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.6250 2.6136)2) *Thd_EMinDia* 2.5258 *Thd_IMaxDia* (/(+ 2.5350 2.5448)2) *Thd_IMinDia* 2.6250)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.6233 2.6139)2) *Thd_EMinDia* 2.5488 *Thd_IMaxDia* (/(+ 2.5570 2.5710)2) *Thd_IMinDia* 2.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.6250 2.6156)2) *Thd_EMinDia* 2.5505 *Thd_IMaxDia* (/(+ 2.5570 2.5658)2) *Thd_IMinDia* 2.6250)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.6235 2.6154)2) *Thd_EMinDia* 2.5640 *Thd_IMaxDia* (/(+ 2.5710 2.5820)2) *Thd_IMinDia* 2.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.6250 2.6169)2) *Thd_EMinDia* 2.5655 *Thd_IMaxDia* (/(+ 2.5710 2.5787)2) *Thd_IMinDia* 2.6250)) )) ));TPI=20 ((= Size 2.7500)(cond;;2-3/4 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7473 2.7291)2) *Thd_EMinDia* 2.5489 *Thd_IMaxDia* (/(+ 2.5700 2.6000)2) *Thd_IMinDia* 2.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.7500 2.7318)2) *Thd_EMinDia* 2.5516 *Thd_IMaxDia* (/(+ 2.5700 2.5896)2) *Thd_IMinDia* 2.7500)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7475 2.7325)2) *Thd_EMinDia* 2.5987 *Thd_IMaxDia* (/(+ 2.6150 2.6400)2) *Thd_IMinDia* 2.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.7500 2.7350)2) *Thd_EMinDia* 2.6012 *Thd_IMaxDia* (/(+ 2.6150 2.6297)2) *Thd_IMinDia* 2.7500)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7481 2.7367)2) *Thd_EMinDia* 2.6489 *Thd_IMaxDia* (/(+ 2.6600 2.6780)2) *Thd_IMinDia* 2.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.7500 2.7386)2) *Thd_EMinDia* 2.6508 *Thd_IMaxDia* (/(+ 2.6600 2.6698)2) *Thd_IMinDia* 2.7500)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7483 2.7389)2) *Thd_EMinDia* 2.7022 *Thd_IMaxDia* (/(+ 2.6820 2.6960)2) *Thd_IMinDia* 2.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.7500 2.7406)2) *Thd_EMinDia* 2.7053 *Thd_IMaxDia* (/(+ 2.6820 2.6908)2) *Thd_IMinDia* 2.7500)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7485 2.7404)2) *Thd_EMinDia* 2.6890 *Thd_IMaxDia* (/(+ 2.6960 2.7070)2) *Thd_IMinDia* 2.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.7500 2.7419)2) *Thd_EMinDia* 2.6905 *Thd_IMaxDia* (/(+ 2.6960 2.7037)2) *Thd_IMinDia* 2.7500)) )) ));TPI=20 ((= Size 2.8750)(cond;;2-7/8 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.8722 2.8540)2) *Thd_EMinDia* 2.6738 *Thd_IMaxDia* (/(+ 2.6950 2.7250)2) *Thd_IMinDia* 2.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.8750 2.8568)2) *Thd_EMinDia* 2.6766 *Thd_IMaxDia* (/(+ 2.6950 2.7146)2) *Thd_IMinDia* 2.8750)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.8725 2.8575)2) *Thd_EMinDia* 2.7237 *Thd_IMaxDia* (/(+ 2.7400 2.7650)2) *Thd_IMinDia* 2.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.8750 2.8600)2) *Thd_EMinDia* 2.7262 *Thd_IMaxDia* (/(+ 2.7400 2.7547)2) *Thd_IMinDia* 2.8750)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.8731 2.8617)2) *Thd_EMinDia* 2.7739 *Thd_IMaxDia* (/(+ 2.7850 2.8030)2) *Thd_IMinDia* 2.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.8750 2.8636)2) *Thd_EMinDia* 2.7758 *Thd_IMaxDia* (/(+ 2.7850 2.7948)2) *Thd_IMinDia* 2.8750)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.8733 2.8639)2) *Thd_EMinDia* 2.7988 *Thd_IMaxDia* (/(+ 2.8070 2.8210)2) *Thd_IMinDia* 2.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.8750 2.8656)2) *Thd_EMinDia* 2.8005 *Thd_IMaxDia* (/(+ 2.8070 2.8158)2) *Thd_IMinDia* 2.8750)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.8734 2.8653)2) *Thd_EMinDia* 2.8139 *Thd_IMaxDia* (/(+ 2.8210 2.8320)2) *Thd_IMinDia* 2.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.8750 2.8669)2) *Thd_EMinDia* 2.8155 *Thd_IMaxDia* (/(+ 2.8210 2.8287)2) *Thd_IMinDia* 2.8750)) )) ));TPI=20 ((= Size 3.0000)(cond;;3 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.9972 2.9790)2) *Thd_EMinDia* 2.7988 *Thd_IMaxDia* (/(+ 2.8200 2.8500)2) *Thd_IMinDia* 3.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.0000 2.9818)2) *Thd_EMinDia* 2.8016 *Thd_IMaxDia* (/(+ 2.8200 2.8396)2) *Thd_IMinDia* 3.0000)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.9974 2.9824)2) *Thd_EMinDia* 2.8486 *Thd_IMaxDia* (/(+ 2.8650 2.8900)2) *Thd_IMinDia* 3.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.0000 2.9850)2) *Thd_EMinDia* 2.8512 *Thd_IMaxDia* (/(+ 2.8650 2.8797)2) *Thd_IMinDia* 3.0000)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.9981 2.9867)2) *Thd_EMinDia* 2.8989 *Thd_IMaxDia* (/(+ 2.9100 2.9280)2) *Thd_IMinDia* 3.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.0000 2.9886)2) *Thd_EMinDia* 2.9008 *Thd_IMaxDia* (/(+ 2.9100 2.9198)2) *Thd_IMinDia* 3.0000)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.9983 2.9889)2) *Thd_EMinDia* 2.9238 *Thd_IMaxDia* (/(+ 2.9320 2.9460)2) *Thd_IMinDia* 3.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.0000 2.9906)2) *Thd_EMinDia* 2.9255 *Thd_IMaxDia* (/(+ 2.9320 2.9408)2) *Thd_IMinDia* 3.0000)) ));TPI=16 ((= TPI 20)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.9984 2.9903)2) *Thd_EMinDia* 2.9389 *Thd_IMaxDia* (/(+ 2.9460 2.9570)2) *Thd_IMinDia* 3.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.0000 2.9919)2) *Thd_EMinDia* 2.9405 *Thd_IMaxDia* (/(+ 2.9460 2.9537)2) *Thd_IMinDia* 3.0000)) )) ));TPI=20 ((= Size 3.1250)(cond;;3-1/8 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.1222 3.1040)2) *Thd_EMinDia* 2.9238 *Thd_IMaxDia* (/(+ 2.9450 2.9750)2) *Thd_IMinDia* 3.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.1250 3.1068)2) *Thd_EMinDia* 2.9266 *Thd_IMaxDia* (/(+ 2.9450 2.9646)2) *Thd_IMinDia* 3.1250)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.1224 3.1074)2) *Thd_EMinDia* 2.9736 *Thd_IMaxDia* (/(+ 2.9900 2.0150)2) *Thd_IMinDia* 3.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.1250 3.1100)2) *Thd_EMinDia* 2.9762 *Thd_IMaxDia* (/(+ 2.9900 2.0047)2) *Thd_IMinDia* 3.1250)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.1231 3.1117)2) *Thd_EMinDia* 3.0239 *Thd_IMaxDia* (/(+ 3.0350 3.0530)2) *Thd_IMinDia* 3.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.1250 3.1136)2) *Thd_EMinDia* 3.0258 *Thd_IMaxDia* (/(+ 3.0350 3.0448)2) *Thd_IMinDia* 3.1250)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.1233 3.1139)2) *Thd_EMinDia* 3.0488 *Thd_IMaxDia* (/(+ 3.0570 3.0710)2) *Thd_IMinDia* 3.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.1250 3.1156)2) *Thd_EMinDia* 3.0505 *Thd_IMaxDia* (/(+ 3.0570 3.0658)2) *Thd_IMinDia* 3.1250)) )) ));TPI=16 ((= Size 3.2500)(cond;;3-1/4 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.2472 3.2290)2) *Thd_EMinDia* 3.0488 *Thd_IMaxDia* (/(+ 3.0700 3.1000)2) *Thd_IMinDia* 3.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.2500 3.2318)2) *Thd_EMinDia* 3.0516 *Thd_IMaxDia* (/(+ 3.0700 3.0896)2) *Thd_IMinDia* 3.2500)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.2474 3.2324)2) *Thd_EMinDia* 3.0986 *Thd_IMaxDia* (/(+ 3.1150 3.1400)2) *Thd_IMinDia* 3.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.2500 3.2350)2) *Thd_EMinDia* 3.1012 *Thd_IMaxDia* (/(+ 3.1150 3.1297)2) *Thd_IMinDia* 3.2500)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.2481 3.2367)2) *Thd_EMinDia* 3.1489 *Thd_IMaxDia* (/(+ 3.1600 3.1780)2) *Thd_IMinDia* 3.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.2500 3.2386)2) *Thd_EMinDia* 3.1508 *Thd_IMaxDia* (/(+ 3.1600 3.1698)2) *Thd_IMinDia* 3.2500)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.2483 3.2389)2) *Thd_EMinDia* 3.1738 *Thd_IMaxDia* (/(+ 3.1820 3.1960)2) *Thd_IMinDia* 3.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.2500 3.2406)2) *Thd_EMinDia* 3.1755 *Thd_IMaxDia* (/(+ 3.1820 3.1908)2) *Thd_IMinDia* 3.2500)) )) ));TPI=16 ((= Size 3.3750)(cond;;3-3/8 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.3721 3.3539)2) *Thd_EMinDia* 3.1737 *Thd_IMaxDia* (/(+ 3.1950 3.2250)2) *Thd_IMinDia* 3.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.3750 3.3568)2) *Thd_EMinDia* 3.1766 *Thd_IMaxDia* (/(+ 3.1950 3.2146)2) *Thd_IMinDia* 3.3750)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.3724 3.3574)2) *Thd_EMinDia* 3.2236 *Thd_IMaxDia* (/(+ 3.2400 3.2650)2) *Thd_IMinDia* 3.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.3750 3.3600)2) *Thd_EMinDia* 3.2262 *Thd_IMaxDia* (/(+ 3.2400 3.2547)2) *Thd_IMinDia* 3.3750)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.3731 3.3617)2) *Thd_EMinDia* 3.2739 *Thd_IMaxDia* (/(+ 3.2850 3.3030)2) *Thd_IMinDia* 3.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.3750 3.3636)2) *Thd_EMinDia* 3.2758 *Thd_IMaxDia* (/(+ 3.2850 3.2948)2) *Thd_IMinDia* 3.3750)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.3733 3.3639)2) *Thd_EMinDia* 3.2988 *Thd_IMaxDia* (/(+ 3.3070 3.3210)2) *Thd_IMinDia* 3.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.3750 3.3656)2) *Thd_EMinDia* 3.3005 *Thd_IMaxDia* (/(+ 3.3070 3.3158)2) *Thd_IMinDia* 3.3750)) )) ));TPI=16 ((= Size 3.5000)(cond;;3-1/2 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.4971 3.4789)2) *Thd_EMinDia* 3.2987 *Thd_IMaxDia* (/(+ 3.3200 3.3500)2) *Thd_IMinDia* 3.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.5000 3.4818)2) *Thd_EMinDia* 3.3016 *Thd_IMaxDia* (/(+ 3.3200 3.3396)2) *Thd_IMinDia* 3.5000)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.4974 3.4824)2) *Thd_EMinDia* 3.3486 *Thd_IMaxDia* (/(+ 3.3650 3.3900)2) *Thd_IMinDia* 3.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.5000 3.4850)2) *Thd_EMinDia* 3.3512 *Thd_IMaxDia* (/(+ 3.3650 3.3797)2) *Thd_IMinDia* 3.5000)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.4981 3.4867)2) *Thd_EMinDia* 3.3989 *Thd_IMaxDia* (/(+ 3.4100 3.4280)2) *Thd_IMinDia* 3.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.5000 3.4886)2) *Thd_EMinDia* 3.4008 *Thd_IMaxDia* (/(+ 3.4100 3.4198)2) *Thd_IMinDia* 3.5000)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.4983 3.4889)2) *Thd_EMinDia* 3.4238 *Thd_IMaxDia* (/(+ 3.4320 3.4460)2) *Thd_IMinDia* 3.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.5000 3.4906)2) *Thd_EMinDia* 3.4255 *Thd_IMaxDia* (/(+ 3.4320 3.4408)2) *Thd_IMinDia* 3.0000)) )) ));TPI=16 ((= Size 3.6250)(cond;;3-5/8 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.6221 3.6039)2) *Thd_EMinDia* 3.4237 *Thd_IMaxDia* (/(+ 3.4450 3.4750)2) *Thd_IMinDia* 3.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.6250 3.6068)2) *Thd_EMinDia* 3.4266 *Thd_IMaxDia* (/(+ 3.4450 3.4646)2) *Thd_IMinDia* 3.6250)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.6223 3.6073)2) *Thd_EMinDia* 3.4735 *Thd_IMaxDia* (/(+ 3.4900 3.5150)2) *Thd_IMinDia* 3.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.6250 3.6100)2) *Thd_EMinDia* 3.4762 *Thd_IMaxDia* (/(+ 3.4900 3.5047)2) *Thd_IMinDia* 3.6250)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.6231 3.6117)2) *Thd_EMinDia* 3.5239 *Thd_IMaxDia* (/(+ 3.5350 3.5530)2) *Thd_IMinDia* 3.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.6250 3.6136)2) *Thd_EMinDia* 3.5258 *Thd_IMaxDia* (/(+ 3.5350 3.5448)2) *Thd_IMinDia* 3.6250)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.6233 3.6139)2) *Thd_EMinDia* 3.5488 *Thd_IMaxDia* (/(+ 3.5570 3.5710)2) *Thd_IMinDia* 3.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.6250 3.6156)2) *Thd_EMinDia* 3.5505 *Thd_IMaxDia* (/(+ 3.5570 3.5658)2) *Thd_IMinDia* 3.6250)) )) ));TPI=16 ((= Size 3.7500)(cond;;3-3/4 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.7471 3.7289)2) *Thd_EMinDia* 3.5487 *Thd_IMaxDia* (/(+ 3.5700 3.6000)2) *Thd_IMinDia* 3.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.7500 3.7318)2) *Thd_EMinDia* 3.5516 *Thd_IMaxDia* (/(+ 3.5700 3.5896)2) *Thd_IMinDia* 3.7500)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.7473 3.7323)2) *Thd_EMinDia* 3.5985 *Thd_IMaxDia* (/(+ 3.6150 3.6400)2) *Thd_IMinDia* 3.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.7500 3.7350)2) *Thd_EMinDia* 3.6012 *Thd_IMaxDia* (/(+ 3.6150 3.6297)2) *Thd_IMinDia* 3.7500)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.7481 3.7367)2) *Thd_EMinDia* 3.6489 *Thd_IMaxDia* (/(+ 3.6600 3.6780)2) *Thd_IMinDia* 3.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.7500 3.7386)2) *Thd_EMinDia* 3.6508 *Thd_IMaxDia* (/(+ 3.6600 3.6698)2) *Thd_IMinDia* 3.7500)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.7483 3.7389)2) *Thd_EMinDia* 3.6738 *Thd_IMaxDia* (/(+ 3.6820 3.6960)2) *Thd_IMinDia* 3.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.7500 3.7406)2) *Thd_EMinDia* 3.6755 *Thd_IMaxDia* (/(+ 3.6820 3.6908)2) *Thd_IMinDia* 3.7500)) )) ));TPI=16 ((= Size 3.8750)(cond;;3-7/8 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.8720 3.8538)2) *Thd_EMinDia* 3.6736 *Thd_IMaxDia* (/(+ 3.6950 3.7250)2) *Thd_IMinDia* 3.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.8750 3.8568)2) *Thd_EMinDia* 3.6766 *Thd_IMaxDia* (/(+ 3.6950 3.7146)2) *Thd_IMinDia* 3.8750)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.8723 3.8573)2) *Thd_EMinDia* 3.7235 *Thd_IMaxDia* (/(+ 3.7400 3.7650)2) *Thd_IMinDia* 3.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.8750 3.8600)2) *Thd_EMinDia* 3.7262 *Thd_IMaxDia* (/(+ 3.7400 3.7547)2) *Thd_IMinDia* 3.8750)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.8730 3.8616)2) *Thd_EMinDia* 3.7738 *Thd_IMaxDia* (/(+ 3.7850 3.8030)2) *Thd_IMinDia* 3.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.8750 3.8636)2) *Thd_EMinDia* 3.7758 *Thd_IMaxDia* (/(+ 3.7850 3.7948)2) *Thd_IMinDia* 3.8750)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.8732 3.8638)2) *Thd_EMinDia* 3.7987 *Thd_IMaxDia* (/(+ 3.8070 3.8210)2) *Thd_IMinDia* 3.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.8750 3.8656)2) *Thd_EMinDia* 3.8005 *Thd_IMaxDia* (/(+ 3.8070 3.8158)2) *Thd_IMinDia* 3.8750)) )) ));TPI=16 ((= Size 4.0000)(cond;;4 ((= TPI 6)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.9970 3.9788)2) *Thd_EMinDia* 3.7986 *Thd_IMaxDia* (/(+ 3.8200 3.8500)2) *Thd_IMinDia* 4.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 4.0000 3.9818)2) *Thd_EMinDia* 3.8016 *Thd_IMaxDia* (/(+ 3.8200 3.8396)2) *Thd_IMinDia* 4.0000)) ));TPI=6 ((= TPI 8)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.9973 3.9823)2) *Thd_EMinDia* 3.8485 *Thd_IMaxDia* (/(+ 3.8650 3.8900)2) *Thd_IMinDia* 4.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 4.0000 3.9850)2) *Thd_EMinDia* 3.8512 *Thd_IMaxDia* (/(+ 3.8650 3.8797)2) *Thd_IMinDia* 4.0000)) ));TPI=8 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.9980 3.9866)2) *Thd_EMinDia* 3.8988 *Thd_IMaxDia* (/(+ 3.9100 3.9280)2) *Thd_IMinDia* 4.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 4.0000 3.9886)2) *Thd_EMinDia* 3.9008 *Thd_IMaxDia* (/(+ 3.9100 3.9198)2) *Thd_IMinDia* 4.0000)) ));TPI=12 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.9982 3.9888)2) *Thd_EMinDia* 3.9237 *Thd_IMaxDia* (/(+ 3.9320 3.9460)2) *Thd_IMinDia* 4.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 4.0000 3.9906)2) *Thd_EMinDia* 3.9255 *Thd_IMaxDia* (/(+ 3.9320 3.9408)2) *Thd_IMinDia* 4.0000)) )) ));TPI=16 (t (print (format nil " Can't fine the thread information for size - ~A" Size))) ));;Profile=3 ((= Profile0 4)(cond;;UNC / UNRC ((= Size 0.0730)(cond;;No_1 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.0724 0.0686)2) *Thd_EMinDia* 0.0538 *Thd_IMaxDia* (/(+ 0.0561 0.0623)2) *Thd_IMinDia* 0.0730)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.0730 0.0692)2) *Thd_EMinDia* 0.0544 *Thd_IMaxDia* (/(+ 0.0561 0.0623)2) *Thd_IMinDia* 0.0730)) ));#1 ((= Size 0.0860)(cond;;No_2 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.0854 0.0686)2) *Thd_EMinDia* 0.0603 *Thd_IMaxDia* (/(+ 0.0561 0.0623)2) *Thd_IMinDia* 0.0730)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.0860 0.0692)2) *Thd_EMinDia* 0.0614 *Thd_IMaxDia* (/(+ 0.0561 0.0623)2) *Thd_IMinDia* 0.0730)) ));#2 ((= Size 0.0990)(cond;;No_3 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.0983 0.0938)2) *Thd_EMinDia* 0.0734 *Thd_IMaxDia* (/(+ 0.0764 0.0845)2) *Thd_IMinDia* 0.0990)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.0990 0.0945)2) *Thd_EMinDia* 0.0741 *Thd_IMaxDia* (/(+ 0.0764 0.0845)2) *Thd_IMinDia* 0.0990)) ));#3 ((= Size 0.1120)(cond;;No_4 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.1112 0.1061)2) *Thd_EMinDia* 0.0814 *Thd_IMaxDia* (/(+ 0.0849 0.0939)2) *Thd_IMinDia* 0.1120)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.1120 0.1069)2) *Thd_EMinDia* 0.0822 *Thd_IMaxDia* (/(+ 0.0849 0.0939)2) *Thd_IMinDia* 0.1120)) ));#4 ((= Size 0.1251)(cond;;No_5 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.1242 0.1191)2) *Thd_EMinDia* 0.0944 *Thd_IMaxDia* (/(+ 0.0979 0.1062)2) *Thd_IMinDia* 0.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.1250 0.1199)2) *Thd_EMinDia* 0.0952 *Thd_IMaxDia* (/(+ 0.0979 0.1062)2) *Thd_IMinDia* 0.1250)) ));#5 ((= Size 0.1380)(cond;;No_6 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.1372 0.1312)2) *Thd_EMinDia* 0.1000 *Thd_IMaxDia* (/(+ 0.1040 0.1140)2) *Thd_IMinDia* 0.1380)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.1380 0.1320)2) *Thd_EMinDia* 0.1008 *Thd_IMaxDia* (/(+ 0.1040 0.1140)2) *Thd_IMinDia* 0.1380)) ));#6 ((= Size 0.1640)(cond;;No_8 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.1631 0.1571)2) *Thd_EMinDia* 0.1259 *Thd_IMaxDia* (/(+ 0.1300 0.1390)2) *Thd_IMinDia* 0.1640)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.1640 0.1580)2) *Thd_EMinDia* 0.1268 *Thd_IMaxDia* (/(+ 0.1300 0.1389)2) *Thd_IMinDia* 0.1640)) ));#8 ((= Size 0.1032)(cond;;No_10 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.1890 0.1818)2) *Thd_EMinDia* 0.1394 *Thd_IMaxDia* (/(+ 0.1450 0.1560)2) *Thd_IMinDia* 0.1900)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.1900 0.1828)2) *Thd_EMinDia* 0.1629 *Thd_IMaxDia* (/(+ 0.1450 0.1555)2) *Thd_IMinDia* 0.1900)) ));#10 ((= Size 0.1228)(cond;;No_12 ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2150 0.2078)2) *Thd_EMinDia* 0.1654 *Thd_IMaxDia* (/(+ 0.1710 0.1810)2) *Thd_IMinDia* 0.2160)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.2160 0.2088)2) *Thd_EMinDia* 0.1664 *Thd_IMaxDia* (/(+ 0.1710 0.1807)2) *Thd_IMinDia* 0.2160)) ));#12 ((= Size 0.2500)(cond;;1/4 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 0.2489 0.2367)2) *Thd_EMinDia* 0.1894 *Thd_IMaxDia* (/(+ 0.1960 0.2070)2) *Thd_IMinDia* 0.2500)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2489 0.2408)2) *Thd_EMinDia* 0.1894 *Thd_IMaxDia* (/(+ 0.1960 0.2070)2) *Thd_IMinDia* 0.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.2500 0.2419)2) *Thd_EMinDia* 0.1905 *Thd_IMaxDia* (/(+ 0.1960 0.2067)2) *Thd_IMinDia* 0.2500)) ));1/4 ((= Size 0.3125)(cond;;5/16 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 0.3113 0.2982)2) *Thd_EMinDia* 0.2452 *Thd_IMaxDia* (/(+ 0.2520 0.2650)2) *Thd_IMinDia* 0.3125)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3113 0.3026)2) *Thd_EMinDia* 0.2452 *Thd_IMaxDia* (/(+ 0.2520 0.2650)2) *Thd_IMinDia* 0.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.3125 0.3038)2) *Thd_EMinDia* 0.2464 *Thd_IMaxDia* (/(+ 0.2520 0.2630)2) *Thd_IMinDia* 0.3125)) ));5/16 ((= Size 0.3750)(cond;;3/8 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 0.3737 0.3595)2) *Thd_EMinDia* 0.2992 *Thd_IMaxDia* (/(+ 0.3070 0.3210)2) *Thd_IMinDia* 0.3750)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3737 0.3643)2) *Thd_EMinDia* 0.2992 *Thd_IMaxDia* (/(+ 0.3070 0.3210)2) *Thd_IMinDia* 0.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.3750 0.3656)2) *Thd_EMinDia* 0.3005 *Thd_IMaxDia* (/(+ 0.3070 0.3182)2) *Thd_IMinDia* 0.3750)) ));3/8 ((= Size 0.4375)(cond;;7/16 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 0.4361 0.4206)2) *Thd_EMinDia* 0.3511 *Thd_IMaxDia* (/(+ 0.3600 0.3760)2) *Thd_IMinDia* 0.4375)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4361 0.4258)2) *Thd_EMinDia* 0.3511 *Thd_IMaxDia* (/(+ 0.3600 0.3760)2) *Thd_IMinDia* 0.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.4375 0.4272)2) *Thd_EMinDia* 0.3525 *Thd_IMaxDia* (/(+ 0.3600 0.3717)2) *Thd_IMinDia* 0.4375)) ));7/16 ((= Size 0.5000)(cond;;1/2 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 0.4985 0.4822)2) *Thd_EMinDia* 0.4069 *Thd_IMaxDia* (/(+ 0.4170 0.4340)2) *Thd_IMinDia* 0.5000)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4985 0.4876)2) *Thd_EMinDia* 0.4069 *Thd_IMaxDia* (/(+ 0.4170 0.4340)2) *Thd_IMinDia* 0.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.5000 0.4891)2) *Thd_EMinDia* 0.4084 *Thd_IMaxDia* (/(+ 0.4170 0.4284)2) *Thd_IMinDia* 0.5000)) ));1/2 ((= Size 0.5625)(cond;;9/16 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 0.5609 0.5437)2) *Thd_EMinDia* 0.4617 *Thd_IMaxDia* (/(+ 0.4720 0.4900)2) *Thd_IMinDia* 0.5625)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.5609 0.5495)2) *Thd_EMinDia* 0.4617 *Thd_IMaxDia* (/(+ 0.4720 0.4900)2) *Thd_IMinDia* 0.5625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.5625 0.5511)2) *Thd_EMinDia* 0.4633 *Thd_IMaxDia* (/(+ 0.4720 0.4843)2) *Thd_IMinDia* 0.5625)) ));9/16 ((= Size 0.6250)(cond;;5/8 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 0.6234 0.6052)2) *Thd_EMinDia* 0.5152 *Thd_IMaxDia* (/(+ 0.5270 0.5460)2) *Thd_IMinDia* 0.6250)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6234 0.6113)2) *Thd_EMinDia* 0.5152 *Thd_IMaxDia* (/(+ 0.5270 0.5460)2) *Thd_IMinDia* 0.6250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.6250 0.6129)2) *Thd_EMinDia* 0.5168 *Thd_IMaxDia* (/(+ 0.5270 0.5391)2) *Thd_IMinDia* 0.6250)) ));5/8 ((= Size 0.7500)(cond;;3/4 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 0.7482 0.7288)2) *Thd_EMinDia* 0.6291 *Thd_IMaxDia* (/(+ 0.6420 0.6630)2) *Thd_IMinDia* 0.7500)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.7482 0.7353)2) *Thd_EMinDia* 0.6291 *Thd_IMaxDia* (/(+ 0.6420 0.6630)2) *Thd_IMinDia* 0.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.7500 0.7371)2) *Thd_EMinDia* 0.6309 *Thd_IMaxDia* (/(+ 0.6420 0.6545)2) *Thd_IMinDia* 0.7500)) ));3/4 ((= Size 0.8750)(cond;;7/8 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 0.8731 0.8523)2) *Thd_EMinDia* 0.7408 *Thd_IMaxDia* (/(+ 0.7550 0.7780)2) *Thd_IMinDia* 0.8750)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8731 0.8592)2) *Thd_EMinDia* 0.7408 *Thd_IMaxDia* (/(+ 0.7550 0.7780)2) *Thd_IMinDia* 0.8750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.8750 0.8611)2) *Thd_EMinDia* 0.7427 *Thd_IMaxDia* (/(+ 0.7550 0.7681)2) *Thd_IMinDia* 0.8750)) ));7/8 ((= Size 1.0000)(cond;;1 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 0.9980 0.9755)2) *Thd_EMinDia* 0.8492 *Thd_IMaxDia* (/(+ 0.8650 0.8900)2) *Thd_IMinDia* 1.0000)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9980 0.9830)2) *Thd_EMinDia* 0.8492 *Thd_IMaxDia* (/(+ 0.8650 0.8900)2) *Thd_IMinDia* 1.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.0000 0.9850)2) *Thd_EMinDia* 0.8512 *Thd_IMaxDia* (/(+ 0.8650 0.8797)2) *Thd_IMinDia* 1.0000)) ));1 ((= Size 1.1250)(cond;;1-1/8 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 1.1228 1.0982)2) *Thd_EMinDia* 0.9527 *Thd_IMaxDia* (/(+ 0.9700 0.9980)2) *Thd_IMinDia* 1.1250)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1228 1.1064)2) *Thd_EMinDia* 0.9527 *Thd_IMaxDia* (/(+ 0.9700 0.9980)2) *Thd_IMinDia* 1.1250)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.1250 1.1086)2) *Thd_EMinDia* 0.9549 *Thd_IMaxDia* (/(+ 0.9700 0.9875)2) *Thd_IMinDia* 1.1250)) ));1-1/8 ((= Size 1.2500)(cond;;1-1/4 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 1.2478 1.2232)2) *Thd_EMinDia* 1.0777 *Thd_IMaxDia* (/(+ 1.0950 1.1230)2) *Thd_IMinDia* 1.2500)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.2478 1.2314)2) *Thd_EMinDia* 1.0777 *Thd_IMaxDia* (/(+ 1.0950 1.1230)2) *Thd_IMinDia* 1.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.2500 1.2336)2) *Thd_EMinDia* 1.0799 *Thd_IMaxDia* (/(+ 1.0950 1.1125)2) *Thd_IMinDia* 1.2500)) ));1-1/4 ((= Size 1.3750)(cond;;1-3/8 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 1.3726 1.3453)2) *Thd_EMinDia* 1.1742 *Thd_IMaxDia* (/(+ 1.1950 1.2250)2) *Thd_IMinDia* 1.3750)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3726 1.3544)2) *Thd_EMinDia* 1.1742 *Thd_IMaxDia* (/(+ 1.1950 1.2250)2) *Thd_IMinDia* 1.3750)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.3750 1.3568)2) *Thd_EMinDia* 1.1766 *Thd_IMaxDia* (/(+ 1.1950 1.2146)2) *Thd_IMinDia* 1.3750)) ));1-3/8 ((= Size 1.5000)(cond;;1-1/2 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 1.4976 1.4703)2) *Thd_EMinDia* 1.2992 *Thd_IMaxDia* (/(+ 1.3200 1.3500)2) *Thd_IMinDia* 1.5000)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4976 1.4794)2) *Thd_EMinDia* 1.2992 *Thd_IMaxDia* (/(+ 1.3200 1.3500)2) *Thd_IMinDia* 1.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.5000 1.4818)2) *Thd_EMinDia* 1.3016 *Thd_IMaxDia* (/(+ 1.3200 1.3396)2) *Thd_IMinDia* 1.5000)) ));1-1/2 ((= Size 1.7500)(cond;;1-3/4 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 1.7473 1.7165)2) *Thd_EMinDia* 1.5092 *Thd_IMaxDia* (/(+ 1.5340 1.5680)2) *Thd_IMinDia* 1.7500)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.7473 1.7268)2) *Thd_EMinDia* 1.5092 *Thd_IMaxDia* (/(+ 1.5340 1.5680)2) *Thd_IMinDia* 1.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.7500 1.7295)2) *Thd_EMinDia* 1.5119 *Thd_IMaxDia* (/(+ 1.5340 1.5575)2) *Thd_IMinDia* 1.7500)) ));1-3/4 ((= Size 2.0000)(cond;;2 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 1.9971 1.9641)2) *Thd_EMinDia* 1.8385 *Thd_IMaxDia* (/(+ 1.7590 1.7950)2) *Thd_IMinDia* 2.0000)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9971 1.9751)2) *Thd_EMinDia* 1.8433 *Thd_IMaxDia* (/(+ 1.7590 1.7950)2) *Thd_IMinDia* 2.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.0000 1.9780)2) *Thd_EMinDia* 1.8486 *Thd_IMaxDia* (/(+ 1.7590 1.7861)2) *Thd_IMinDia* 2.0000)) ));2 ((= Size 2.2500)(cond;;2-1/4 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 2.2471 2.2141)2) *Thd_EMinDia* 1.9824 *Thd_IMaxDia* (/(+ 2.0090 2.0450)2) *Thd_IMinDia* 2.2500)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2471 2.2251)2) *Thd_EMinDia* 1.9824 *Thd_IMaxDia* (/(+ 2.0090 2.0450)2) *Thd_IMinDia* 2.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.2500 2.2280)2) *Thd_EMinDia* 1.9853 *Thd_IMaxDia* (/(+ 2.0090 2.0361)2) *Thd_IMinDia* 2.2500)) ));2-1/4 ((= Size 2.5000)(cond;;2-1/2 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 2.4969 2.4612)2) *Thd_EMinDia* 2.1992 *Thd_IMaxDia* (/(+ 2.2290 2.2670)2) *Thd_IMinDia* 2.5000)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4969 2.4731)2) *Thd_EMinDia* 2.1992 *Thd_IMaxDia* (/(+ 2.2290 2.2670)2) *Thd_IMinDia* 2.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.5000 2.4762)2) *Thd_EMinDia* 2.2023 *Thd_IMaxDia* (/(+ 2.2290 2.2594)2) *Thd_IMinDia* 2.5000)) ));2-1/2 ((= Size 2.7500)(cond;;2-3/4 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 2.7468 2.7111)2) *Thd_EMinDia* 2.4491 *Thd_IMaxDia* (/(+ 2.4790 2.5170)2) *Thd_IMinDia* 2.7500)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7468 2.7230)2) *Thd_EMinDia* 2.4491 *Thd_IMaxDia* (/(+ 2.4790 2.5170)2) *Thd_IMinDia* 2.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.7500 2.7262)2) *Thd_EMinDia* 2.4523 *Thd_IMaxDia* (/(+ 2.4790 2.5094)2) *Thd_IMinDia* 2.7500)) ));2-3/4 ((= Size 3.0000)(cond;;3 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 2.9968 2.9611)2) *Thd_EMinDia* 2.6991 *Thd_IMaxDia* (/(+ 2.7290 2.7670)2) *Thd_IMinDia* 3.0000)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.9968 2.9730)2) *Thd_EMinDia* 2.6991 *Thd_IMaxDia* (/(+ 2.7290 2.7670)2) *Thd_IMinDia* 3.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.0000 2.9762)2) *Thd_EMinDia* 2.7023 *Thd_IMaxDia* (/(+ 2.7290 2.7594)2) *Thd_IMinDia* 3.0000)) ));3 ((= Size 3.2500)(cond;;3-1/4 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 3.2467 3.2210)2) *Thd_EMinDia* 2.9490 *Thd_IMaxDia* (/(+ 2.9790 3.0170)2) *Thd_IMinDia* 3.2500)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.2467 3.2229)2) *Thd_EMinDia* 2.9490 *Thd_IMaxDia* (/(+ 2.9790 3.0170)2) *Thd_IMinDia* 3.2500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.2500 3.2262)2) *Thd_EMinDia* 2.9523 *Thd_IMaxDia* (/(+ 2.9790 3.0094)2) *Thd_IMinDia* 3.2500)) ));3-1/4 ((= Size 3.5000)(cond;;3-1/2 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 3.4967 3.4610)2) *Thd_EMinDia* 3.1990 *Thd_IMaxDia* (/(+ 3.2290 3.2670)2) *Thd_IMinDia* 3.5000)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.4967 3.4729)2) *Thd_EMinDia* 3.1990 *Thd_IMaxDia* (/(+ 3.2290 3.2670)2) *Thd_IMinDia* 3.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.5000 3.4762)2) *Thd_EMinDia* 3.2023 *Thd_IMaxDia* (/(+ 3.2290 3.2594)2) *Thd_IMinDia* 3.5000)) ));3-1/2 ((= Size 3.7500)(cond;;3-3/4 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 3.7466 3.7109)2) *Thd_EMinDia* 3.4489 *Thd_IMaxDia* (/(+ 3.4790 3.5170)2) *Thd_IMinDia* 3.7500)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.7466 3.7228)2) *Thd_EMinDia* 3.4489 *Thd_IMaxDia* (/(+ 3.4790 3.5170)2) *Thd_IMinDia* 3.7500)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 3.7500 3.7262)2) *Thd_EMinDia* 3.4523 *Thd_IMaxDia* (/(+ 3.4790 3.5094)2) *Thd_IMinDia* 3.7500)) ));3-3/4 ((= Size 4.0000)(cond;;4 ((= Class 1) (setq *Thd_EMaxDia* (/(+ 3.9966 3.9609)2) *Thd_EMinDia* 3.6989 *Thd_IMaxDia* (/(+ 3.7290 3.7670)2) *Thd_IMinDia* 4.0000)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.9966 3.9728)2) *Thd_EMinDia* 3.6989 *Thd_IMaxDia* (/(+ 3.7290 3.7670)2) *Thd_IMinDia* 4.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 4.0000 3.9762)2) *Thd_EMinDia* 3.7023 *Thd_IMaxDia* (/(+ 3.7290 3.7594)2) *Thd_IMinDia* 4.0000)) ));4" (t (print (format nil " Can't fine the thread information for size - ~A" Size))) ));;Profile=4 ((= Profile0 5)(cond;;UNS / UNRS ((= Size 0.1900)(cond;;No_10 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.1890 0.1825)2) *Thd_EMinDia* 0.1464 *Thd_IMaxDia* (/(+ 0.1510 0.1600)2) *Thd_IMinDia* 0.1900)) ));TPI=28 ((= TPI 36)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.1891 0.1836)2) *Thd_EMinDia* 0.1560 *Thd_IMaxDia* (/(+ 0.1600 0.1660)2) *Thd_IMinDia* 0.1900)) ));TPI=36 ((= TPI 40)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.1891 0.1840)2) *Thd_EMinDia* 0.1592 *Thd_IMaxDia* (/(+ 0.1630 0.1690)2) *Thd_IMinDia* 0.1900)) ));TPI=40 ((= TPI 48)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.1892 0.1847)2) *Thd_EMinDia* 0.1644 *Thd_IMaxDia* (/(+ 0.1670 0.1720)2) *Thd_IMinDia* 0.1900)) ));TPI=48 ((= TPI 56)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.1893 0.1852)2) *Thd_EMinDia* 0.1681 *Thd_IMaxDia* (/(+ 0.1710 0.1750)2) *Thd_IMinDia* 0.1900)) ));TPI=56 ));;Size ((= Size 0.2160)(cond;;No_12 ((= TPI 36)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2151 0.2096)2) *Thd_EMinDia* 0.1821 *Thd_IMaxDia* (/(+ 0.1860 0.1920)2) *Thd_IMinDia* 0.2160)) ));TPI=36 ((= TPI 40)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2151 0.2100)2) *Thd_EMinDia* 0.1835 *Thd_IMaxDia* (/(+ 0.1890 0.1950)2) *Thd_IMinDia* 0.2160)) ));TPI=40 ((= TPI 48)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2152 0.2107)2) *Thd_EMinDia* 0.1904 *Thd_IMaxDia* (/(+ 0.1930 0.1980)2) *Thd_IMinDia* 0.2160)) ));TPI=48 ((= TPI 56)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2153 0.2112)2) *Thd_EMinDia* 0.1941 *Thd_IMaxDia* (/(+ 0.1970 0.2010)2) *Thd_IMinDia* 0.2160)) ));TPI=56 ));;Size ((= Size 0.2500)(cond;;1/4 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2489 0.2417)2) *Thd_EMinDia* 0.1993 *Thd_IMaxDia* (/(+ 0.2050 0.2150)2) *Thd_IMinDia* 0.2500)) ));TPI=24 ((= TPI 27)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2490 0.2423)2) *Thd_EMinDia* 0.2049 *Thd_IMaxDia* (/(+ 0.2100 0.2190)2) *Thd_IMinDia* 0.2500)) ));TPI=27 ((= TPI 36)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2491 0.2436)2) *Thd_EMinDia* 0.2161 *Thd_IMaxDia* (/(+ 0.2200 0.2260)2) *Thd_IMinDia* 0.2500)) ));TPI=36 ((= TPI 40)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2491 0.2440)2) *Thd_EMinDia* 0.2193 *Thd_IMaxDia* (/(+ 0.2230 0.2290)2) *Thd_IMinDia* 0.2500)) ));TPI=40 ((= TPI 48)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2492 0.2447)2) *Thd_EMinDia* 0.2243 *Thd_IMaxDia* (/(+ 0.2270 0.2320)2) *Thd_IMinDia* 0.2500)) ));TPI=48 ((= TPI 56)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.2492 0.2451)2) *Thd_EMinDia* 0.2280 *Thd_IMaxDia* (/(+ 0.2310 0.2350)2) *Thd_IMinDia* 0.2500)) ));TPI=56 ));;Size ((= Size 0.3125)(cond;;3/16 ((= TPI 27)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3115 0.3048)2) *Thd_EMinDia* 0.2674 *Thd_IMaxDia* (/(+ 0.2720 0.2810)2) *Thd_IMinDia* 0.3125)) ));TPI=27 ((= TPI 36)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3116 0.3061)2) *Thd_EMinDia* 0.2785 *Thd_IMaxDia* (/(+ 0.2820 0.2890)2) *Thd_IMinDia* 0.3125)) ));TPI=36 ((= TPI 40)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3116 0.3065)2) *Thd_EMinDia* 0.2818 *Thd_IMaxDia* (/(+ 0.2850 0.2910)2) *Thd_IMinDia* 0.3125)) ));TPI=40 ((= TPI 48)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3117 0.3072)2) *Thd_EMinDia* 0.2869 *Thd_IMaxDia* (/(+ 0.2900 0.2950)2) *Thd_IMinDia* 0.3125)) ));TPI=48 ));;Size ((= Size 0.3750)(cond;;3/8 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3737 0.3650)2) *Thd_EMinDia* 0.3076 *Thd_IMaxDia* (/(+ 0.3150 0.3280)2) *Thd_IMinDia* 0.3750)) ));TPI=18 ((= TPI 27)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3739 0.3672)2) *Thd_EMinDia* 0.3298 *Thd_IMaxDia* (/(+ 0.3350 0.3440)2) *Thd_IMinDia* 0.3750)) ));TPI=27 ((= TPI 36)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3740 0.3685)2) *Thd_EMinDia* 0.3409 *Thd_IMaxDia* (/(+ 0.3450 0.3520)2) *Thd_IMinDia* 0.3750)) ));TPI=36 ((= TPI 40)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3741 0.3690)2) *Thd_EMinDia* 0.3443 *Thd_IMaxDia* (/(+ 0.3480 0.3540)2) *Thd_IMinDia* 0.3750)) ));TPI=40 ));;Size ((= Size 0.3900)(cond;;0.39 ((= TPI 27)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.3889 0.3822)2) *Thd_EMinDia* 0.3448 *Thd_IMaxDia* (/(+ 0.3500 0.3590)2) *Thd_IMinDia* 0.3900)) ));TPI=27 ));;Size ((= Size 0.4375)(cond;;7/16 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4362 0.4275)2) *Thd_EMinDia* 0.3710 *Thd_IMaxDia* (/(+ 0.3770 0.3900)2) *Thd_IMinDia* 0.4375)) ));TPI=18 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4364 0.4292)2) *Thd_EMinDia* 0.3868 *Thd_IMaxDia* (/(+ 0.3920 0.4020)2) *Thd_IMinDia* 0.4375)) ));TPI=24 ((= TPI 27)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4364 0.4297)2) *Thd_EMinDia* 0.3923 *Thd_IMaxDia* (/(+ 0.3920 0.4060)2) *Thd_IMinDia* 0.4375)) ));TPI=27 ));;Size ((= Size 0.5000)(cond;;1/2 ((= TPI 12)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4984 0.4870)2) *Thd_EMinDia* 0.3992 *Thd_IMaxDia* (/(+ 0.4100 0.4280)2) *Thd_IMinDia* 0.5000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 0.5000 0.4886)2) *Thd_EMinDia* 0.4008 *Thd_IMaxDia* (/(+ 0.4100 0.4223)2) *Thd_IMinDia* 0.5000)) ));TPI=12 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4985 0.4882)2) *Thd_EMinDia* 0.4471 *Thd_IMaxDia* (/(+ 0.4230 0.4380)2) *Thd_IMinDia* 0.5000)) ));TPI=14 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4987 0.4900)2) *Thd_EMinDia* 0.4326 *Thd_IMaxDia* (/(+ 0.4400 0.4530)2) *Thd_IMinDia* 0.5000)) ));TPI=18 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4988 0.4916)2) *Thd_EMinDia* 0.4492 *Thd_IMaxDia* (/(+ 0.4550 0.4650)2) *Thd_IMinDia* 0.5000)) ));TPI=24 ((= TPI 27)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.4989 0.4922)2) *Thd_EMinDia* 0.4548 *Thd_IMaxDia* (/(+ 0.4600 0.4690)2) *Thd_IMinDia* 0.5000)) ));TPI=27 ));;Size ((= Size 0.5625)(cond;;9/16 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.5610 0.5507)2) *Thd_EMinDia* 0.4760 *Thd_IMaxDia* (/(+ 0.4850 0.5010)2) *Thd_IMinDia* 0.5625)) ));TPI=14 ((= TPI 27)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.5614 0.5547)2) *Thd_EMinDia* 0.5173 *Thd_IMaxDia* (/(+ 0.5220 0.5310)2) *Thd_IMinDia* 0.5625)) ));TPI=27 ));;Size ((= Size 0.6250)(cond;;5/8 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6235 0.6132)2) *Thd_EMinDia* 0.5720 *Thd_IMaxDia* (/(+ 0.5480 0.5640)2) *Thd_IMinDia* 0.6250)) ));TPI=14 ((= TPI 27)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.6239 0.6172)2) *Thd_EMinDia* 0.5798 *Thd_IMaxDia* (/(+ 0.5850 0.5940)2) *Thd_IMinDia* 0.6250)) ));TPI=27 ));;Size ((= Size 0.7500)(cond;;3/4 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.7485 0.7382)2) *Thd_EMinDia* 0.6635 *Thd_IMaxDia* (/(+ 0.6730 0.6880)2) *Thd_IMinDia* 0.7500)) ));TPI=14 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.7486 0.7399)2) *Thd_EMinDia* 0.6825 *Thd_IMaxDia* (/(+ 0.6900 0.7030)2) *Thd_IMinDia* 0.7500)) ));TPI=18 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.7488 0.7416)2) *Thd_EMinDia* 0.6992 *Thd_IMaxDia* (/(+ 0.7050 0.7150)2) *Thd_IMinDia* 0.7500)) ));TPI=24 ((= TPI 28)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.7488 0.7421)2) *Thd_EMinDia* 0.7047 *Thd_IMaxDia* (/(+ 0.7100 0.7190)2) *Thd_IMinDia* 0.7500)) ));TPI=28 ));;Size ((= Size 0.8750)(cond;;7/8 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8732 0.8603)2) *Thd_EMinDia* 0.7542 *Thd_IMaxDia* (/(+ 0.7670 0.7880)2) *Thd_IMinDia* 0.8750)) ));TPI=10 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8736 0.8649)2) *Thd_EMinDia* 0.8075 *Thd_IMaxDia* (/(+ 0.8150 0.8280)2) *Thd_IMinDia* 0.8750)) ));TPI=18 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8738 0.8666)2) *Thd_EMinDia* 0.8242 *Thd_IMaxDia* (/(+ 0.8300 0.8400)2) *Thd_IMinDia* 0.8750)) ));TPI=24 ((= TPI 27)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.8738 0.8671)2) *Thd_EMinDia* 0.8297 *Thd_IMaxDia* (/(+ 0.8350 0.8440)2) *Thd_IMinDia* 0.8750)) ));TPI=27 ));;Size ((= Size 1.0000)(cond;;1 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9982 0.9853)2) *Thd_EMinDia* 0.8792 *Thd_IMaxDia* (/(+ 0.8920 0.9130)2) *Thd_IMinDia* 1.0000)) ));TPI=10 ((= TPI 14)(cond ((= Class 1) (setq *Thd_EMaxDia* (/(+ 0.9983 0.9828)2) *Thd_EMinDia* 0.9132 *Thd_IMaxDia* (/(+ 0.9230 0.9380)2) *Thd_IMinDia* 1.0000)) ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9983 0.9880)2) *Thd_EMinDia* 0.9132 *Thd_IMaxDia* (/(+ 0.9230 0.9380)2) *Thd_IMinDia* 1.0000)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 1.0000 0.9897)2) *Thd_EMinDia* 0.9149 *Thd_IMaxDia* (/(+ 0.9230 0.9315)2) *Thd_IMinDia* 1.0000)) ));TPI=14 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9986 0.9899)2) *Thd_EMinDia* 0.9325 *Thd_IMaxDia* (/(+ 0.9400 0.9530)2) *Thd_IMinDia* 1.0000)) ));TPI=18 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9987 0.9915)2) *Thd_EMinDia* 0.9491 *Thd_IMaxDia* (/(+ 0.9550 0.9650)2) *Thd_IMinDia* 1.0000)) ));TPI=24 ((= TPI 27)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 0.9988 0.9921)2) *Thd_EMinDia* 0.9547 *Thd_IMaxDia* (/(+ 0.9600 0.9690)2) *Thd_IMinDia* 1.0000)) ));TPI=27 ));;Size ((= Size 1.1250)(cond;;1-1/8 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1232 1.1103)2) *Thd_EMinDia* 1.0042 *Thd_IMaxDia* (/(+ 1.0170 1.0380)2) *Thd_IMinDia* 1.1250)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1234 1.1131)2) *Thd_EMinDia* 1.0384 *Thd_IMaxDia* (/(+ 1.0480 1.0640)2) *Thd_IMinDia* 1.1250)) ));TPI=14 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.1237 1.1165)2) *Thd_EMinDia* 1.0742 *Thd_IMaxDia* (/(+ 1.0800 1.0900)2) *Thd_IMinDia* 1.1250)) ));TPI=24 ));;Size ((= Size 1.2500)(cond;;1-1/4 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.2481 1.2352)2) *Thd_EMinDia* 1.1291 *Thd_IMaxDia* (/(+ 1.1420 1.1630)2) *Thd_IMinDia* 1.2500)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.2484 1.2381)2) *Thd_EMinDia* 1.1634 *Thd_IMaxDia* (/(+ 1.1730 1.1880)2) *Thd_IMinDia* 1.2500)) ));TPI=14 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.2487 1.2415)2) *Thd_EMinDia* 1.1991 *Thd_IMaxDia* (/(+ 1.2050 1.2150)2) *Thd_IMinDia* 1.2500)) ));TPI=24 ));;Size ((= Size 1.3750)(cond;;1-3/8 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3731 1.3602)2) *Thd_EMinDia* 1.2541 *Thd_IMaxDia* (/(+ 1.2670 1.2880)2) *Thd_IMinDia* 1.3250)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3734 1.3631)2) *Thd_EMinDia* 1.2884 *Thd_IMaxDia* (/(+ 1.2980 1.3140)2) *Thd_IMinDia* 1.3250)) ));TPI=14 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.3737 1.3665)2) *Thd_EMinDia* 1.3241 *Thd_IMaxDia* (/(+ 1.3300 1.3400)2) *Thd_IMinDia* 1.3250)) ));TPI=24 ));;Size ((= Size 1.5000)(cond;;1-1/2 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4981 1.4852)2) *Thd_EMinDia* 1.3791 *Thd_IMaxDia* (/(+ 1.3920 1.4130)2) *Thd_IMinDia* 1.5000)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4983 1.4880)2) *Thd_EMinDia* 1.4133 *Thd_IMaxDia* (/(+ 1.4230 1.4380)2) *Thd_IMinDia* 1.5000)) ));TPI=14 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.4987 1.4915)2) *Thd_EMinDia* 1.4491 *Thd_IMaxDia* (/(+ 1.4550 1.4650)2) *Thd_IMinDia* 1.5000)) ));TPI=24 ));;Size ((= Size 1.6250)(cond;;1-5/8 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6231 1.6102)2) *Thd_EMinDia* 1.5041 *Thd_IMaxDia* (/(+ 1.5170 1.5380)2) *Thd_IMinDia* 1.6250)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6233 1.6130)2) *Thd_EMinDia* 1.5383 *Thd_IMaxDia* (/(+ 1.5480 1.5640)2) *Thd_IMinDia* 1.6250)) ));TPI=14 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.6237 1.6165)2) *Thd_EMinDia* 1.5741 *Thd_IMaxDia* (/(+ 1.5800 1.5900)2) *Thd_IMinDia* 1.6250)) ));TPI=24 ));;Size ((= Size 1.7500)(cond;;1-3/4 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.7481 1.7352)2) *Thd_EMinDia* 1.6291 *Thd_IMaxDia* (/(+ 1.6420 1.6630)2) *Thd_IMinDia* 1.7500)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.7483 1.7380)2) *Thd_EMinDia* 1.6632 *Thd_IMaxDia* (/(+ 1.6730 1.6880)2) *Thd_IMinDia* 1.7500)) ));TPI=14 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.7485 1.7398)2) *Thd_EMinDia* 1.6624 *Thd_IMaxDia* (/(+ 1.6900 1.7030)2) *Thd_IMinDia* 1.7500)) ));TPI=18 ));;Size ((= Size 1.8750)(cond;;1-7/8 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8731 1.8602)2) *Thd_EMinDia* 1.7541 *Thd_IMaxDia* (/(+ 1.7670 1.7880)2) *Thd_IMinDia* 1.8750)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8733 1.8630)2) *Thd_EMinDia* 1.7883 *Thd_IMaxDia* (/(+ 1.7980 1.8140)2) *Thd_IMinDia* 1.8750)) ));TPI=14 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.8735 1.8648)2) *Thd_EMinDia* 1.8074 *Thd_IMaxDia* (/(+ 1.8150 1.8280)2) *Thd_IMinDia* 1.8750)) ));TPI=18 ));;Size ((= Size 2.0000)(cond;;2 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9980 1.9851)2) *Thd_EMinDia* 1.8790 *Thd_IMaxDia* (/(+ 1.8920 1.9130)2) *Thd_IMinDia* 2.0000)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9983 1.9880)2) *Thd_EMinDia* 1.9462 *Thd_IMaxDia* (/(+ 1.9230 1.9380)2) *Thd_IMinDia* 2.0000)) ));TPI=14 ((= TPI 24)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 1.9985 1.9898)2) *Thd_EMinDia* 1.9573 *Thd_IMaxDia* (/(+ 1.9400 1.9530)2) *Thd_IMinDia* 2.0000)) ));TPI=18 ));;Size ((= Size 2.0625)(cond;;2-1-16 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.0609 2.0515)2) *Thd_EMinDia* 1.9864 *Thd_IMaxDia* (/(+ 1.9950 2.0090)2) *Thd_IMinDia* 2.0625)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.0625 2.0531)2) *Thd_EMinDia* 1.9880 *Thd_IMaxDia* (/(+ 1.9950 2.0033)2) *Thd_IMinDia* 2.0625)) ));TPI=16 ));;Size ((= Size 2.1875)(cond;;2-3/16 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.1859 2.1765)2) *Thd_EMinDia* 2.1114 *Thd_IMaxDia* (/(+ 2.1200 2.1340)2) *Thd_IMinDia* 2.1875)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.1875 2.1781)2) *Thd_EMinDia* 2.1130 *Thd_IMaxDia* (/(+ 2.1200 2.1283)2) *Thd_IMinDia* 2.1875)) ));TPI=16 ));;Size ((= Size 2.2500)(cond;;2-1/4 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2480 2.2351)2) *Thd_EMinDia* 2.1290 *Thd_IMaxDia* (/(+ 2.1420 2.1630)2) *Thd_IMinDia* 2.2500)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2483 2.2380)2) *Thd_EMinDia* 2.1633 *Thd_IMaxDia* (/(+ 2.1730 2.1880)2) *Thd_IMinDia* 2.2500)) ));TPI=14 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2485 2.2398)2) *Thd_EMinDia* 2.1824 *Thd_IMaxDia* (/(+ 2.1900 2.2030)2) *Thd_IMinDia* 2.2500)) ));TPI=18 ));;Size ((= Size 2.3125)(cond;;2-5/16 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.3108 2.3014)2) *Thd_EMinDia* 2.2363 *Thd_IMaxDia* (/(+ 2.2450 2.2590)2) *Thd_IMinDia* 2.3125)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.3125 2.3031)2) *Thd_EMinDia* 2.2380 *Thd_IMaxDia* (/(+ 2.2450 2.2533)2) *Thd_IMinDia* 2.3125)) ));TPI=16 ));;Size ((= Size 2.4375)(cond;;2-7/16 ((= TPI 16)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4358 2.4264)2) *Thd_EMinDia* 2.3613 *Thd_IMaxDia* (/(+ 2.3700 2.3840)2) *Thd_IMinDia* 2.4375)) ((= Class 3) (setq *Thd_EMaxDia* (/(+ 2.4375 2.4281)2) *Thd_EMinDia* 2.3630 *Thd_IMaxDia* (/(+ 2.3700 2.3783)2) *Thd_IMinDia* 2.4375)) ));TPI=16 ));;Size ((= Size 2.5000)(cond;;2-1/2 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4980 2.4851)2) *Thd_EMinDia* 2.3790 *Thd_IMaxDia* (/(+ 2.3920 2.4130)2) *Thd_IMinDia* 2.5000)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4983 2.4880)2) *Thd_EMinDia* 2.4461 *Thd_IMaxDia* (/(+ 2.4230 2.4380)2) *Thd_IMinDia* 2.5000)) ));TPI=14 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4984 2.4897)2) *Thd_EMinDia* 2.4570 *Thd_IMaxDia* (/(+ 2.4400 2.4530)2) *Thd_IMinDia* 2.5000)) ));TPI=18 ));;Size ((= Size 2.7500)(cond;;2-3/4 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7480 2.7351)2) *Thd_EMinDia* 2.6290 *Thd_IMaxDia* (/(+ 2.6420 2.6630)2) *Thd_IMinDia* 2.7500)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7483 2.7380)2) *Thd_EMinDia* 2.6633 *Thd_IMaxDia* (/(+ 2.6730 2.6880)2) *Thd_IMinDia* 2.7500)) ));TPI=14 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7484 2.7397)2) *Thd_EMinDia* 2.6823 *Thd_IMaxDia* (/(+ 2.6900 2.7030)2) *Thd_IMinDia* 2.7500)) ));TPI=18 ));;Size ((= Size 3.0000)(cond;;3 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.9980 2.9851)2) *Thd_EMinDia* 2.8790 *Thd_IMaxDia* (/(+ 2.8920 2.9130)2) *Thd_IMinDia* 3.0000)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.9982 2.9879)2) *Thd_EMinDia* 2.9132 *Thd_IMaxDia* (/(+ 2.9230 2.9380)2) *Thd_IMinDia* 3.0000)) ));TPI=14 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.9984 2.9897)2) *Thd_EMinDia* 2.9323 *Thd_IMaxDia* (/(+ 2.9400 2.9530)2) *Thd_IMinDia* 3.0000)) ));TPI=18 ));;Size ((= Size 3.2500)(cond;;3-1/4 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2480 2.2351)2) *Thd_EMinDia* 2.1290 *Thd_IMaxDia* (/(+ 2.1420 2.1630)2) *Thd_IMinDia* 3.2500)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2482 2.2379)2) *Thd_EMinDia* 2.1632 *Thd_IMaxDia* (/(+ 2.1730 2.1880)2) *Thd_IMinDia* 3.2500)) ));TPI=14 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.2484 2.2397)2) *Thd_EMinDia* 2.1823 *Thd_IMaxDia* (/(+ 2.1900 2.2030)2) *Thd_IMinDia* 3.2500)) ));TPI=18 ));;Size ((= Size 3.5000)(cond;;3-1/2 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4979 2.4850)2) *Thd_EMinDia* 2.3789 *Thd_IMaxDia* (/(+ 2.3920 2.4130)2) *Thd_IMinDia* 3.5000)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4982 2.4879)2) *Thd_EMinDia* 2.4132 *Thd_IMaxDia* (/(+ 2.4230 2.4380)2) *Thd_IMinDia* 3.5000)) ));TPI=14 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.4983 2.4896)2) *Thd_EMinDia* 2.4322 *Thd_IMaxDia* (/(+ 2.4400 2.4530)2) *Thd_IMinDia* 3.5000)) ));TPI=18 ));;Size ((= Size 3.7500)(cond;;3-3/4 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7479 2.7350)2) *Thd_EMinDia* 3.6289 *Thd_IMaxDia* (/(+ 3.6420 3.6630)2) *Thd_IMinDia* 3.7500)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7482 2.7379)2) *Thd_EMinDia* 3.6632 *Thd_IMaxDia* (/(+ 3.6730 3.6880)2) *Thd_IMinDia* 3.7500)) ));TPI=14 ((= TPI 18)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 2.7483 2.7396)2) *Thd_EMinDia* 3.6822 *Thd_IMaxDia* (/(+ 3.6900 3.7030)2) *Thd_IMinDia* 3.7500)) ));TPI=18 ));;Size ((= Size 4.0000)(cond;;4 ((= TPI 10)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.9979 3.9850)2) *Thd_EMinDia* 3.8768 *Thd_IMaxDia* (/(+ 3.8920 3.9130)2) *Thd_IMinDia* 4.0000)) ));TPI=10 ((= TPI 14)(cond ((= Class 2) (setq *Thd_EMaxDia* (/(+ 3.9982 3.9879)2) *Thd_EMinDia* 3.9132 *Thd_IMaxDia* (/(+ 3.9320 3.9380)2) *Thd_IMinDia* 4.0000)) ));TPI=14 ));;Size (t (print (format nil " Can't fine the thread information for size - ~A" Size))) ));;Profile=5 ((= Profile0 6)(cond;;NPSM ((= Size 0.1250)(setq *Thd_EMaxDia* (/(+ 0.397 0.390)2) *Thd_EMinDia* (/(+ 0.358 0.364)2) *Thd_IMaxDia* (/(+ 0.358 0.364)2) *Thd_IMinDia* (/(+ 0.397 0.390)2) ));;Size 1/8 ((= Size 0.2500)(setq *Thd_EMaxDia* (/(+ 0.526 0.517)2) *Thd_EMinDia* (/(+ 0.468 0.481)2) *Thd_IMaxDia* (/(+ 0.468 0.481)2) *Thd_IMinDia* (/(+ 0.526 0.517)2) ));;Size 1/4 ((= Size 0.3750)(setq *Thd_EMaxDia* (/(+ 0.662 0.653)2) *Thd_EMinDia* (/(+ 0.603 0.612)2) *Thd_IMaxDia* (/(+ 0.603 0.612)2) *Thd_IMinDia* (/(+ 0.662 0.653)2) ));;Size 3/8 ((= Size 0.5000)(setq *Thd_EMaxDia* (/(+ 0.823 0.813)2) *Thd_EMinDia* (/(+ 0.747 0.759)2) *Thd_IMaxDia* (/(+ 0.747 0.759)2) *Thd_IMinDia* (/(+ 0.823 0.813)2) ));;Size 1/2 ((= Size 0.7500)(setq *Thd_EMaxDia* (/(+ 1.034 1.024)2) *Thd_EMinDia* (/(+ 0.958 0.971)2) *Thd_IMaxDia* (/(+ 0.958 0.971)2) *Thd_IMinDia* (/(+ 1.034 1.024)2) ));;Size 3/4 ((= Size 1.0000)(setq *Thd_EMaxDia* (/(+ 1.293 1.281)2) *Thd_EMinDia* (/(+ 1.201 1.211)2) *Thd_IMaxDia* (/(+ 1.201 1.211)2) *Thd_IMinDia* (/(+ 1.293 1.281)2) ));;Size 1 ((= Size 1.2500)(setq *Thd_EMaxDia* (/(+ 1.638 1.626)2) *Thd_EMinDia* (/(+ 1.546 1.555)2) *Thd_IMaxDia* (/(+ 1.546 1.555)2) *Thd_IMinDia* (/(+ 1.638 1.626)2) ));;Size 1-1/4 ((= Size 1.5000)(setq *Thd_EMaxDia* (/(+ 1.877 1.865)2) *Thd_EMinDia* (/(+ 1.785 1.794)2) *Thd_IMaxDia* (/(+ 1.785 1.794)2) *Thd_IMinDia* (/(+ 1.877 1.865)2) ));;Size 1-1/2 ((= Size 2.0000)(setq *Thd_EMaxDia* (/(+ 2.351 2.339)2) *Thd_EMinDia* (/(+ 2.259 2.268)2) *Thd_IMaxDia* (/(+ 2.259 2.268)2) *Thd_IMinDia* (/(+ 2.351 2.339)2) ));;Size 2 ((= Size 2.5000)(setq *Thd_EMaxDia* (/(+ 2.841 2.826)2) *Thd_EMinDia* (/(+ 2.708 2.727)2) *Thd_IMaxDia* (/(+ 2.708 2.727)2) *Thd_IMinDia* (/(+ 2.841 2.826)2) ));;Size 2-1/2 ((= Size 3.0000)(setq *Thd_EMaxDia* (/(+ 3.467 3.452)2) *Thd_EMinDia* (/(+ 3.334 3.353)2) *Thd_IMaxDia* (/(+ 3.334 3.353)2) *Thd_IMinDia* (/(+ 3.467 3.452)2) ));;Size 3 ((= Size 3.5000)(setq *Thd_EMaxDia* (/(+ 3.968 3.953)2) *Thd_EMinDia* (/(+ 3.835 3.848)2) *Thd_IMaxDia* (/(+ 3.835 3.848)2) *Thd_IMinDia* (/(+ 3.968 3.953)2) ));;Size 3-1/2 ((= Size 4.0000)(setq *Thd_EMaxDia* (/(+ 4.466 4.451)2) *Thd_EMinDia* (/(+ 4.333 4.346)2) *Thd_IMaxDia* (/(+ 4.333 4.346)2) *Thd_IMinDia* (/(+ 4.466 4.451)2) ));;Size 4 ((= Size 5.0000)(setq *Thd_EMaxDia* (/(+ 5.528 5.513)2) *Thd_EMinDia* (/(+ 5.395 5.408)2) *Thd_IMaxDia* (/(+ 5.395 5.408)2) *Thd_IMinDia* (/(+ 5.528 5.513)2) ));;Size 5 ((= Size 6.0000)(setq *Thd_EMaxDia* (/(+ 6.585 6.570)2) *Thd_EMinDia* (/(+ 6.452 6.464)2) *Thd_IMaxDia* (/(+ 6.452 6.464)2) *Thd_IMinDia* (/(+ 6.585 6.570)2) ));;Size 6 (t (print (format nil " Can't fine the thread information for size - ~A" Size))) ));;Profile=6 ((= Profile0 7)(cond;;NPSL ((= Size 0.1250)(setq *Thd_EMaxDia* 0.409 *Thd_EMinDia* (/(+ 0.3840 0.3805)2) *Thd_IMaxDia* 0.362 *Thd_IMinDia* (/(+ 0.3863 0.3898)2) ));;Size 1/8 ((= Size 0.2500)(setq *Thd_EMaxDia* 0.541 *Thd_EMinDia* (/(+ 0.5038 0.4986)2) *Thd_IMaxDia* 0.470 *Thd_IMinDia* (/(+ 0.5073 0.5125)2) ));;Size 1/4 ((= Size 0.3750)(setq *Thd_EMaxDia* 0.678 *Thd_EMinDia* (/(+ 0.6409 0.6357)2) *Thd_IMaxDia* 0.607 *Thd_IMinDia* (/(+ 0.6444 0.6496)2) ));;Size 3/8 ((= Size 0.5000)(setq *Thd_EMaxDia* 0.844 *Thd_EMinDia* (/(+ 0.7963 0.7896)2) *Thd_IMaxDia* 0.753 *Thd_IMinDia* (/(+ 0.8008 0.8075)2) ));;Size 1/2 ((= Size 0.7500)(setq *Thd_EMaxDia* 1.054 *Thd_EMinDia* (/(+ 1.0067 1.0000)2) *Thd_IMaxDia* 0.964 *Thd_IMinDia* (/(+ 1.0112 1.0179)2) ));;Size 3/4 ((= Size 1.0000)(setq *Thd_EMaxDia* 1.318 *Thd_EMinDia* (/(+ 1.2604 1.2523)2) *Thd_IMaxDia* 1.208 *Thd_IMinDia* (/(+ 1.2658 1.2739)2) ));;Size 1 ((= Size 1.2500)(setq *Thd_EMaxDia* 1.663 *Thd_EMinDia* (/(+ 1.6051 1.5970)2) *Thd_IMaxDia* 1.553 *Thd_IMinDia* (/(+ 1.6106 1.6187)2) ));;Size 1-1/4 ((= Size 1.5000)(setq *Thd_EMaxDia* 1.902 *Thd_EMinDia* (/(+ 1.8441 1.8360)2) *Thd_IMaxDia* 1.792 *Thd_IMinDia* (/(+ 1.8495 1.8576)2) ));;Size 1-1/2 ((= Size 2.0000)(setq *Thd_EMaxDia* 2.376 *Thd_EMinDia* (/(+ 2.3180 2.3099)2) *Thd_IMaxDia* 2.265 *Thd_IMinDia* (/(+ 2.3234 2.3315)2) ));;Size 2 ((= Size 2.5000)(setq *Thd_EMaxDia* 2.877 *Thd_EMinDia* (/(+ 2.7934 2.7817)2) *Thd_IMaxDia* 2.718 *Thd_IMinDia* (/(+ 2.8012 2.8129)2) ));;Size 2-1/2 ((= Size 3.0000)(setq *Thd_EMaxDia* 3.503 *Thd_EMinDia* (/(+ 3.4198 3.4081)2) *Thd_IMaxDia* 3.344 *Thd_IMinDia* (/(+ 3.4276 3.4393)2) ));;Size 3 ((= Size 3.5000)(setq *Thd_EMaxDia* 4.003 *Thd_EMinDia* (/(+ 3.9201 3.9084)2) *Thd_IMaxDia* 3.845 *Thd_IMinDia* (/(+ 3.9279 3.9396)2) ));;Size 3-1/2 ((= Size 4.0000)(setq *Thd_EMaxDia* 4.502 *Thd_EMinDia* (/(+ 4.4184 4.4067)2) *Thd_IMaxDia* 4.343 *Thd_IMinDia* (/(+ 4.4262 4.4379)2) ));;Size 4 ((= Size 5.0000)(setq *Thd_EMaxDia* 5.564 *Thd_EMinDia* (/(+ 5.4805 5.4688)2) *Thd_IMaxDia* 5.405 *Thd_IMinDia* (/(+ 5.4884 5.5001)2) ));;Size 5 ((= Size 6.0000)(setq *Thd_EMaxDia* 6.620 *Thd_EMinDia* (/(+ 6.5372 6.5255)2) *Thd_IMaxDia* 6.462 *Thd_IMinDia* (/(+ 6.5450 6.5567)2) ));;Size 6 ((= Size 8.0000)(setq *Thd_EMaxDia* 8.615 *Thd_EMinDia* (/(+ 8.5313 8.5196)2) *Thd_IMaxDia* 8.456 *Thd_IMinDia* (/(+ 8.5391 8.5508)2) ));;Size 8 ((= Size 10.000)(setq *Thd_EMaxDia* 10.735 *Thd_EMinDia* (/(+ 10.6522 10.6405)2) *Thd_IMaxDia* 10.577 *Thd_IMinDia* (/(+ 10.6600 10.6717)2) ));;Size 10 ((= Size 12.000)(setq *Thd_EMaxDia* 12.732 *Thd_EMinDia* (/(+ 12.6491 12.6374)2) *Thd_IMaxDia* 12.574 *Thd_IMinDia* (/(+ 12.6569 12.6686)2) ));;Size 12 (t (print (format nil " Can't fine the thread information for size - ~A" Size))) ));;Profile=7 );cond ;;Reset the global variables (setq *Thd_NameStr* nil) ;;Generate the thread name to a global variable.... just because ;(print(format nil "Here's the size I'm looking for - ~A" (sd-write-to-string Size 4) )) (setf ;;Create a thread size string Size0 (sd-write-to-string Size 4) ThdSize (cond ;;First Size table for # Sizes ((or(equal Size0 "0.06" ) (equal Size0 "0.008" )(= Size 0.0600)(= Size 0.0080)) "No_0") ((or(equal Size0 "0.017" ) (equal Size0 "0.073" )(= Size 0.0170)(= Size 0.0170)) "No_1") ((or(equal Size0 "0.026" ) (equal Size0 "0.086" )(= Size 0.0260)(= Size 0.0260)) "No_2") ((or(equal Size0 "0.0356") (equal Size0 "0.099" )(= Size 0.0356)(= Size 0.0356)) "No_3") ((or(equal Size0 "0.0448") (equal Size0 "0.112" )(= Size 0.0448)(= Size 0.0448)) "No_4") ((or(equal Size0 "0.0544") (equal Size0 "0.1251")(= Size 0.0544)(= Size 0.0544)) "No_5") ((or(equal Size0 "0.064" ) (equal Size0 "0.138" )(= Size 0.0640)(= Size 0.0640)) "No_6") ((or(equal Size0 "0.0836") (equal Size0 "0.164" )(= Size 0.0836)(= Size 0.0836)) "No_8") ((or(equal Size0 "0.19" ) (equal Size0 "0.1032")(= Size 0.1900)(= Size 0.1032)) "No_10") ((or(equal Size0 "0.216" ) (equal Size0 "0.1228")(= Size 0.2160)(= Size 0.1228)) "No_12") ;;Fractional Sizes ((= Size 0.2500) "1/4''") ((= Size 0.3125) "5/16''") ((= Size 0.3750) "3/8''") ((= Size 0.4375) "7/16''") ((= Size 0.5000) "1/2''") ((= Size 0.5625) "9/16''") ((= Size 0.6250) "5/8''") ((= Size 0.6875) "11/16''") ((= Size 0.7500) "3/4''") ((= Size 0.8125) "13/16''") ((= Size 0.8750) "7/8''") ((= Size 0.9375) "15/16''") ((= Size 1.0000) "1''") ((= Size 1.0625) "1-1/16''") ((= Size 1.1250) "1-1/8''") ((= Size 1.1875) "1-3/16''") ((= Size 1.2500) "1-1/4''") ((= Size 1.3125) "1-5/16''") ((= Size 1.3750) "1-3/8''") ((= Size 1.4375) "1-7/16''") ((= Size 1.5000) "1-1/2''") ((= Size 1.5625) "1-9/16''") ((= Size 1.6250) "1-5/8''") ((= Size 1.6875) "1-11/16''") ((= Size 1.7500) "1-3/4''") ((= Size 1.8125) "1-13/16''") ((= Size 1.8750) "1-7/8''") ((= Size 1.9375) "1-15/16''") ((= Size 2.0000) "2''") ((= Size 2.1250) "2-1/8''") ((= Size 2.2500) "2-1/4''") ((= Size 2.3750) "2-3/8''") ((= Size 2.5000) "2-1/2''") ((= Size 2.6250) "2-5/8''") ((= Size 2.7500) "2-3/4''") ((= Size 2.8750) "2-7/8''") ((= Size 3.0000) "3''") ((= Size 3.1250) "3-1/8''") ((= Size 3.2500) "3-1/4''") ((= Size 3.3750) "3-3/8''") ((= Size 3.5000) "3-1/2''") ((= Size 3.6250) "3-5/8''") ((= Size 3.7500) "3-3/4''") ((= Size 3.8750) "3-7/8''") ((= Size 4.0000) "4''") (t (print (format nil "Thread Size - ~A - Not Found" ThdSize))) );cond );setf ;;Now Create the thread string ex 1"-8UNC-2B (setq *Thd_NameStr* (cond ((or(= Profile0 6)(= Profile0 7)) (format nil "~A''-~A~A-~A" ThdSize TPI Profile ThdClassAB) ) ;---------------------------------------------------------------------------------------------- ((equal Hand :right-hand)(format nil "~A-~A~A-~A~A" ThdSize TPI Profile Class ThdClassAB)) ( (= Hand 1) (format nil "~A-~A~A-~A~A" ThdSize TPI Profile Class ThdClassAB)) ;---------------------------------------------------------------------------------------------- ((equal Hand :left-hand) (format nil "~A-~A~A-~A~A-LH" ThdSize TPI Profile Class ThdClassAB)) ( (= Hand 2) (format nil "~A-~A~A-~A~A-LH" ThdSize TPI Profile Class ThdClassAB)) )) ;;print out the new global variable values (print (format nil " Thread String - ~A~%~% External Max Dia - ~A~% External Min Dia - ~A~%~% Internal Min Dia - ~A~% Internal Max Dia - ~A~%" *Thd_NameStr* (sd-write-to-string *Thd_EMaxDia* 6)(sd-write-to-string *Thd_EMinDia* 6)(sd-write-to-string *Thd_IMaxDia* 6)(sd-write-to-string *Thd_IMinDia* 6))) );defun ;;;; ==================================================================================================== (defun sd_compile_m_thread_pitch (Profile Size) ;;;; ==================================================================================================== ;;Find the profile then size (cond;Metric ((= Profile 1)(cond ((= Size 1.6)(setq *Thd_Info_List_M_Pitch* (write(list 0.35)) )) ((= Size 2.0)(setq *Thd_Info_List_M_Pitch* (write(list 0.40)) )) ((= Size 2.5)(setq *Thd_Info_List_M_Pitch* (write(list 0.45)) )) ((= Size 3.0)(setq *Thd_Info_List_M_Pitch* (write(list 0.50)) )) ((= Size 3.5)(setq *Thd_Info_List_M_Pitch* (write(list 0.60)) )) ((= Size 4.0)(setq *Thd_Info_List_M_Pitch* (write(list 0.70)) )) ((= Size 5.0)(setq *Thd_Info_List_M_Pitch* (write(list 0.80)) )) ((= Size 6.0)(setq *Thd_Info_List_M_Pitch* (write(list 1)) )) ((= Size 8.0)(setq *Thd_Info_List_M_Pitch* (write(list 1 1.25)) )) ((= Size 10.0)(setq *Thd_Info_List_M_Pitch* (write(list 0.75 1.25 1.5)) )) ((= Size 12.0)(setq *Thd_Info_List_M_Pitch* (write(list 1 1.25 1.5 1.75)) )) ((= Size 14.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5 2)) )) ((= Size 15.0)(setq *Thd_Info_List_M_Pitch* (write(list 1)) )) ((= Size 16.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5 2)) )) ((= Size 17.0)(setq *Thd_Info_List_M_Pitch* (write(list 1)) )) ((= Size 18.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5)) )) ((= Size 20.0)(setq *Thd_Info_List_M_Pitch* (write(list 1 1.5 2.5)) )) ((= Size 22.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5 2.5)) )) ((= Size 24.0)(setq *Thd_Info_List_M_Pitch* (write(list 2 3)) )) ((= Size 25.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5)) )) ((= Size 27.0)(setq *Thd_Info_List_M_Pitch* (write(list 2 3)) )) ((= Size 30.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5 2)) )) ((= Size 33.0)(setq *Thd_Info_List_M_Pitch* (write(list 2)) )) ((= Size 35.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5)) )) ((= Size 36.0)(setq *Thd_Info_List_M_Pitch* (write(list 2 4)) )) ((= Size 39.0)(setq *Thd_Info_List_M_Pitch* (write(list 2)) )) ((= Size 40.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5)) )) ((= Size 42.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5 2 4.5)) )) ((= Size 45.0)(setq *Thd_Info_List_M_Pitch* (write(list 2 5)) )) ((= Size 48.0)(setq *Thd_Info_List_M_Pitch* (write(list 2 5)) )) ((= Size 50.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5)) )) ((= Size 55.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5)) )) ((= Size 56.0)(setq *Thd_Info_List_M_Pitch* (write(list 2)) )) ((= Size 60.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5)) )) ((= Size 64.0)(setq *Thd_Info_List_M_Pitch* (write(list 2 6)) )) ((= Size 65.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5)) )) ((= Size 70.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5)) )) ((= Size 72.0)(setq *Thd_Info_List_M_Pitch* (write(list 2 6)) )) ((= Size 75.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5)) )) ((= Size 80.0)(setq *Thd_Info_List_M_Pitch* (write(list 1.5 2 6)) )) ((= Size 85.0)(setq *Thd_Info_List_M_Pitch* (write(list 2)) )) ((= Size 90.0)(setq *Thd_Info_List_M_Pitch* (write(list 2 6)) )) ((= Size 100.0)(setq *Thd_Info_List_M_Pitch* (write(list 2 6)) )) ((= Size 105.0)(setq *Thd_Info_List_M_Pitch* (write(list 2)) )) ((= Size 110.0)(setq *Thd_Info_List_M_Pitch* (write(list 2)) )) ((= Size 120.0)(setq *Thd_Info_List_M_Pitch* (write(list 2)) )) ((= Size 130.0)(setq *Thd_Info_List_M_Pitch* (write(list 2)) )) ((= Size 140.0)(setq *Thd_Info_List_M_Pitch* (write(list 2)) )) ((= Size 160.0)(setq *Thd_Info_List_M_Pitch* (write(list 3)) )) ((= Size 170.0)(setq *Thd_Info_List_M_Pitch* (write(list 3)) )) ((= Size 180.0)(setq *Thd_Info_List_M_Pitch* (write(list 3)) )) ((= Size 190.0)(setq *Thd_Info_List_M_Pitch* (write(list 3)) )) ((= Size 200.0)(setq *Thd_Info_List_M_Pitch* (write(list 3)) )) )) );cond );defun (defvar *Thd_Info_List_M_Pitch_Tol* nil) ;;;; ==================================================================================================== (defun sd_compile_m_thread_pitch (Profile Pitch Tol) ;;;; ==================================================================================================== ;;Find the profile then size (cond;Metric ((= Profile 1)(cond ;; (Int - G=1 H=2) (Ext - e=3 f=4 g=5 h=6) ((= Pitch 0.20)(setq Tol_G +0.017 Tol_H 0 Tol_e 0.000 Tol_f 0.000 Tol_g −0.017 Tol_h 0)) ((= Pitch 0.25)(setq Tol_G +0.018 Tol_H 0 Tol_e 0.000 Tol_f 0.000 Tol_g −0.018 Tol_h 0)) ((= Pitch 0.30)(setq Tol_G +0.018 Tol_H 0 Tol_e 0.000 Tol_f 0.000 Tol_g −0.018 Tol_h 0)) ((= Pitch 0.35)(setq Tol_G +0.019 Tol_H 0 Tol_e 0.000 Tol_f −0.034 Tol_g −0.019 Tol_h 0)) ((= Pitch 0.40)(setq Tol_G +0.019 Tol_H 0 Tol_e 0.000 Tol_f −0.034 Tol_g −0.019 Tol_h 0)) ((= Pitch 0.45)(setq Tol_G +0.020 Tol_H 0 Tol_e 0.000 Tol_f −0.035 Tol_g −0.020 Tol_h 0)) ((= Pitch 0.50)(setq Tol_G +0.020 Tol_H 0 Tol_e −0.050 Tol_f −0.036 Tol_g −0.020 Tol_h 0)) ((= Pitch 0.60)(setq Tol_G +0.021 Tol_H 0 Tol_e −0.053 Tol_f −0.036 Tol_g −0.021 Tol_h 0)) ((= Pitch 0.70)(setq Tol_G +0.022 Tol_H 0 Tol_e −0.056 Tol_f −0.038 Tol_g −0.022 Tol_h 0)) ((= Pitch 0.75)(setq Tol_G +0.022 Tol_H 0 Tol_e −0.056 Tol_f −0.038 Tol_g −0.022 Tol_h 0)) ((= Pitch 0.80)(setq Tol_G +0.024 Tol_H 0 Tol_e −0.060 Tol_f −0.038 Tol_g −0.024 Tol_h 0)) ((= Pitch 1.00)(setq Tol_G +0.026 Tol_H 0 Tol_e −0.060 Tol_f −0.040 Tol_g −0.026 Tol_h 0)) ((= Pitch 1.25)(setq Tol_G +0.028 Tol_H 0 Tol_e −0.063 Tol_f −0.042 Tol_g −0.028 Tol_h 0)) ((= Pitch 1.50)(setq Tol_G +0.032 Tol_H 0 Tol_e −0.067 Tol_f −0.045 Tol_g −0.032 Tol_h 0)) ((= Pitch 1.75)(setq Tol_G +0.034 Tol_H 0 Tol_e −0.071 Tol_f −0.048 Tol_g −0.034 Tol_h 0)) ((= Pitch 2.00)(setq Tol_G +0.038 Tol_H 0 Tol_e −0.071 Tol_f −0.052 Tol_g −0.038 Tol_h 0)) ((= Pitch 2.50)(setq Tol_G +0.042 Tol_H 0 Tol_e −0.080 Tol_f −0.058 Tol_g −0.042 Tol_h 0)) ((= Pitch 3.00)(setq Tol_G +0.048 Tol_H 0 Tol_e −0.085 Tol_f −0.063 Tol_g −0.048 Tol_h 0)) ((= Pitch 3.50)(setq Tol_G +0.053 Tol_H 0 Tol_e −0.090 Tol_f −0.070 Tol_g −0.053 Tol_h 0)) ((= Pitch 4.00)(setq Tol_G +0.060 Tol_H 0 Tol_e −0.095 Tol_f −0.075 Tol_g −0.060 Tol_h 0)) ((= Pitch 4.50)(setq Tol_G +0.063 Tol_H 0 Tol_e −0.100 Tol_f −0.080 Tol_g −0.063 Tol_h 0)) ((= Pitch 5.00)(setq Tol_G +0.071 Tol_H 0 Tol_e −0.106 Tol_f −0.085 Tol_g −0.071 Tol_h 0)) ((= Pitch 5.50)(setq Tol_G +0.075 Tol_H 0 Tol_e −0.112 Tol_f −0.090 Tol_g −0.075 Tol_h 0)) ((= Pitch 6.00)(setq Tol_G +0.080 Tol_H 0 Tol_e −0.118 Tol_f −0.095 Tol_g −0.080 Tol_h 0)) ((= Pitch 8.00)(setq Tol_G +0.100 Tol_H 0 Tol_e −0.140 Tol_f −0.118 Tol_g −0.100 Tol_h 0)) )) );cond );defun ;;;; ==================================================================================================== (defun sd_compile_bolt_threads_m (Profile Size Pitch TClass Type Hand) ;;;; ==================================================================================================== ;;Document what's going on through the print dialog (print "==== Gathering the Selected Metric Thread Information") (print(format nil " >> Profile = ~A" Profile )) (print(format nil " >> Size = ~A" (sd-write-to-string Size 4) )) (print(format nil " >> Pitch = ~A" Pitch )) (print(format nil " >> TClass = ~A" TClass )) (print(format nil " >> Type = ~A" Type )) (print(format nil " >> Hand = ~A" Hand )) ;;Reset the global variables (setq *Thd_EMaxDia* 0 *Thd_EMinDia* 0 *Thd_IMaxDia* 0 *Thd_IMinDia* 0 ) ;;First breakdown the profile because some of them use the same one (print " 1. What is the profile?") (cond ((= Profile 1)(setf PrflStr "M")) ((= Profile 2)(setf PrflStr "MF")) );cond (print(format nil " >> Profile ~A | No. = ~A" PrflStr Profile )) ;;Now Break out the 5 general profiles > then by Pitch (cond ((= Profile 1)(cond ;M ((= Size 1.6)(cond ((= Pitch 0.35)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 1.581 1.496)2) *Thd_EPDia* (/(+ 1.354 1.291)2) *Thd_EMinDia* (/(+ 1.202 1.075)2) *Thd_IMaxDia* (/(+ 1.221 1.321)2) *Thd_IPDia* (/(+ 1.373 1.458)2) *Thd_IMinDia* (/(+ 1.600 1.736)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 1.600 1.515)2) *Thd_EPDia* (/(+ 1.373 1.310)2) *Thd_EMinDia* (/(+ 1.221 1.094)2) *Thd_IMaxDia* (/(+ 1.221 1.321)2) *Thd_IPDia* (/(+ 1.373 1.458)2) *Thd_IMinDia* (/(+ 1.600 1.736)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 1.581 1.496)2) *Thd_EPDia* (/(+ 1.354 1.314)2) *Thd_EMinDia* (/(+ 1.202 1.098)2) *Thd_IMaxDia* (/(+ 1.221 1.321)2) *Thd_IPDia* (/(+ 1.373 1.458)2) *Thd_IMinDia* (/(+ 1.600 1.736)2) )) )) )) ((= Size 2.0)(cond ((= Pitch 0.40)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 1.981 1.886)2) *Thd_EPDia* (/(+ 1.721 1.654)2) *Thd_EMinDia* (/(+ 1.548 1.408)2) *Thd_IMaxDia* (/(+ 2.013 2.138)2) *Thd_IPDia* (/(+ 1.740 1.830)2) *Thd_IMinDia* (/(+ 2.000 2.148)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 2.000 1.905)2) *Thd_EPDia* (/(+ 1.740 1.673)2) *Thd_EMinDia* (/(+ 1.567 1.427)2) *Thd_IMaxDia* (/(+ 2.013 2.138)2) *Thd_IPDia* (/(+ 1.740 1.830)2) *Thd_IMinDia* (/(+ 2.000 2.148)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 1.981 1.886)2) *Thd_EPDia* (/(+ 1.721 1.679)2) *Thd_EMinDia* (/(+ 1.548 1.433)2) *Thd_IMaxDia* (/(+ 2.013 2.138)2) *Thd_IPDia* (/(+ 1.740 1.830)2) *Thd_IMinDia* (/(+ 2.000 2.148)2) )) )) )) ((= Size 2.5)(cond ((= Pitch 0.45)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 2.480 2.380)2) *Thd_EPDia* (/(+ 2.188 2.117)2) *Thd_EMinDia* (/(+ 1.993 1.840)2) *Thd_IMaxDia* (/(+ 2.013 2.138)2) *Thd_IPDia* (/(+ 2.208 2.303)2) *Thd_IMinDia* (/(+ 2.500 2.660)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 2.500 2.400)2) *Thd_EPDia* (/(+ 2.208 2.137)2) *Thd_EMinDia* (/(+ 2.013 1.860)2) *Thd_IMaxDia* (/(+ 2.013 2.138)2) *Thd_IPDia* (/(+ 2.208 2.303)2) *Thd_IMinDia* (/(+ 2.500 2.660)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 2.480 2.380)2) *Thd_EPDia* (/(+ 2.188 2.143)2) *Thd_EMinDia* (/(+ 1.993 1.866)2) *Thd_IMaxDia* (/(+ 2.013 2.138)2) *Thd_IPDia* (/(+ 2.208 2.303)2) *Thd_IMinDia* (/(+ 2.500 2.660)2) )) )) )) ((= Size 3.0)(cond ((= Pitch 0.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 2.980 2.874)2) *Thd_EPDia* (/(+ 2.655 2.580)2) *Thd_EMinDia* (/(+ 2.438 2.272)2) *Thd_IMaxDia* (/(+ 2.459 2.599)2) *Thd_IPDia* (/(+ 2.675 2.775)2) *Thd_IMinDia* (/(+ 3.000 3.172)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 3.000 2.894)2) *Thd_EPDia* (/(+ 2.675 2.600)2) *Thd_EMinDia* (/(+ 2.458 2.292)2) *Thd_IMaxDia* (/(+ 2.459 2.599)2) *Thd_IPDia* (/(+ 2.675 2.775)2) *Thd_IMinDia* (/(+ 3.000 3.172)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 2.980 2.874)2) *Thd_EPDia* (/(+ 2.655 2.607)2) *Thd_EMinDia* (/(+ 2.438 2.299)2) *Thd_IMaxDia* (/(+ 2.459 2.599)2) *Thd_IPDia* (/(+ 2.675 2.775)2) *Thd_IMinDia* (/(+ 3.000 3.172)2) )) )) )) ((= Size 3.5)(cond ((= Pitch 0.60)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 3.479 3.354)2) *Thd_EPDia* (/(+ 3.089 3.004)2) *Thd_EMinDia* (/(+ 2.829 2.634)2) *Thd_IMaxDia* (/(+ 2.850 3.010)2) *Thd_IPDia* (/(+ 3.110 3.222)2) *Thd_IMinDia* (/(+ 3.500 3.698)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 3.500 3.375)2) *Thd_EPDia* (/(+ 3.110 3.025)2) *Thd_EMinDia* (/(+ 2.850 2.655)2) *Thd_IMaxDia* (/(+ 2.850 3.010)2) *Thd_IPDia* (/(+ 3.110 3.222)2) *Thd_IMinDia* (/(+ 3.500 3.698)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 3.479 3.354)2) *Thd_EPDia* (/(+ 3.089 3.036)2) *Thd_EMinDia* (/(+ 2.829 2.666)2) *Thd_IMaxDia* (/(+ 2.850 3.010)2) *Thd_IPDia* (/(+ 3.110 3.222)2) *Thd_IMinDia* (/(+ 3.500 3.698)2) )) )) )) ((= Size 4.0)(cond ((= Pitch 0.70)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 3.978 3.838)2) *Thd_EPDia* (/(+ 3.523 3.433)2) *Thd_EMinDia* (/(+ 3.220 3.002)2) *Thd_IMaxDia* (/(+ 3.242 3.422)2) *Thd_IPDia* (/(+ 3.545 3.663)2) *Thd_IMinDia* (/(+ 4.000 4.219)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 4.000 3.860)2) *Thd_EPDia* (/(+ 3.545 3.455)2) *Thd_EMinDia* (/(+ 3.242 3.024)2) *Thd_IMaxDia* (/(+ 3.242 3.422)2) *Thd_IPDia* (/(+ 3.545 3.663)2) *Thd_IMinDia* (/(+ 4.000 4.219)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 3.978 3.838)2) *Thd_EPDia* (/(+ 3.523 3.467)2) *Thd_EMinDia* (/(+ 3.220 3.036)2) *Thd_IMaxDia* (/(+ 3.242 3.422)2) *Thd_IPDia* (/(+ 3.545 3.663)2) *Thd_IMinDia* (/(+ 4.000 4.219)2) )) )) )) ((= Size 5.0)(cond ((= Pitch 0.80)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 4.976 4.826)2) *Thd_EPDia* (/(+ 4.456 4.361)2) *Thd_EMinDia* (/(+ 4.110 3.868)2) *Thd_IMaxDia* (/(+ 4.134 4.334)2) *Thd_IPDia* (/(+ 4.480 4.605)2) *Thd_IMinDia* (/(+ 5.000 5.240)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 5.000 4.850)2) *Thd_EPDia* (/(+ 4.480 4.385)2) *Thd_EMinDia* (/(+ 4.134 3.892)2) *Thd_IMaxDia* (/(+ 4.134 4.334)2) *Thd_IPDia* (/(+ 4.480 4.605)2) *Thd_IMinDia* (/(+ 5.000 5.240)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 4.976 4.826)2) *Thd_EPDia* (/(+ 4.456 4.396)2) *Thd_EMinDia* (/(+ 4.110 3.903)2) *Thd_IMaxDia* (/(+ 4.134 4.334)2) *Thd_IPDia* (/(+ 4.480 4.605)2) *Thd_IMinDia* (/(+ 5.000 5.240)2) )) )) )) ((= Size 6.0)(cond ((= Pitch 1.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 5.974 5.794)2) *Thd_EPDia* (/(+ 5.324 5.212)2) *Thd_EMinDia* (/(+ 4.891 4.596)2) *Thd_IMaxDia* (/(+ 4.917 5.153)2) *Thd_IPDia* (/(+ 5.350 5.500)2) *Thd_IMinDia* (/(+ 6.000 6.294)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 6.000 5.820)2) *Thd_EPDia* (/(+ 5.350 5.238)2) *Thd_EMinDia* (/(+ 4.917 4.622)2) *Thd_IMaxDia* (/(+ 4.917 5.153)2) *Thd_IPDia* (/(+ 5.350 5.500)2) *Thd_IMinDia* (/(+ 6.000 6.294)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 5.974 5.794)2) *Thd_EPDia* (/(+ 5.324 5.253)2) *Thd_EMinDia* (/(+ 4.891 4.637)2) *Thd_IMaxDia* (/(+ 4.917 5.153)2) *Thd_IPDia* (/(+ 5.350 5.500)2) *Thd_IMinDia* (/(+ 6.000 6.294)2) )) )) )) ((= Size 8.0)(cond ((= Pitch 1.25)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 7.972 7.760)2) *Thd_EPDia* (/(+ 7.160 7.042)2) *Thd_EMinDia* (/(+ 6.619 6.272)2) *Thd_IMaxDia* (/(+ 6.647 6.912)2) *Thd_IPDia* (/(+ 7.188 7.348)2) *Thd_IMinDia* (/(+ 8.000 8.340)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 8.000 7.788)2) *Thd_EPDia* (/(+ 7.188 7.070)2) *Thd_EMinDia* (/(+ 6.647 6.300)2) *Thd_IMaxDia* (/(+ 6.647 6.912)2) *Thd_IPDia* (/(+ 7.188 7.348)2) *Thd_IMinDia* (/(+ 8.000 8.340)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 7.972 7.760)2) *Thd_EPDia* (/(+ 7.160 7.085)2) *Thd_EMinDia* (/(+ 6.619 6.315)2) *Thd_IMaxDia* (/(+ 6.647 6.912)2) *Thd_IPDia* (/(+ 7.188 7.348)2) *Thd_IMinDia* (/(+ 8.000 8.340)2) )) )) ((= Pitch 1.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 7.974 7.794)2) *Thd_EPDia* (/(+ 7.324 7.212)2) *Thd_EMinDia* (/(+ 6.891 6.596)2) *Thd_IMaxDia* (/(+ 6.917 7.153)2) *Thd_IPDia* (/(+ 7.350 7.500)2) *Thd_IMinDia* (/(+ 8.000 8.294)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 8.000 7.820)2) *Thd_EPDia* (/(+ 7.350 7.238)2) *Thd_EMinDia* (/(+ 6.917 6.622)2) *Thd_IMaxDia* (/(+ 6.917 7.153)2) *Thd_IPDia* (/(+ 7.350 7.500)2) *Thd_IMinDia* (/(+ 8.000 8.294)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 7.974 7.794)2) *Thd_EPDia* (/(+ 7.324 7.253)2) *Thd_EMinDia* (/(+ 6.891 6.637)2) *Thd_IMaxDia* (/(+ 6.917 7.153)2) *Thd_IPDia* (/(+ 7.350 7.500)2) *Thd_IMinDia* (/(+ 8.000 8.294)2) )) )) )) ((= Size 10.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 9.968 9.732)2) *Thd_EPDia* (/(+ 8.344 7.938)2) *Thd_EMinDia* (/(+ 8.994 8.862)2) *Thd_IMaxDia* (/(+ 8.376 8.676)2) *Thd_IPDia* (/(+ 9.026 9.206)2) *Thd_IMinDia* (/(+ 10.000 10.397)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 10.000 9.764)2) *Thd_EPDia* (/(+ 8.376 7.970)2) *Thd_EMinDia* (/(+ 9.026 8.894)2) *Thd_IMaxDia* (/(+ 8.376 8.676)2) *Thd_IPDia* (/(+ 9.026 9.206)2) *Thd_IMinDia* (/(+ 10.000 10.397)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 9.968 9.732)2) *Thd_EPDia* (/(+ 8.344 7.985)2) *Thd_EMinDia* (/(+ 8.994 8.909)2) *Thd_IMaxDia* (/(+ 8.376 8.676)2) *Thd_IPDia* (/(+ 9.026 9.206)2) *Thd_IMinDia* (/(+ 10.000 10.397)2) )) )) ((= Pitch 1.25)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 9.972 9.760)2) *Thd_EPDia* (/(+ 8.619 8.272)2) *Thd_EMinDia* (/(+ 9.160 9.042)2) *Thd_IMaxDia* (/(+ 8.647 8.912)2) *Thd_IPDia* (/(+ 9.188 9.348)2) *Thd_IMinDia* (/(+ 10.000 10.340)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 10.000 9.788)2) *Thd_EPDia* (/(+ 8.647 8.300)2) *Thd_EMinDia* (/(+ 9.188 9.070)2) *Thd_IMaxDia* (/(+ 8.647 8.912)2) *Thd_IPDia* (/(+ 9.188 9.348)2) *Thd_IMinDia* (/(+ 10.000 10.340)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 9.972 9.760)2) *Thd_EPDia* (/(+ 8.619 8.315)2) *Thd_EMinDia* (/(+ 9.160 9.085)2) *Thd_IMaxDia* (/(+ 8.647 8.912)2) *Thd_IPDia* (/(+ 9.188 9.348)2) *Thd_IMinDia* (/(+ 10.000 10.340)2) )) )) ((= Pitch 1.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 9.974 9.794)2) *Thd_EPDia* (/(+ 8.891 8.596)2) *Thd_EMinDia* (/(+ 9.324 9.212)2) *Thd_IMaxDia* (/(+ 8.917 9.153)2) *Thd_IPDia* (/(+ 9.350 9.500)2) *Thd_IMinDia* (/(+ 10.000 10.294)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 10.000 9.820)2) *Thd_EPDia* (/(+ 8.917 8.622)2) *Thd_EMinDia* (/(+ 9.350 9.238)2) *Thd_IMaxDia* (/(+ 8.917 9.153)2) *Thd_IPDia* (/(+ 9.350 9.500)2) *Thd_IMinDia* (/(+ 10.000 10.294)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 9.974 9.794)2) *Thd_EPDia* (/(+ 8.891 8.637)2) *Thd_EMinDia* (/(+ 9.324 9.253)2) *Thd_IMaxDia* (/(+ 8.917 9.153)2) *Thd_IPDia* (/(+ 9.350 9.500)2) *Thd_IMinDia* (/(+ 10.000 10.294)2) )) )) ((= Pitch 0.75)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 9.978 9.838)2) *Thd_EPDia* (/(+ 9.166 8.929)2) *Thd_EMinDia* (/(+ 9.491 9.391)2) *Thd_IMaxDia* (/(+ 9.188 9.378)2) *Thd_IPDia* (/(+ 9.513 9.645)2) *Thd_IMinDia* (/(+ 10.000 10.240)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 10.000 9.860)2) *Thd_EPDia* (/(+ 9.188 8.951)2) *Thd_EMinDia* (/(+ 9.513 9.413)2) *Thd_IMaxDia* (/(+ 9.188 9.378)2) *Thd_IPDia* (/(+ 9.513 9.645)2) *Thd_IMinDia* (/(+ 10.000 10.240)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 9.978 9.838)2) *Thd_EPDia* (/(+ 9.166 8.966)2) *Thd_EMinDia* (/(+ 9.491 9.428)2) *Thd_IMaxDia* (/(+ 9.188 9.378)2) *Thd_IPDia* (/(+ 9.513 9.645)2) *Thd_IMinDia* (/(+ 10.000 10.240)2) )) )) )) ((= Size 12.0)(cond ((= Pitch 1.75)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 11.966 11.701)2) *Thd_EPDia* (/(+ 10.071 9.601)2) *Thd_EMinDia* (/(+ 10.829 10.679)2) *Thd_IMaxDia* (/(+ 10.106 10.441)2) *Thd_IPDia* (/(+ 10.863 11.063)2) *Thd_IMinDia* (/(+ 12.000 12.452)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 12.000 11.735)2) *Thd_EPDia* (/(+ 10.105 9.635)2) *Thd_EMinDia* (/(+ 10.863 10.713)2) *Thd_IMaxDia* (/(+ 10.106 10.441)2) *Thd_IPDia* (/(+ 10.863 11.063)2) *Thd_IMinDia* (/(+ 12.000 12.452)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 11.966 11.701)2) *Thd_EPDia* (/(+ 10.071 9.656)2) *Thd_EMinDia* (/(+ 10.829 10.734)2) *Thd_IMaxDia* (/(+ 10.106 10.441)2) *Thd_IPDia* (/(+ 10.863 11.063)2) *Thd_IMinDia* (/(+ 12.000 12.452)2) )) )) ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 11.968 11.732)2) *Thd_EPDia* (/(+ 10.344 9.930)2) *Thd_EMinDia* (/(+ 10.994 10.854)2) *Thd_IMaxDia* (/(+ 10.376 10.676)2) *Thd_IPDia* (/(+ 11.026 11.216)2) *Thd_IMinDia* (/(+ 12.000 12.407)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 12.000 11.764)2) *Thd_EPDia* (/(+ 10.376 9.962)2) *Thd_EMinDia* (/(+ 11.026 10.886)2) *Thd_IMaxDia* (/(+ 10.376 10.676)2) *Thd_IPDia* (/(+ 11.026 11.216)2) *Thd_IMinDia* (/(+ 12.000 12.407)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 11.968 11.732)2) *Thd_EPDia* (/(+ 10.344 9.980)2) *Thd_EMinDia* (/(+ 10.994 10.904)2) *Thd_IMaxDia* (/(+ 10.376 10.676)2) *Thd_IPDia* (/(+ 11.026 11.216)2) *Thd_IMinDia* (/(+ 12.000 12.407)2) )) )) ((= Pitch 1.25)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 11.972 11.760)2) *Thd_EPDia* (/(+ 10.619 10.258)2) *Thd_EMinDia* (/(+ 11.160 11.028)2) *Thd_IMaxDia* (/(+ 10.647 10.912)2) *Thd_IPDia* (/(+ 11.188 11.368)2) *Thd_IMinDia* (/(+ 12.000 12.360)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 12.000 11.788)2) *Thd_EPDia* (/(+ 10.647 10.286)2) *Thd_EMinDia* (/(+ 11.188 11.056)2) *Thd_IMaxDia* (/(+ 10.647 10.912)2) *Thd_IPDia* (/(+ 11.188 11.368)2) *Thd_IMinDia* (/(+ 12.000 12.360)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 11.972 11.760)2) *Thd_EPDia* (/(+ 10.619 10.305)2) *Thd_EMinDia* (/(+ 11.160 11.075)2) *Thd_IMaxDia* (/(+ 10.647 10.912)2) *Thd_IPDia* (/(+ 11.188 11.368)2) *Thd_IMinDia* (/(+ 12.000 12.360)2) )) )) ((= Pitch 1.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 11.974 11.794)2) *Thd_EPDia* (/(+ 10.891 10.590)2) *Thd_EMinDia* (/(+ 11.324 11.206)2) *Thd_IMaxDia* (/(+ 10.917 11.153)2) *Thd_IPDia* (/(+ 11.350 11.510)2) *Thd_IMinDia* (/(+ 12.000 12.304)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 12.000 11.820)2) *Thd_EPDia* (/(+ 10.917 10.616)2) *Thd_EMinDia* (/(+ 11.350 11.232)2) *Thd_IMaxDia* (/(+ 10.917 11.153)2) *Thd_IPDia* (/(+ 11.350 11.510)2) *Thd_IMinDia* (/(+ 12.000 12.304)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 11.974 11.794)2) *Thd_EPDia* (/(+ 10.891 10.633)2) *Thd_EMinDia* (/(+ 11.324 11.249)2) *Thd_IMaxDia* (/(+ 10.917 11.153)2) *Thd_IPDia* (/(+ 11.350 11.510)2) *Thd_IMinDia* (/(+ 12.000 12.304)2) )) )) )) ((= Size 14.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 13.962 13.682)2) *Thd_EPDia* (/(+ 11.797 11.271)2) *Thd_EMinDia* (/(+ 12.663 12.503)2) *Thd_IMaxDia* (/(+ 11.835 12.210)2) *Thd_IPDia* (/(+ 12.701 12.913)2) *Thd_IMinDia* (/(+ 14.000 14.501)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 14.000 13.720)2) *Thd_EPDia* (/(+ 11.835 11.309)2) *Thd_EMinDia* (/(+ 12.701 12.541)2) *Thd_IMaxDia* (/(+ 11.835 12.210)2) *Thd_IPDia* (/(+ 12.701 12.913)2) *Thd_IMinDia* (/(+ 14.000 14.501)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 13.962 13.682)2) *Thd_EPDia* (/(+ 11.797 11.331)2) *Thd_EMinDia* (/(+ 12.663 12.563)2) *Thd_IMaxDia* (/(+ 11.835 12.210)2) *Thd_IPDia* (/(+ 12.701 12.913)2) *Thd_IMinDia* (/(+ 14.000 14.501)2) )) )) ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 13.968 13.732)2) *Thd_EPDia* (/(+ 12.344 11.930)2) *Thd_EMinDia* (/(+ 12.994 12.854)2) *Thd_IMaxDia* (/(+ 12.376 12.676)2) *Thd_IPDia* (/(+ 13.026 13.216)2) *Thd_IMinDia* (/(+ 14.000 14.407)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 14.000 13.764)2) *Thd_EPDia* (/(+ 12.376 11.962)2) *Thd_EMinDia* (/(+ 13.026 12.886)2) *Thd_IMaxDia* (/(+ 12.376 12.676)2) *Thd_IPDia* (/(+ 13.026 13.216)2) *Thd_IMinDia* (/(+ 14.000 14.407)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 13.968 13.732)2) *Thd_EPDia* (/(+ 12.344 11.980)2) *Thd_EMinDia* (/(+ 12.994 12.904)2) *Thd_IMaxDia* (/(+ 12.376 12.676)2) *Thd_IPDia* (/(+ 13.026 13.216)2) *Thd_IMinDia* (/(+ 14.000 14.407)2) )) )) )) ((= Size 15.0)(cond ((= Pitch 1.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 14.974 14.794)2) *Thd_EPDia* (/(+ 13.891 13.590)2) *Thd_EMinDia* (/(+ 14.324 14.206)2) *Thd_IMaxDia* (/(+ 13.917 14.153)2) *Thd_IPDia* (/(+ 14.350 14.510)2) *Thd_IMinDia* (/(+ 15.000 15.304)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 15.000 14.820)2) *Thd_EPDia* (/(+ 13.917 13.616)2) *Thd_EMinDia* (/(+ 14.350 14.232)2) *Thd_IMaxDia* (/(+ 13.917 14.153)2) *Thd_IPDia* (/(+ 14.350 14.510)2) *Thd_IMinDia* (/(+ 15.000 15.304)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 14.974 14.794)2) *Thd_EPDia* (/(+ 13.891 13.633)2) *Thd_EMinDia* (/(+ 14.324 14.249)2) *Thd_IMaxDia* (/(+ 13.917 14.153)2) *Thd_IPDia* (/(+ 14.350 14.510)2) *Thd_IMinDia* (/(+ 15.000 15.304)2) )) )) )) ((= Size 16.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 15.962 15.682)2) *Thd_EPDia* (/(+ 14.663 14.503)2) *Thd_EMinDia* (/(+ 13.797 13.271)2) *Thd_IMaxDia* (/(+ 13.835 14.210)2) *Thd_IPDia* (/(+ 14.701 14.913)2) *Thd_IMinDia* (/(+ 16.000 16.501)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 16.000 15.720)2) *Thd_EPDia* (/(+ 14.701 14.541)2) *Thd_EMinDia* (/(+ 13.835 13.309)2) *Thd_IMaxDia* (/(+ 13.835 14.210)2) *Thd_IPDia* (/(+ 14.701 14.913)2) *Thd_IMinDia* (/(+ 16.000 16.501)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 15.962 15.682)2) *Thd_EPDia* (/(+ 14.663 14.563)2) *Thd_EMinDia* (/(+ 13.797 13.331)2) *Thd_IMaxDia* (/(+ 13.835 14.210)2) *Thd_IPDia* (/(+ 14.701 14.913)2) *Thd_IMinDia* (/(+ 16.000 16.501)2) )) )) ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 15.968 15.732)2) *Thd_EPDia* (/(+ 14.994 14.854)2) *Thd_EMinDia* (/(+ 14.344 13.930)2) *Thd_IMaxDia* (/(+ 14.376 14.676)2) *Thd_IPDia* (/(+ 15.026 15.216)2) *Thd_IMinDia* (/(+ 16.000 16.407)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 16.000 15.764)2) *Thd_EPDia* (/(+ 15.026 14.886)2) *Thd_EMinDia* (/(+ 14.376 13.962)2) *Thd_IMaxDia* (/(+ 14.376 14.676)2) *Thd_IPDia* (/(+ 15.026 15.216)2) *Thd_IMinDia* (/(+ 16.000 16.407)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 15.968 15.732)2) *Thd_EPDia* (/(+ 14.994 14.904)2) *Thd_EMinDia* (/(+ 14.344 13.980)2) *Thd_IMaxDia* (/(+ 14.376 14.676)2) *Thd_IPDia* (/(+ 15.026 15.216)2) *Thd_IMinDia* (/(+ 16.000 16.407)2) )) )) )) ((= Size 17.0)(cond ((= Pitch 1.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 16.974 16.794)2) *Thd_EPDia* (/(+ 16.324 16.206)2) *Thd_EMinDia* (/(+ 15.891 15.590)2) *Thd_IMaxDia* (/(+ 15.917 16.153)2) *Thd_IPDia* (/(+ 16.350 16.510)2) *Thd_IMinDia* (/(+ 17.000 17.304)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 17.000 16.820)2) *Thd_EPDia* (/(+ 16.350 16.232)2) *Thd_EMinDia* (/(+ 15.917 15.616)2) *Thd_IMaxDia* (/(+ 15.917 16.153)2) *Thd_IPDia* (/(+ 16.350 16.510)2) *Thd_IMinDia* (/(+ 17.000 17.304)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 16.974 16.794)2) *Thd_EPDia* (/(+ 16.324 16.249)2) *Thd_EMinDia* (/(+ 15.891 15.633)2) *Thd_IMaxDia* (/(+ 15.917 16.153)2) *Thd_IPDia* (/(+ 16.350 16.510)2) *Thd_IMinDia* (/(+ 17.000 17.304)2) )) )) )) ((= Size 18.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 17.968 17.732)2) *Thd_EPDia* (/(+ 16.994 16.854)2) *Thd_EMinDia* (/(+ 16.344 15.930)2) *Thd_IMaxDia* (/(+ 16.376 16.676)2) *Thd_IPDia* (/(+ 17.026 17.216)2) *Thd_IMinDia* (/(+ 18.000 18.407)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 18.000 17.764)2) *Thd_EPDia* (/(+ 17.026 16.886)2) *Thd_EMinDia* (/(+ 16.376 15.962)2) *Thd_IMaxDia* (/(+ 16.376 16.676)2) *Thd_IPDia* (/(+ 17.026 17.216)2) *Thd_IMinDia* (/(+ 18.000 18.407)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 17.968 17.732)2) *Thd_EPDia* (/(+ 16.994 16.904)2) *Thd_EMinDia* (/(+ 16.344 15.980)2) *Thd_IMaxDia* (/(+ 16.376 16.676)2) *Thd_IPDia* (/(+ 17.026 17.216)2) *Thd_IMinDia* (/(+ 18.000 18.407)2) )) )) )) ((= Size 20.0)(cond ((= Pitch 2.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 19.958 19.623)2) *Thd_EPDia* (/(+ 18.334 18.164)2) *Thd_EMinDia* (/(+ 17.251 16.624)2) *Thd_IMaxDia* (/(+ 17.294 17.744)2) *Thd_IPDia* (/(+ 18.376 18.600)2) *Thd_IMinDia* (/(+ 20.000 20.585)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 20.000 19.665)2) *Thd_EPDia* (/(+ 18.376 18.206)2) *Thd_EMinDia* (/(+ 17.293 16.666)2) *Thd_IMaxDia* (/(+ 17.294 17.744)2) *Thd_IPDia* (/(+ 18.376 18.600)2) *Thd_IMinDia* (/(+ 20.000 20.585)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 19.958 19.623)2) *Thd_EPDia* (/(+ 18.334 18.228)2) *Thd_EMinDia* (/(+ 17.251 16.688)2) *Thd_IMaxDia* (/(+ 17.294 17.744)2) *Thd_IPDia* (/(+ 18.376 18.600)2) *Thd_IMinDia* (/(+ 20.000 20.585)2) )) )) ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 19.968 19.732)2) *Thd_EPDia* (/(+ 18.994 18.854)2) *Thd_EMinDia* (/(+ 18.344 17.930)2) *Thd_IMaxDia* (/(+ 18.376 18.676)2) *Thd_IPDia* (/(+ 19.026 19.216)2) *Thd_IMinDia* (/(+ 20.000 20.407)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 20.000 19.764)2) *Thd_EPDia* (/(+ 19.026 18.886)2) *Thd_EMinDia* (/(+ 18.376 17.962)2) *Thd_IMaxDia* (/(+ 18.376 18.676)2) *Thd_IPDia* (/(+ 19.026 19.216)2) *Thd_IMinDia* (/(+ 20.000 20.407)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 19.968 19.732)2) *Thd_EPDia* (/(+ 18.994 18.904)2) *Thd_EMinDia* (/(+ 18.344 17.980)2) *Thd_IMaxDia* (/(+ 18.376 18.676)2) *Thd_IPDia* (/(+ 19.026 19.216)2) *Thd_IMinDia* (/(+ 20.000 20.407)2) )) )) ((= Pitch 1.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 19.974 19.794)2) *Thd_EPDia* (/(+ 19.324 19.206)2) *Thd_EMinDia* (/(+ 18.891 18.590)2) *Thd_IMaxDia* (/(+ 18.917 19.153)2) *Thd_IPDia* (/(+ 19.350 19.510)2) *Thd_IMinDia* (/(+ 20.000 20.304)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 20.000 19.820)2) *Thd_EPDia* (/(+ 19.350 19.232)2) *Thd_EMinDia* (/(+ 18.917 18.616)2) *Thd_IMaxDia* (/(+ 18.917 19.153)2) *Thd_IPDia* (/(+ 19.350 19.510)2) *Thd_IMinDia* (/(+ 20.000 20.304)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 19.974 19.794)2) *Thd_EPDia* (/(+ 19.324 19.249)2) *Thd_EMinDia* (/(+ 18.891 18.633)2) *Thd_IMaxDia* (/(+ 18.917 19.153)2) *Thd_IPDia* (/(+ 19.350 19.510)2) *Thd_IMinDia* (/(+ 20.000 20.304)2) )) )) )) ((= Size 22.0)(cond ((= Pitch 2.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 21.958 21.623)2) *Thd_EPDia* (/(+ 20.334 20.164)2) *Thd_EMinDia* (/(+ 19.251 18.624)2) *Thd_IMaxDia* (/(+ 19.294 19.744)2) *Thd_IPDia* (/(+ 20.376 20.600)2) *Thd_IMinDia* (/(+ 22.000 22.585)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 22.000 21.665)2) *Thd_EPDia* (/(+ 20.376 20.206)2) *Thd_EMinDia* (/(+ 19.293 18.666)2) *Thd_IMaxDia* (/(+ 19.294 19.744)2) *Thd_IPDia* (/(+ 20.376 20.600)2) *Thd_IMinDia* (/(+ 22.000 22.585)2) )) )) ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 21.968 21.732)2) *Thd_EPDia* (/(+ 20.994 20.854)2) *Thd_EMinDia* (/(+ 20.344 19.930)2) *Thd_IMaxDia* (/(+ 20.376 20.676)2) *Thd_IPDia* (/(+ 21.026 21.216)2) *Thd_IMinDia* (/(+ 22.000 22.407)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 22.000 21.764)2) *Thd_EPDia* (/(+ 21.026 20.886)2) *Thd_EMinDia* (/(+ 20.376 19.962)2) *Thd_IMaxDia* (/(+ 20.376 20.676)2) *Thd_IPDia* (/(+ 21.026 21.216)2) *Thd_IMinDia* (/(+ 22.000 22.407)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 21.968 21.732)2) *Thd_EPDia* (/(+ 20.994 20.904)2) *Thd_EMinDia* (/(+ 20.344 19.980)2) *Thd_IMaxDia* (/(+ 20.376 20.676)2) *Thd_IPDia* (/(+ 21.026 21.216)2) *Thd_IMinDia* (/(+ 22.000 22.407)2) )) )) )) ((= Size 24.0)(cond ((= Pitch 3.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 23.952 23.577)2) *Thd_EPDia* (/(+ 22.003 21.803)2) *Thd_EMinDia* (/(+ 20.704 19.955)2) *Thd_IMaxDia* (/(+ 20.752 21.252)2) *Thd_IPDia* (/(+ 22.051 22.316)2) *Thd_IMinDia* (/(+ 24.000 24.698)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 24.000 23.625)2) *Thd_EPDia* (/(+ 22.051 21.851)2) *Thd_EMinDia* (/(+ 20.752 20.003)2) *Thd_IMaxDia* (/(+ 20.752 21.252)2) *Thd_IPDia* (/(+ 22.051 22.316)2) *Thd_IMinDia* (/(+ 24.000 24.698)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 23.952 23.577)2) *Thd_EPDia* (/(+ 22.003 21.878)2) *Thd_EMinDia* (/(+ 20.704 20.030)2) *Thd_IMaxDia* (/(+ 20.752 21.252)2) *Thd_IPDia* (/(+ 22.051 22.316)2) *Thd_IMinDia* (/(+ 24.000 24.698)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 23.962 23.682)2) *Thd_EPDia* (/(+ 22.663 22.493)2) *Thd_EMinDia* (/(+ 21.797 21.261)2) *Thd_IMaxDia* (/(+ 21.835 22.210)2) *Thd_IPDia* (/(+ 22.701 22.925)2) *Thd_IMinDia* (/(+ 24.000 24.513)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 24.000 23.720)2) *Thd_EPDia* (/(+ 22.701 22.531)2) *Thd_EMinDia* (/(+ 21.835 21.299)2) *Thd_IMaxDia* (/(+ 21.835 22.210)2) *Thd_IPDia* (/(+ 22.701 22.925)2) *Thd_IMinDia* (/(+ 24.000 24.513)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 23.962 23.682)2) *Thd_EPDia* (/(+ 22.663 22.557)2) *Thd_EMinDia* (/(+ 21.797 21.325)2) *Thd_IMaxDia* (/(+ 21.835 22.210)2) *Thd_IPDia* (/(+ 22.701 22.925)2) *Thd_IMinDia* (/(+ 24.000 24.513)2) )) )) )) ((= Size 25.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 24.968 24.732)2) *Thd_EPDia* (/(+ 23.994 23.844)2) *Thd_EMinDia* (/(+ 23.344 22.920)2) *Thd_IMaxDia* (/(+ 23.376 23.676)2) *Thd_IPDia* (/(+ 24.026 24.226)2) *Thd_IMinDia* (/(+ 25.000 25.417)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 25.000 24.764)2) *Thd_EPDia* (/(+ 24.026 23.876)2) *Thd_EMinDia* (/(+ 23.376 22.952)2) *Thd_IMaxDia* (/(+ 23.376 23.676)2) *Thd_IPDia* (/(+ 24.026 24.226)2) *Thd_IMinDia* (/(+ 25.000 25.417)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 24.968 24.732)2) *Thd_EPDia* (/(+ 23.994 23.899)2) *Thd_EMinDia* (/(+ 23.344 22.975)2) *Thd_IMaxDia* (/(+ 23.376 23.676)2) *Thd_IPDia* (/(+ 24.026 24.226)2) *Thd_IMinDia* (/(+ 25.000 25.417)2) )) )) )) ((= Size 27.0)(cond ((= Pitch 3.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 26.952 26.577)2) *Thd_EPDia* (/(+ 25.003 24.803)2) *Thd_EMinDia* (/(+ 23.704 22.955)2) *Thd_IMaxDia* (/(+ 23.752 24.252)2) *Thd_IPDia* (/(+ 25.051 25.316)2) *Thd_IMinDia* (/(+ 27.000 27.698)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 27.000 26.625)2) *Thd_EPDia* (/(+ 25.051 24.851)2) *Thd_EMinDia* (/(+ 23.752 23.003)2) *Thd_IMaxDia* (/(+ 23.752 24.252)2) *Thd_IPDia* (/(+ 25.051 25.316)2) *Thd_IMinDia* (/(+ 27.000 27.698)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 26.962 26.682)2) *Thd_EPDia* (/(+ 25.663 25.493)2) *Thd_EMinDia* (/(+ 24.797 24.261)2) *Thd_IMaxDia* (/(+ 24.835 25.210)2) *Thd_IPDia* (/(+ 25.701 25.925)2) *Thd_IMinDia* (/(+ 27.000 27.513)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 27.000 26.720)2) *Thd_EPDia* (/(+ 25.701 25.531)2) *Thd_EMinDia* (/(+ 24.835 24.299)2) *Thd_IMaxDia* (/(+ 24.835 25.210)2) *Thd_IPDia* (/(+ 25.701 25.925)2) *Thd_IMinDia* (/(+ 27.000 27.513)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 26.962 26.682)2) *Thd_EPDia* (/(+ 25.663 25.557)2) *Thd_EMinDia* (/(+ 24.797 24.325)2) *Thd_IMaxDia* (/(+ 24.835 25.210)2) *Thd_IPDia* (/(+ 25.701 25.925)2) *Thd_IMinDia* (/(+ 27.000 27.513)2) )) )) )) ((= Size 30.0)(cond ((= Pitch 3.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 29.947 29.522)2) *Thd_EPDia* (/(+ 27.674 27.462)2) *Thd_EMinDia* (/(+ 26.158 25.306)2) *Thd_IMaxDia* (/(+ 26.211 26.771)2) *Thd_IPDia* (/(+ 27.727 28.007)2) *Thd_IMinDia* (/(+ 30.000 30.786)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 30.000 29.575)2) *Thd_EPDia* (/(+ 27.727 27.515)2) *Thd_EMinDia* (/(+ 26.211 25.359)2) *Thd_IMaxDia* (/(+ 26.211 26.771)2) *Thd_IPDia* (/(+ 27.727 28.007)2) *Thd_IMinDia* (/(+ 30.000 30.786)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 29.947 29.522)2) *Thd_EPDia* (/(+ 27.674 27.542)2) *Thd_EMinDia* (/(+ 26.158 25.386)2) *Thd_IMaxDia* (/(+ 26.211 26.771)2) *Thd_IPDia* (/(+ 27.727 28.007)2) *Thd_IMinDia* (/(+ 30.000 30.786)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 29.962 29.682)2) *Thd_EPDia* (/(+ 28.663 28.493)2) *Thd_EMinDia* (/(+ 27.797 27.261)2) *Thd_IMaxDia* (/(+ 27.835 28.210)2) *Thd_IPDia* (/(+ 28.701 28.925)2) *Thd_IMinDia* (/(+ 30.000 30.513)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 30.000 29.720)2) *Thd_EPDia* (/(+ 28.701 28.531)2) *Thd_EMinDia* (/(+ 27.835 27.299)2) *Thd_IMaxDia* (/(+ 27.835 28.210)2) *Thd_IPDia* (/(+ 28.701 28.925)2) *Thd_IMinDia* (/(+ 30.000 30.513)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 29.962 29.682)2) *Thd_EPDia* (/(+ 28.663 28.557)2) *Thd_EMinDia* (/(+ 27.797 27.325)2) *Thd_IMaxDia* (/(+ 27.835 28.210)2) *Thd_IPDia* (/(+ 28.701 28.925)2) *Thd_IMinDia* (/(+ 30.000 30.513)2) )) )) ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 29.968 29.732)2) *Thd_EPDia* (/(+ 28.994 28.844)2) *Thd_EMinDia* (/(+ 28.344 27.920)2) *Thd_IMaxDia* (/(+ 28.376 28.676)2) *Thd_IPDia* (/(+ 29.026 29.226)2) *Thd_IMinDia* (/(+ 30.000 30.417)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 30.000 29.764)2) *Thd_EPDia* (/(+ 29.026 28.876)2) *Thd_EMinDia* (/(+ 28.376 27.952)2) *Thd_IMaxDia* (/(+ 28.376 28.676)2) *Thd_IPDia* (/(+ 29.026 29.226)2) *Thd_IMinDia* (/(+ 30.000 30.417)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 29.968 29.732)2) *Thd_EPDia* (/(+ 28.994 28.899)2) *Thd_EMinDia* (/(+ 28.344 27.975)2) *Thd_IMaxDia* (/(+ 28.376 28.676)2) *Thd_IPDia* (/(+ 29.026 29.226)2) *Thd_IMinDia* (/(+ 30.000 30.417)2) )) )) )) ((= Size 33.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 32.962 32.682)2) *Thd_EPDia* (/(+ 31.663 31.493)2) *Thd_EMinDia* (/(+ 30.797 30.261)2) *Thd_IMaxDia* (/(+ 30.835 31.210)2) *Thd_IPDia* (/(+ 31.701 31.925)2) *Thd_IMinDia* (/(+ 33.000 33.513)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 33.000 32.720)2) *Thd_EPDia* (/(+ 31.701 31.531)2) *Thd_EMinDia* (/(+ 30.835 30.299)2) *Thd_IMaxDia* (/(+ 30.835 31.210)2) *Thd_IPDia* (/(+ 31.701 31.925)2) *Thd_IMinDia* (/(+ 33.000 33.513)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 32.962 32.682)2) *Thd_EPDia* (/(+ 31.663 31.557)2) *Thd_EMinDia* (/(+ 30.797 30.325)2) *Thd_IMaxDia* (/(+ 30.835 31.210)2) *Thd_IPDia* (/(+ 31.701 31.925)2) *Thd_IMinDia* (/(+ 33.000 33.513)2) )) )) )) ((= Size 35.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 34.968 34.732)2) *Thd_EPDia* (/(+ 33.994 33.844)2) *Thd_EMinDia* (/(+ 33.344 32.920)2) *Thd_IMaxDia* (/(+ 33.376 33.676)2) *Thd_IPDia* (/(+ 34.026 34.226)2) *Thd_IMinDia* (/(+ 35.000 35.417)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 35.000 34.764)2) *Thd_EPDia* (/(+ 34.026 33.876)2) *Thd_EMinDia* (/(+ 33.376 32.952)2) *Thd_IMaxDia* (/(+ 33.376 33.676)2) *Thd_IPDia* (/(+ 34.026 34.226)2) *Thd_IMinDia* (/(+ 35.000 35.417)2) )) )) )) ((= Size 36.0)(cond ((= Pitch 4.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 35.940 35.465)2) *Thd_EPDia* (/(+ 33.342 33.118)2) *Thd_EMinDia* (/(+ 31.610 30.654)2) *Thd_IMaxDia* (/(+ 31.670 32.270)2) *Thd_IPDia* (/(+ 33.402 33.702)2) *Thd_IMinDia* (/(+ 36.000 36.877)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 36.000 35.525)2) *Thd_EPDia* (/(+ 33.402 33.178)2) *Thd_EMinDia* (/(+ 31.670 30.714)2) *Thd_IMaxDia* (/(+ 31.670 32.270)2) *Thd_IPDia* (/(+ 33.402 33.702)2) *Thd_IMinDia* (/(+ 36.000 36.877)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 35.940 35.465)2) *Thd_EPDia* (/(+ 33.342 33.202)2) *Thd_EMinDia* (/(+ 31.610 30.738)2) *Thd_IMaxDia* (/(+ 31.670 32.270)2) *Thd_IPDia* (/(+ 33.402 33.702)2) *Thd_IMinDia* (/(+ 36.000 36.877)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 35.962 35.682)2) *Thd_EPDia* (/(+ 34.663 34.493)2) *Thd_EMinDia* (/(+ 33.797 33.261)2) *Thd_IMaxDia* (/(+ 33.835 34.210)2) *Thd_IPDia* (/(+ 34.701 34.925)2) *Thd_IMinDia* (/(+ 36.000 36.513)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 36.000 35.720)2) *Thd_EPDia* (/(+ 34.701 34.531)2) *Thd_EMinDia* (/(+ 33.835 33.299)2) *Thd_IMaxDia* (/(+ 33.835 34.210)2) *Thd_IPDia* (/(+ 34.701 34.925)2) *Thd_IMinDia* (/(+ 36.000 36.513)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 35.962 35.682)2) *Thd_EPDia* (/(+ 34.663 34.557)2) *Thd_EMinDia* (/(+ 33.797 33.325)2) *Thd_IMaxDia* (/(+ 33.835 34.210)2) *Thd_IPDia* (/(+ 34.701 34.925)2) *Thd_IMinDia* (/(+ 36.000 36.513)2) )) )) )) ((= Size 39.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 38.962 38.682)2) *Thd_EPDia* (/(+ 37.663 37.493)2) *Thd_EMinDia* (/(+ 36.797 36.261)2) *Thd_IMaxDia* (/(+ 36.835 37.210)2) *Thd_IPDia* (/(+ 37.701 37.925)2) *Thd_IMinDia* (/(+ 39.000 39.513)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 39.000 38.720)2) *Thd_EPDia* (/(+ 37.701 37.531)2) *Thd_EMinDia* (/(+ 36.835 36.299)2) *Thd_IMaxDia* (/(+ 36.835 37.210)2) *Thd_IPDia* (/(+ 37.701 37.925)2) *Thd_IMinDia* (/(+ 39.000 39.513)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 38.962 38.682)2) *Thd_EPDia* (/(+ 37.663 37.557)2) *Thd_EMinDia* (/(+ 36.797 36.325)2) *Thd_IMaxDia* (/(+ 36.835 37.210)2) *Thd_IPDia* (/(+ 37.701 37.925)2) *Thd_IMinDia* (/(+ 39.000 39.513)2) )) )) )) ((= Size 40.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 39.968 39.732)2) *Thd_EPDia* (/(+ 38.994 38.844)2) *Thd_EMinDia* (/(+ 38.344 37.920)2) *Thd_IMaxDia* (/(+ 38.376 38.676)2) *Thd_IPDia* (/(+ 39.026 39.226)2) *Thd_IMinDia* (/(+ 40.000 40.417)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 40.000 39.764)2) *Thd_EPDia* (/(+ 39.026 38.876)2) *Thd_EMinDia* (/(+ 38.376 37.952)2) *Thd_IMaxDia* (/(+ 38.376 38.676)2) *Thd_IPDia* (/(+ 39.026 39.226)2) *Thd_IMinDia* (/(+ 40.000 40.417)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 39.968 39.732)2) *Thd_EPDia* (/(+ 38.994 38.899)2) *Thd_EMinDia* (/(+ 38.344 37.975)2) *Thd_IMaxDia* (/(+ 38.376 38.676)2) *Thd_IPDia* (/(+ 39.026 39.226)2) *Thd_IMinDia* (/(+ 40.000 40.417)2) )) )) )) ((= Size 42.0)(cond ((= Pitch 4.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 41.937 41.437)2) *Thd_EPDia* (/(+ 39.014 38.778)2) *Thd_EMinDia* (/(+ 37.065 36.006)2) *Thd_IMaxDia* (/(+ 37.129 37.799)2) *Thd_IPDia* (/(+ 39.077 39.392)2) *Thd_IMinDia* (/(+ 42.000 42.964)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 42.000 41.500)2) *Thd_EPDia* (/(+ 39.077 38.841)2) *Thd_EMinDia* (/(+ 37.128 36.069)2) *Thd_IMaxDia* (/(+ 37.129 37.799)2) *Thd_IPDia* (/(+ 39.077 39.392)2) *Thd_IMinDia* (/(+ 42.000 42.964)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 41.937 41.437)2) *Thd_EPDia* (/(+ 39.014 38.864)2) *Thd_EMinDia* (/(+ 37.065 36.092)2) *Thd_IMaxDia* (/(+ 37.129 37.799)2) *Thd_IPDia* (/(+ 39.077 39.392)2) *Thd_IMinDia* (/(+ 42.000 42.964)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 41.962 41.682)2) *Thd_EPDia* (/(+ 40.663 40.493)2) *Thd_EMinDia* (/(+ 39.797 39.261)2) *Thd_IMaxDia* (/(+ 39.835 40.210)2) *Thd_IPDia* (/(+ 40.701 40.925)2) *Thd_IMinDia* (/(+ 42.000 42.513)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 42.000 41.720)2) *Thd_EPDia* (/(+ 40.701 40.531)2) *Thd_EMinDia* (/(+ 39.835 39.299)2) *Thd_IMaxDia* (/(+ 39.835 40.210)2) *Thd_IPDia* (/(+ 40.701 40.925)2) *Thd_IMinDia* (/(+ 42.000 42.513)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 41.962 41.682)2) *Thd_EPDia* (/(+ 40.663 40.557)2) *Thd_EMinDia* (/(+ 39.797 39.325)2) *Thd_IMaxDia* (/(+ 39.835 40.210)2) *Thd_IPDia* (/(+ 40.701 40.925)2) *Thd_IMinDia* (/(+ 42.000 42.513)2) )) )) )) ((= Size 45.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 44.968 44.732)2) *Thd_EPDia* (/(+ 43.994 43.844)2) *Thd_EMinDia* (/(+ 43.344 42.920)2) *Thd_IMaxDia* (/(+ 43.376 43.676)2) *Thd_IPDia* (/(+ 44.026 44.226)2) *Thd_IMinDia* (/(+ 45.000 45.417)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 45.000 44.764)2) *Thd_EPDia* (/(+ 44.026 43.876)2) *Thd_EMinDia* (/(+ 43.376 42.952)2) *Thd_IMaxDia* (/(+ 43.376 43.676)2) *Thd_IPDia* (/(+ 44.026 44.226)2) *Thd_IMinDia* (/(+ 45.000 45.417)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 44.968 44.732)2) *Thd_EPDia* (/(+ 43.994 43.899)2) *Thd_EMinDia* (/(+ 43.344 42.975)2) *Thd_IMaxDia* (/(+ 43.376 43.676)2) *Thd_IPDia* (/(+ 44.026 44.226)2) *Thd_IMinDia* (/(+ 45.000 45.417)2) )) )) )) ((= Size 48.0)(cond ((= Pitch 5.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 47.929 47.399)2) *Thd_EPDia* (/(+ 44.681 44.431)2) *Thd_EMinDia* (/(+ 42.516 41.351)2) *Thd_IMaxDia* (/(+ 42.587 43.297)2) *Thd_IPDia* (/(+ 44.752 45.087)2) *Thd_IMinDia* (/(+ 48.000 49.056)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 48.000 47.470)2) *Thd_EPDia* (/(+ 44.752 44.502)2) *Thd_EMinDia* (/(+ 42.587 41.422)2) *Thd_IMaxDia* (/(+ 42.587 43.297)2) *Thd_IPDia* (/(+ 44.752 45.087)2) *Thd_IMinDia* (/(+ 48.000 49.056)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 47.929 47.399)2) *Thd_EPDia* (/(+ 44.681 44.521)2) *Thd_EMinDia* (/(+ 42.516 41.441)2) *Thd_IMaxDia* (/(+ 42.587 43.297)2) *Thd_IPDia* (/(+ 44.752 45.087)2) *Thd_IMinDia* (/(+ 48.000 49.056)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 47.962 47.682)2) *Thd_EPDia* (/(+ 46.663 46.483)2) *Thd_EMinDia* (/(+ 45.797 45.251)2) *Thd_IMaxDia* (/(+ 45.835 46.210)2) *Thd_IPDia* (/(+ 46.701 46.937)2) *Thd_IMinDia* (/(+ 48.000 48.525)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 48.000 47.720)2) *Thd_EPDia* (/(+ 46.701 46.521)2) *Thd_EMinDia* (/(+ 45.835 45.289)2) *Thd_IMaxDia* (/(+ 45.835 46.210)2) *Thd_IPDia* (/(+ 46.701 46.937)2) *Thd_IMinDia* (/(+ 48.000 48.525)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 47.962 47.682)2) *Thd_EPDia* (/(+ 46.663 46.551)2) *Thd_EMinDia* (/(+ 45.797 45.319)2) *Thd_IMaxDia* (/(+ 45.835 46.210)2) *Thd_IPDia* (/(+ 46.701 46.937)2) *Thd_IMinDia* (/(+ 48.000 48.525)2) )) )) )) ((= Size 50.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 49.968 49.732)2) *Thd_EPDia* (/(+ 48.994 48.834)2) *Thd_EMinDia* (/(+ 48.344 47.910)2) *Thd_IMaxDia* (/(+ 48.376 48.676)2) *Thd_IPDia* (/(+ 49.026 49.238)2) *Thd_IMinDia* (/(+ 50.000 50.429)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 50.000 49.764)2) *Thd_EPDia* (/(+ 49.026 48.866)2) *Thd_EMinDia* (/(+ 48.376 47.942)2) *Thd_IMaxDia* (/(+ 48.376 48.676)2) *Thd_IPDia* (/(+ 49.026 49.238)2) *Thd_IMinDia* (/(+ 50.000 50.429)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 49.968 49.732)2) *Thd_EPDia* (/(+ 48.994 48.894)2) *Thd_EMinDia* (/(+ 48.344 47.970)2) *Thd_IMaxDia* (/(+ 48.376 48.676)2) *Thd_IPDia* (/(+ 49.026 49.238)2) *Thd_IMinDia* (/(+ 50.000 50.429)2) )) )) )) ((= Size 55.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 54.968 54.732)2) *Thd_EPDia* (/(+ 53.994 53.834)2) *Thd_EMinDia* (/(+ 53.344 52.910)2) *Thd_IMaxDia* (/(+ 53.376 53.676)2) *Thd_IPDia* (/(+ 54.026 54.238)2) *Thd_IMinDia* (/(+ 55.000 55.429)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 55.000 54.764)2) *Thd_EPDia* (/(+ 54.026 53.866)2) *Thd_EMinDia* (/(+ 53.376 52.942)2) *Thd_IMaxDia* (/(+ 53.376 53.676)2) *Thd_IPDia* (/(+ 54.026 54.238)2) *Thd_IMinDia* (/(+ 55.000 55.429)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 54.968 54.732)2) *Thd_EPDia* (/(+ 53.994 53.894)2) *Thd_EMinDia* (/(+ 53.344 52.970)2) *Thd_IMaxDia* (/(+ 53.376 53.676)2) *Thd_IPDia* (/(+ 54.026 54.238)2) *Thd_IMinDia* (/(+ 55.000 55.429)2) )) )) )) ((= Size 56.0)(cond ((= Pitch 5.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 55.925 55.365)2) *Thd_EPDia* (/(+ 52.353 52.088)2) *Thd_EMinDia* (/(+ 49.971 48.700)2) *Thd_IMaxDia* (/(+ 50.046 50.796)2) *Thd_IPDia* (/(+ 52.428 52.783)2) *Thd_IMinDia* (/(+ 56.000 57.149)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 56.000 55.440)2) *Thd_EPDia* (/(+ 52.428 52.163)2) *Thd_EMinDia* (/(+ 50.046 48.775)2) *Thd_IMaxDia* (/(+ 50.046 50.796)2) *Thd_IPDia* (/(+ 52.428 52.783)2) *Thd_IMinDia* (/(+ 56.000 57.149)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 55.925 55.365)2) *Thd_EPDia* (/(+ 52.353 52.183)2) *Thd_EMinDia* (/(+ 49.971 48.795)2) *Thd_IMaxDia* (/(+ 50.046 50.796)2) *Thd_IPDia* (/(+ 52.428 52.783)2) *Thd_IMinDia* (/(+ 56.000 57.149)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 55.962 55.682)2) *Thd_EPDia* (/(+ 54.663 54.483)2) *Thd_EMinDia* (/(+ 53.797 53.251)2) *Thd_IMaxDia* (/(+ 53.835 54.210)2) *Thd_IPDia* (/(+ 54.701 54.937)2) *Thd_IMinDia* (/(+ 56.000 56.525)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 56.000 55.720)2) *Thd_EPDia* (/(+ 54.701 54.521)2) *Thd_EMinDia* (/(+ 53.835 53.289)2) *Thd_IMaxDia* (/(+ 53.835 54.210)2) *Thd_IPDia* (/(+ 54.701 54.937)2) *Thd_IMinDia* (/(+ 56.000 56.525)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 55.962 55.682)2) *Thd_EPDia* (/(+ 54.663 54.551)2) *Thd_EMinDia* (/(+ 53.797 53.319)2) *Thd_IMaxDia* (/(+ 53.835 54.210)2) *Thd_IPDia* (/(+ 54.701 54.937)2) *Thd_IMinDia* (/(+ 56.000 56.525)2) )) )) )) ((= Size 60.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 59.968 59.732)2) *Thd_EPDia* (/(+ 58.994 58.834)2) *Thd_EMinDia* (/(+ 58.344 57.910)2) *Thd_IMaxDia* (/(+ 58.376 58.676)2) *Thd_IPDia* (/(+ 59.026 59.238)2) *Thd_IMinDia* (/(+ 60.000 60.429)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 60.000 59.764)2) *Thd_EPDia* (/(+ 59.026 58.866)2) *Thd_EMinDia* (/(+ 58.376 57.942)2) *Thd_IMaxDia* (/(+ 58.376 58.676)2) *Thd_IPDia* (/(+ 59.026 59.238)2) *Thd_IMinDia* (/(+ 60.000 60.429)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 59.968 59.732)2) *Thd_EPDia* (/(+ 58.994 58.894)2) *Thd_EMinDia* (/(+ 58.344 57.970)2) *Thd_IMaxDia* (/(+ 58.376 58.676)2) *Thd_IPDia* (/(+ 59.026 59.238)2) *Thd_IMinDia* (/(+ 60.000 60.429)2) )) )) )) ((= Size 64.0)(cond ((= Pitch 6.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 63.920 63.320)2) *Thd_EPDia* (/(+ 60.023 59.743)2) *Thd_EMinDia* (/(+ 57.425 56.047)2) *Thd_IMaxDia* (/(+ 57.505 58.305)2) *Thd_IPDia* (/(+ 60.103 60.478)2) *Thd_IMinDia* (/(+ 64.000 65.241)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 64.000 63.400)2) *Thd_EPDia* (/(+ 60.103 59.823)2) *Thd_EMinDia* (/(+ 57.505 56.127)2) *Thd_IMaxDia* (/(+ 57.505 58.305)2) *Thd_IPDia* (/(+ 60.103 60.478)2) *Thd_IMinDia* (/(+ 64.000 65.241)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 63.920 63.320)2) *Thd_EPDia* (/(+ 60.023 59.843)2) *Thd_EMinDia* (/(+ 57.425 56.147)2) *Thd_IMaxDia* (/(+ 57.505 58.305)2) *Thd_IPDia* (/(+ 60.103 60.478)2) *Thd_IMinDia* (/(+ 64.000 65.241)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 63.962 63.682)2) *Thd_EPDia* (/(+ 62.663 62.483)2) *Thd_EMinDia* (/(+ 61.797 61.251)2) *Thd_IMaxDia* (/(+ 61.835 62.210)2) *Thd_IPDia* (/(+ 62.701 62.937)2) *Thd_IMinDia* (/(+ 64.000 64.525)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 64.000 63.720)2) *Thd_EPDia* (/(+ 62.701 62.521)2) *Thd_EMinDia* (/(+ 61.835 61.289)2) *Thd_IMaxDia* (/(+ 61.835 62.210)2) *Thd_IPDia* (/(+ 62.701 62.937)2) *Thd_IMinDia* (/(+ 64.000 64.525)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 63.962 63.682)2) *Thd_EPDia* (/(+ 62.663 62.551)2) *Thd_EMinDia* (/(+ 61.797 61.319)2) *Thd_IMaxDia* (/(+ 61.835 62.210)2) *Thd_IPDia* (/(+ 62.701 62.937)2) *Thd_IMinDia* (/(+ 64.000 64.525)2) )) )) )) ((= Size 65.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 64.968 64.732)2) *Thd_EPDia* (/(+ 63.994 63.834)2) *Thd_EMinDia* (/(+ 63.344 62.910)2) *Thd_IMaxDia* (/(+ 63.376 63.676)2) *Thd_IPDia* (/(+ 64.026 64.238)2) *Thd_IMinDia* (/(+ 65.000 65.429)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 65.000 64.764)2) *Thd_EPDia* (/(+ 64.026 63.866)2) *Thd_EMinDia* (/(+ 63.376 62.942)2) *Thd_IMaxDia* (/(+ 63.376 63.676)2) *Thd_IPDia* (/(+ 64.026 64.238)2) *Thd_IMinDia* (/(+ 65.000 65.429)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 64.968 64.732)2) *Thd_EPDia* (/(+ 63.994 63.894)2) *Thd_EMinDia* (/(+ 63.344 62.970)2) *Thd_IMaxDia* (/(+ 63.376 63.676)2) *Thd_IPDia* (/(+ 64.026 64.238)2) *Thd_IMinDia* (/(+ 65.000 65.429)2) )) )) )) ((= Size 70.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 69.968 69.732)2) *Thd_EPDia* (/(+ 68.994 68.834)2) *Thd_EMinDia* (/(+ 68.344 67.910)2) *Thd_IMaxDia* (/(+ 68.376 68.676)2) *Thd_IPDia* (/(+ 69.026 69.238)2) *Thd_IMinDia* (/(+ 70.000 70.429)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 70.000 69.764)2) *Thd_EPDia* (/(+ 69.026 68.866)2) *Thd_EMinDia* (/(+ 68.376 67.942)2) *Thd_IMaxDia* (/(+ 68.376 68.676)2) *Thd_IPDia* (/(+ 69.026 69.238)2) *Thd_IMinDia* (/(+ 70.000 70.429)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 69.968 69.732)2) *Thd_EPDia* (/(+ 68.994 68.894)2) *Thd_EMinDia* (/(+ 68.344 67.970)2) *Thd_IMaxDia* (/(+ 68.376 68.676)2) *Thd_IPDia* (/(+ 69.026 69.238)2) *Thd_IMinDia* (/(+ 70.000 70.429)2) )) )) )) ((= Size 72.0)(cond ((= Pitch 6.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 71.920 71.320)2) *Thd_EPDia* (/(+ 68.023 67.743)2) *Thd_EMinDia* (/(+ 65.425 64.047)2) *Thd_IMaxDia* (/(+ 65.505 66.305)2) *Thd_IPDia* (/(+ 68.103 68.478)2) *Thd_IMinDia* (/(+ 72.000 73.241)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 72.000 71.400)2) *Thd_EPDia* (/(+ 68.103 67.823)2) *Thd_EMinDia* (/(+ 65.505 64.127)2) *Thd_IMaxDia* (/(+ 65.505 66.305)2) *Thd_IPDia* (/(+ 68.103 68.478)2) *Thd_IMinDia* (/(+ 72.000 73.241)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 71.920 71.320)2) *Thd_EPDia* (/(+ 68.023 67.843)2) *Thd_EMinDia* (/(+ 65.425 64.147)2) *Thd_IMaxDia* (/(+ 65.505 66.305)2) *Thd_IPDia* (/(+ 68.103 68.478)2) *Thd_IMinDia* (/(+ 72.000 73.241)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 71.962 71.682)2) *Thd_EPDia* (/(+ 70.663 70.483)2) *Thd_EMinDia* (/(+ 69.797 69.251)2) *Thd_IMaxDia* (/(+ 69.835 70.210)2) *Thd_IPDia* (/(+ 70.701 70.937)2) *Thd_IMinDia* (/(+ 72.000 72.525)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 72.000 71.720)2) *Thd_EPDia* (/(+ 70.701 70.521)2) *Thd_EMinDia* (/(+ 69.835 69.289)2) *Thd_IMaxDia* (/(+ 69.835 70.210)2) *Thd_IPDia* (/(+ 70.701 70.937)2) *Thd_IMinDia* (/(+ 72.000 72.525)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 71.962 71.682)2) *Thd_EPDia* (/(+ 70.663 70.551)2) *Thd_EMinDia* (/(+ 69.797 69.319)2) *Thd_IMaxDia* (/(+ 69.835 70.210)2) *Thd_IPDia* (/(+ 70.701 70.937)2) *Thd_IMinDia* (/(+ 72.000 72.525)2) )) )) )) ((= Size 75.0)(cond ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 74.968 74.732)2) *Thd_EPDia* (/(+ 73.994 73.834)2) *Thd_EMinDia* (/(+ 73.344 72.910)2) *Thd_IMaxDia* (/(+ 73.376 73.676)2) *Thd_IPDia* (/(+ 74.026 74.238)2) *Thd_IMinDia* (/(+ 75.000 75.429)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 75.000 74.764)2) *Thd_EPDia* (/(+ 74.026 73.866)2) *Thd_EMinDia* (/(+ 73.376 72.942)2) *Thd_IMaxDia* (/(+ 73.376 73.676)2) *Thd_IPDia* (/(+ 74.026 74.238)2) *Thd_IMinDia* (/(+ 75.000 75.429)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 74.968 74.732)2) *Thd_EPDia* (/(+ 73.994 73.894)2) *Thd_EMinDia* (/(+ 73.344 72.970)2) *Thd_IMaxDia* (/(+ 73.376 73.676)2) *Thd_IPDia* (/(+ 74.026 74.238)2) *Thd_IMinDia* (/(+ 75.000 75.429)2) )) )) )) ((= Size 80.0)(cond ((= Pitch 6.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 79.920 79.320)2) *Thd_EPDia* (/(+ 76.023 75.743)2) *Thd_EMinDia* (/(+ 73.425 72.047)2) *Thd_IMaxDia* (/(+ 73.505 74.305)2) *Thd_IPDia* (/(+ 76.103 76.478)2) *Thd_IMinDia* (/(+ 80.000 81.241)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 80.000 79.400)2) *Thd_EPDia* (/(+ 76.103 75.823)2) *Thd_EMinDia* (/(+ 73.505 72.127)2) *Thd_IMaxDia* (/(+ 73.505 74.305)2) *Thd_IPDia* (/(+ 76.103 76.478)2) *Thd_IMinDia* (/(+ 80.000 81.241)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 79.920 79.320)2) *Thd_EPDia* (/(+ 76.023 75.843)2) *Thd_EMinDia* (/(+ 73.425 72.147)2) *Thd_IMaxDia* (/(+ 73.505 74.305)2) *Thd_IPDia* (/(+ 76.103 76.478)2) *Thd_IMinDia* (/(+ 80.000 81.241)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 79.962 79.682)2) *Thd_EPDia* (/(+ 78.663 78.483)2) *Thd_EMinDia* (/(+ 77.797 77.251)2) *Thd_IMaxDia* (/(+ 77.835 78.210)2) *Thd_IPDia* (/(+ 78.701 78.937)2) *Thd_IMinDia* (/(+ 80.000 80.525)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 80.000 79.720)2) *Thd_EPDia* (/(+ 78.701 78.521)2) *Thd_EMinDia* (/(+ 77.835 77.289)2) *Thd_IMaxDia* (/(+ 77.835 78.210)2) *Thd_IPDia* (/(+ 78.701 78.937)2) *Thd_IMinDia* (/(+ 80.000 80.525)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 79.962 79.682)2) *Thd_EPDia* (/(+ 78.663 78.551)2) *Thd_EMinDia* (/(+ 77.797 77.319)2) *Thd_IMaxDia* (/(+ 77.835 78.210)2) *Thd_IPDia* (/(+ 78.701 78.937)2) *Thd_IMinDia* (/(+ 80.000 80.525)2) )) )) ((= Pitch 1.50)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 79.968 79.732)2) *Thd_EPDia* (/(+ 78.994 78.834)2) *Thd_EMinDia* (/(+ 78.344 77.910)2) *Thd_IMaxDia* (/(+ 78.376 78.676)2) *Thd_IPDia* (/(+ 79.026 79.238)2) *Thd_IMinDia* (/(+ 80.000 80.429)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 80.000 79.764)2) *Thd_EPDia* (/(+ 79.026 78.866)2) *Thd_EMinDia* (/(+ 78.376 77.942)2) *Thd_IMaxDia* (/(+ 78.376 78.676)2) *Thd_IPDia* (/(+ 79.026 79.238)2) *Thd_IMinDia* (/(+ 80.000 80.429)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 79.968 79.732)2) *Thd_EPDia* (/(+ 78.994 78.894)2) *Thd_EMinDia* (/(+ 78.344 77.970)2) *Thd_IMaxDia* (/(+ 78.376 78.676)2) *Thd_IPDia* (/(+ 79.026 79.238)2) *Thd_IMinDia* (/(+ 80.000 80.429)2) )) )) )) ((= Size 85.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 84.962 84.682)2) *Thd_EPDia* (/(+ 83.663 83.483)2) *Thd_EMinDia* (/(+ 82.797 82.251)2) *Thd_IMaxDia* (/(+ 82.835 83.210)2) *Thd_IPDia* (/(+ 83.701 83.937)2) *Thd_IMinDia* (/(+ 85.000 85.525)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 85.000 84.720)2) *Thd_EPDia* (/(+ 83.701 83.521)2) *Thd_EMinDia* (/(+ 82.835 82.289)2) *Thd_IMaxDia* (/(+ 82.835 83.210)2) *Thd_IPDia* (/(+ 83.701 83.937)2) *Thd_IMinDia* (/(+ 85.000 85.525)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 84.962 84.682)2) *Thd_EPDia* (/(+ 83.663 83.551)2) *Thd_EMinDia* (/(+ 82.797 82.319)2) *Thd_IMaxDia* (/(+ 82.835 83.210)2) *Thd_IPDia* (/(+ 83.701 83.937)2) *Thd_IMinDia* (/(+ 85.000 85.525)2) )) )) )) ((= Size 90.0)(cond ((= Pitch 6.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 89.920 89.320)2) *Thd_EPDia* (/(+ 86.023 85.743)2) *Thd_EMinDia* (/(+ 83.425 82.047)2) *Thd_IMaxDia* (/(+ 83.505 84.305)2) *Thd_IPDia* (/(+ 86.103 86.478)2) *Thd_IMinDia* (/(+ 90.000 91.241)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 90.000 89.400)2) *Thd_EPDia* (/(+ 86.103 85.823)2) *Thd_EMinDia* (/(+ 83.505 82.127)2) *Thd_IMaxDia* (/(+ 83.505 84.305)2) *Thd_IPDia* (/(+ 86.103 86.478)2) *Thd_IMinDia* (/(+ 90.000 91.241)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 89.920 89.320)2) *Thd_EPDia* (/(+ 86.023 85.843)2) *Thd_EMinDia* (/(+ 83.425 82.147)2) *Thd_IMaxDia* (/(+ 83.505 84.305)2) *Thd_IPDia* (/(+ 86.103 86.478)2) *Thd_IMinDia* (/(+ 90.000 91.241)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 89.962 89.682)2) *Thd_EPDia* (/(+ 88.663 88.483)2) *Thd_EMinDia* (/(+ 87.797 87.251)2) *Thd_IMaxDia* (/(+ 87.835 88.210)2) *Thd_IPDia* (/(+ 88.701 88.937)2) *Thd_IMinDia* (/(+ 90.000 90.525)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 90.000 89.720)2) *Thd_EPDia* (/(+ 88.701 88.521)2) *Thd_EMinDia* (/(+ 87.835 87.289)2) *Thd_IMaxDia* (/(+ 87.835 88.210)2) *Thd_IPDia* (/(+ 88.701 88.937)2) *Thd_IMinDia* (/(+ 90.000 90.525)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 89.962 89.682)2) *Thd_EPDia* (/(+ 88.663 88.551)2) *Thd_EMinDia* (/(+ 87.797 87.319)2) *Thd_IMaxDia* (/(+ 87.835 88.210)2) *Thd_IPDia* (/(+ 88.701 88.937)2) *Thd_IMinDia* (/(+ 90.000 90.525)2) )) )) )) ((= Size 95.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 94.962 94.682)2) *Thd_EPDia* (/(+ 93.663 93.473)2) *Thd_EMinDia* (/(+ 92.797 92.241)2) *Thd_IMaxDia* (/(+ 92.835 93.210)2) *Thd_IPDia* (/(+ 93.701 93.951)2) *Thd_IMinDia* (/(+ 95.000 95.539)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 95.000 94.720)2) *Thd_EPDia* (/(+ 93.701 93.511)2) *Thd_EMinDia* (/(+ 92.835 92.279)2) *Thd_IMaxDia* (/(+ 92.835 93.210)2) *Thd_IPDia* (/(+ 93.701 93.951)2) *Thd_IMinDia* (/(+ 95.000 95.539)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 94.962 94.682)2) *Thd_EPDia* (/(+ 93.663 93.545)2) *Thd_EMinDia* (/(+ 92.797 92.313)2) *Thd_IMaxDia* (/(+ 92.835 93.210)2) *Thd_IPDia* (/(+ 93.701 93.951)2) *Thd_IMinDia* (/(+ 95.000 95.539)2) )) )) )) ((= Size 100.0)(cond ((= Pitch 6.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 99.920 99.320)2) *Thd_EPDia* (/(+ 96.023 95.723)2) *Thd_EMinDia* (/(+ 93.425 92.027)2) *Thd_IMaxDia* (/(+ 93.505 94.305)2) *Thd_IPDia* (/(+ 96.103 96.503)2) *Thd_IMinDia* (/(+ 100.000 101.266)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 100.000 99.400)2) *Thd_EPDia* (/(+ 96.103 95.803)2) *Thd_EMinDia* (/(+ 93.505 92.107)2) *Thd_IMaxDia* (/(+ 93.505 94.305)2) *Thd_IPDia* (/(+ 96.103 96.503)2) *Thd_IMinDia* (/(+ 100.000 101.266)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 99.920 99.320)2) *Thd_EPDia* (/(+ 96.023 95.833)2) *Thd_EMinDia* (/(+ 93.425 92.137)2) *Thd_IMaxDia* (/(+ 93.505 94.305)2) *Thd_IPDia* (/(+ 96.103 96.503)2) *Thd_IMinDia* (/(+ 100.000 101.266)2) )) )) ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 99.962 99.682)2) *Thd_EPDia* (/(+ 98.663 98.473)2) *Thd_EMinDia* (/(+ 97.797 97.241)2) *Thd_IMaxDia* (/(+ 97.835 98.210)2) *Thd_IPDia* (/(+ 98.701 98.951)2) *Thd_IMinDia* (/(+ 100.000 100.539)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 100.000 99.720)2) *Thd_EPDia* (/(+ 98.701 98.511)2) *Thd_EMinDia* (/(+ 97.835 97.279)2) *Thd_IMaxDia* (/(+ 97.835 98.210)2) *Thd_IPDia* (/(+ 98.701 98.951)2) *Thd_IMinDia* (/(+ 100.000 100.539)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 99.962 99.682)2) *Thd_EPDia* (/(+ 98.663 98.545)2) *Thd_EMinDia* (/(+ 97.797 97.313)2) *Thd_IMaxDia* (/(+ 97.835 98.210)2) *Thd_IPDia* (/(+ 98.701 98.951)2) *Thd_IMinDia* (/(+ 100.000 100.539)2) )) )) )) ((= Size 105.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 104.962 104.682)2) *Thd_EPDia* (/(+ 103.663 103.473)2) *Thd_EMinDia* (/(+ 102.797 102.241)2) *Thd_IMaxDia* (/(+ 102.835 103.210)2) *Thd_IPDia* (/(+ 103.701 103.951)2) *Thd_IMinDia* (/(+ 105.000 105.539)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 105.000 104.720)2) *Thd_EPDia* (/(+ 103.701 103.511)2) *Thd_EMinDia* (/(+ 102.835 102.279)2) *Thd_IMaxDia* (/(+ 102.835 103.210)2) *Thd_IPDia* (/(+ 103.701 103.951)2) *Thd_IMinDia* (/(+ 105.000 105.539)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 104.962 104.682)2) *Thd_EPDia* (/(+ 103.663 103.545)2) *Thd_EMinDia* (/(+ 102.797 102.313)2) *Thd_IMaxDia* (/(+ 102.835 103.210)2) *Thd_IPDia* (/(+ 103.701 103.951)2) *Thd_IMinDia* (/(+ 105.000 105.539)2) )) )) )) ((= Size 110.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 109.962 109.682)2) *Thd_EPDia* (/(+ 108.663 108.473)2) *Thd_EMinDia* (/(+ 107.797 107.241)2) *Thd_IMaxDia* (/(+ 107.835 108.210)2) *Thd_IPDia* (/(+ 108.701 108.951)2) *Thd_IMinDia* (/(+ 110.000 110.539)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 110.000 109.720)2) *Thd_EPDia* (/(+ 108.701 108.511)2) *Thd_EMinDia* (/(+ 107.835 107.279)2) *Thd_IMaxDia* (/(+ 107.835 108.210)2) *Thd_IPDia* (/(+ 108.701 108.951)2) *Thd_IMinDia* (/(+ 110.000 110.539)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 109.962 109.682)2) *Thd_EPDia* (/(+ 108.663 108.545)2) *Thd_EMinDia* (/(+ 107.797 107.313)2) *Thd_IMaxDia* (/(+ 107.835 108.210)2) *Thd_IPDia* (/(+ 108.701 108.951)2) *Thd_IMinDia* (/(+ 110.000 110.539)2) )) )) )) ((= Size 120.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 119.962 119.682)2) *Thd_EPDia* (/(+ 118.663 118.473)2) *Thd_EMinDia* (/(+ 117.797 117.241)2) *Thd_IMaxDia* (/(+ 117.835 118.210)2) *Thd_IPDia* (/(+ 118.701 118.951)2) *Thd_IMinDia* (/(+ 120.000 120.539)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 120.000 119.720)2) *Thd_EPDia* (/(+ 118.701 118.511)2) *Thd_EMinDia* (/(+ 117.835 117.279)2) *Thd_IMaxDia* (/(+ 117.835 118.210)2) *Thd_IPDia* (/(+ 118.701 118.951)2) *Thd_IMinDia* (/(+ 120.000 120.539)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 119.962 119.682)2) *Thd_EPDia* (/(+ 118.663 118.545)2) *Thd_EMinDia* (/(+ 117.797 117.313)2) *Thd_IMaxDia* (/(+ 117.835 118.210)2) *Thd_IPDia* (/(+ 118.701 118.951)2) *Thd_IMinDia* (/(+ 120.000 120.539)2) )) )) )) ((= Size 130.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 129.962 129.682)2) *Thd_EPDia* (/(+ 128.663 128.473)2) *Thd_EMinDia* (/(+ 127.797 127.241)2) *Thd_IMaxDia* (/(+ 127.835 128.210)2) *Thd_IPDia* (/(+ 128.701 128.951)2) *Thd_IMinDia* (/(+ 130.000 130.539)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 130.000 129.720)2) *Thd_EPDia* (/(+ 128.701 128.511)2) *Thd_EMinDia* (/(+ 127.835 127.279)2) *Thd_IMaxDia* (/(+ 127.835 128.210)2) *Thd_IPDia* (/(+ 128.701 128.951)2) *Thd_IMinDia* (/(+ 130.000 130.539)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 129.962 129.682)2) *Thd_EPDia* (/(+ 128.663 128.545)2) *Thd_EMinDia* (/(+ 127.797 127.313)2) *Thd_IMaxDia* (/(+ 127.835 128.210)2) *Thd_IPDia* (/(+ 128.701 128.951)2) *Thd_IMinDia* (/(+ 130.000 130.539)2) )) )) )) ((= Size 140.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 139.962 139.682)2) *Thd_EPDia* (/(+ 138.663 138.473)2) *Thd_EMinDia* (/(+ 137.797 137.241)2) *Thd_IMaxDia* (/(+ 137.835 138.210)2) *Thd_IPDia* (/(+ 138.701 138.951)2) *Thd_IMinDia* (/(+ 140.000 140.539)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 140.000 139.720)2) *Thd_EPDia* (/(+ 138.701 138.511)2) *Thd_EMinDia* (/(+ 137.835 137.279)2) *Thd_IMaxDia* (/(+ 137.835 138.210)2) *Thd_IPDia* (/(+ 138.701 138.951)2) *Thd_IMinDia* (/(+ 140.000 140.539)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 139.962 139.682)2) *Thd_EPDia* (/(+ 138.663 138.545)2) *Thd_EMinDia* (/(+ 137.797 137.313)2) *Thd_IMaxDia* (/(+ 137.835 138.210)2) *Thd_IPDia* (/(+ 138.701 138.951)2) *Thd_IMinDia* (/(+ 140.000 140.539)2) )) )) )) ((= Size 150.0)(cond ((= Pitch 2.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 149.962 149.682)2) *Thd_EPDia* (/(+ 148.663 148.473)2) *Thd_EMinDia* (/(+ 047.797 147.241)2) *Thd_IMaxDia* (/(+ 147.835 148.210)2) *Thd_IPDia* (/(+ 148.701 148.951)2) *Thd_IMinDia* (/(+ 150.000 150.539)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 150.000 149.720)2) *Thd_EPDia* (/(+ 148.701 148.511)2) *Thd_EMinDia* (/(+ 147.835 147.279)2) *Thd_IMaxDia* (/(+ 147.835 148.210)2) *Thd_IPDia* (/(+ 148.701 148.951)2) *Thd_IMinDia* (/(+ 150.000 150.539)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 149.962 149.682)2) *Thd_EPDia* (/(+ 148.663 148.545)2) *Thd_EMinDia* (/(+ 147.797 147.313)2) *Thd_IMaxDia* (/(+ 147.835 148.210)2) *Thd_IPDia* (/(+ 148.701 148.951)2) *Thd_IMinDia* (/(+ 150.000 150.539)2) )) )) )) ((= Size 160.0)(cond ((= Pitch 3.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 159.952 159.577)2) *Thd_EPDia* (/(+ 158.003 157.779)2) *Thd_EMinDia* (/(+ 156.704 155.931)2) *Thd_IMaxDia* (/(+ 156.752 157.252)2) *Thd_IPDia* (/(+ 158.051 158.351)2) *Thd_IMinDia* (/(+ 160.000 160.733)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 160.000 159.625)2) *Thd_EPDia* (/(+ 158.051 157.827)2) *Thd_EMinDia* (/(+ 156.752 155.979)2) *Thd_IMaxDia* (/(+ 156.752 157.252)2) *Thd_IPDia* (/(+ 158.051 158.351)2) *Thd_IMinDia* (/(+ 160.000 160.733)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 159.952 159.577)2) *Thd_EPDia* (/(+ 158.003 157.863)2) *Thd_EMinDia* (/(+ 156.704 156.015)2) *Thd_IMaxDia* (/(+ 156.752 157.252)2) *Thd_IPDia* (/(+ 158.051 158.351)2) *Thd_IMinDia* (/(+ 160.000 160.733)2) )) )) )) ((= Size 170.0)(cond ((= Pitch 3.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 169.952 169.577)2) *Thd_EPDia* (/(+ 168.003 167.779)2) *Thd_EMinDia* (/(+ 166.704 165.931)2) *Thd_IMaxDia* (/(+ 166.752 167.252)2) *Thd_IPDia* (/(+ 168.051 168.351)2) *Thd_IMinDia* (/(+ 170.000 170.733)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 170.000 169.625)2) *Thd_EPDia* (/(+ 168.051 167.827)2) *Thd_EMinDia* (/(+ 166.752 165.979)2) *Thd_IMaxDia* (/(+ 166.752 167.252)2) *Thd_IPDia* (/(+ 168.051 168.351)2) *Thd_IMinDia* (/(+ 170.000 170.733)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 169.952 169.577)2) *Thd_EPDia* (/(+ 168.003 167.863)2) *Thd_EMinDia* (/(+ 166.704 166.015)2) *Thd_IMaxDia* (/(+ 166.752 167.252)2) *Thd_IPDia* (/(+ 168.051 168.351)2) *Thd_IMinDia* (/(+ 170.000 170.733)2) )) )) )) ((= Size 180.0)(cond ((= Pitch 3.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 179.952 179.577)2) *Thd_EPDia* (/(+ 178.003 177.779)2) *Thd_EMinDia* (/(+ 176.704 175.931)2) *Thd_IMaxDia* (/(+ 176.752 177.252)2) *Thd_IPDia* (/(+ 178.051 178.351)2) *Thd_IMinDia* (/(+ 180.000 180.733)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 180.000 179.625)2) *Thd_EPDia* (/(+ 178.051 177.827)2) *Thd_EMinDia* (/(+ 176.752 175.979)2) *Thd_IMaxDia* (/(+ 176.752 177.252)2) *Thd_IPDia* (/(+ 178.051 178.351)2) *Thd_IMinDia* (/(+ 180.000 180.733)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 179.952 179.577)2) *Thd_EPDia* (/(+ 178.003 177.863)2) *Thd_EMinDia* (/(+ 176.704 176.015)2) *Thd_IMaxDia* (/(+ 176.752 177.252)2) *Thd_IPDia* (/(+ 178.051 178.351)2) *Thd_IMinDia* (/(+ 180.000 180.733)2) )) )) )) ((= Size 190.0)(cond ((= Pitch 3.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 189.952 189.577)2) *Thd_EPDia* (/(+ 188.003 187.753)2) *Thd_EMinDia* (/(+ 186.704 185.905)2) *Thd_IMaxDia* (/(+ 186.752 187.252)2) *Thd_IPDia* (/(+ 188.051 188.386)2) *Thd_IMinDia* (/(+ 190.000 190.768)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 190.000 189.625)2) *Thd_EPDia* (/(+ 188.051 187.801)2) *Thd_EMinDia* (/(+ 186.752 185.953)2) *Thd_IMaxDia* (/(+ 186.752 187.252)2) *Thd_IPDia* (/(+ 188.051 188.386)2) *Thd_IMinDia* (/(+ 190.000 190.768)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 189.952 189.577)2) *Thd_EPDia* (/(+ 188.003 187.843)2) *Thd_EMinDia* (/(+ 186.704 185.995)2) *Thd_IMaxDia* (/(+ 186.752 187.252)2) *Thd_IPDia* (/(+ 188.051 188.386)2) *Thd_IMinDia* (/(+ 190.000 190.768)2) )) )) )) ((= Size 200.0)(cond ((= Pitch 3.00)(cond ((= TClass 1)(setq *Thd_EMaxDia* (/(+ 199.952 199.577)2) *Thd_EPDia* (/(+ 198.003 197.753)2) *Thd_EMinDia* (/(+ 196.704 195.905)2) *Thd_IMaxDia* (/(+ 196.752 197.252)2) *Thd_IPDia* (/(+ 198.051 198.386)2) *Thd_IMinDia* (/(+ 200.000 200.768)2) )) ((= TClass 2)(setq *Thd_EMaxDia* (/(+ 200.000 199.625)2) *Thd_EPDia* (/(+ 198.051 197.801)2) *Thd_EMinDia* (/(+ 196.752 195.953)2) *Thd_IMaxDia* (/(+ 196.752 197.252)2) *Thd_IPDia* (/(+ 198.051 198.386)2) *Thd_IMinDia* (/(+ 200.000 200.768)2) )) ((= TClass 3)(setq *Thd_EMaxDia* (/(+ 199.952 199.577)2) *Thd_EPDia* (/(+ 198.003 197.843)2) *Thd_EMinDia* (/(+ 196.704 195.995)2) *Thd_IMaxDia* (/(+ 196.752 197.252)2) *Thd_IPDia* (/(+ 198.051 198.386)2) *Thd_IMinDia* (/(+ 200.000 200.768)2) )) )) )) ));Profile 1 );cond ;;Reset the global variables (setq *Thd_NameStr* nil) ;;Generate the thread name to a global variable.... just because (print(format nil "Here's the size I'm looking for - ~A" (sd-write-to-string Size 4) )) (setf ;;Create a thread size string Size0 (sd-write-to-string Size 4) ThdSize (cond ;;First Size table for # Sizes ((or(equal Size0 "0.06" ) (equal Size0 "0.008" )(= Size 0.0600)(= Size 0.0080)) "No_0") ((or(equal Size0 "0.017" ) (equal Size0 "0.073" )(= Size 0.0170)(= Size 0.0170)) "No_1") ((or(equal Size0 "0.026" ) (equal Size0 "0.086" )(= Size 0.0260)(= Size 0.0260)) "No_2") ((or(equal Size0 "0.0356") (equal Size0 "0.099" )(= Size 0.0356)(= Size 0.0356)) "No_3") ((or(equal Size0 "0.0448") (equal Size0 "0.112" )(= Size 0.0448)(= Size 0.0448)) "No_4") ((or(equal Size0 "0.0544") (equal Size0 "0.1251")(= Size 0.0544)(= Size 0.0544)) "No_5") ((or(equal Size0 "0.064" ) (equal Size0 "0.138" )(= Size 0.0640)(= Size 0.0640)) "No_6") ((or(equal Size0 "0.0836") (equal Size0 "0.164" )(= Size 0.0836)(= Size 0.0836)) "No_8") ((or(equal Size0 "0.19" ) (equal Size0 "0.1032")(= Size 0.1900)(= Size 0.1032)) "No_10") ((or(equal Size0 "0.216" ) (equal Size0 "0.1228")(= Size 0.2160)(= Size 0.1228)) "No_12") ;;Fractional Sizes ((= Size 0.2500) "1/4''") ((= Size 0.3125) "5/16''") ((= Size 0.3750) "3/8''") ((= Size 0.4375) "7/16''") ((= Size 0.5000) "1/2''") ((= Size 0.5625) "9/16''") ((= Size 0.6250) "5/8''") ((= Size 0.6875) "11/16''") ((= Size 0.7500) "3/4''") ((= Size 0.8125) "13/16''") ((= Size 0.8750) "7/8''") ((= Size 0.9375) "15/16''") ((= Size 1.0000) "1''") ((= Size 1.0625) "1-1/16''") ((= Size 1.1250) "1-1/8''") ((= Size 1.1875) "1-3/16''") ((= Size 1.2500) "1-1/4''") ((= Size 1.3125) "1-5/16''") ((= Size 1.3750) "1-3/8''") ((= Size 1.4375) "1-7/16''") ((= Size 1.5000) "1-1/2''") ((= Size 1.5625) "1-9/16''") ((= Size 1.6250) "1-5/8''") ((= Size 1.6875) "1-11/16''") ((= Size 1.7500) "1-3/4''") ((= Size 1.8125) "1-13/16''") ((= Size 1.8750) "1-7/8''") ((= Size 1.9375) "1-15/16''") ((= Size 2.0000) "2''") ((= Size 2.1250) "2-1/8''") ((= Size 2.2500) "2-1/4''") ((= Size 2.3750) "2-3/8''") ((= Size 2.5000) "2-1/2''") ((= Size 2.6250) "2-5/8''") ((= Size 2.7500) "2-3/4''") ((= Size 2.8750) "2-7/8''") ((= Size 3.0000) "3''") ((= Size 3.1250) "3-1/8''") ((= Size 3.2500) "3-1/4''") ((= Size 3.3750) "3-3/8''") ((= Size 3.5000) "3-1/2''") ((= Size 3.6250) "3-5/8''") ((= Size 3.7500) "3-3/4''") ((= Size 3.8750) "3-7/8''") ((= Size 4.0000) "4''") (t (print (format nil "Thread Size - ~A - Not Found" ThdSize))) );cond ;;Now create the thread class letter ThdClassAB (cond ((= Type 1) "A") ((= Type 2) "B") );cond );setf ;;Now Create the thread string ex M3 x 0.5 6H (setq *Thd_NameStr* (cond ((or(= Profile0 6)(= Profile0 7)) (format nil "~A''-~A~A-~A" ThdSize TPI Profile ThdClassAB) ) ;---------------------------------------------------------------------------------------------- ((equal Hand :right-hand)(format nil "~A-~A~A-~A~A" ThdSize TPI Profile Class ThdClassAB)) ( (= Hand 1) (format nil "~A-~A~A-~A~A" ThdSize TPI Profile Class ThdClassAB)) ;---------------------------------------------------------------------------------------------- ((equal Hand :left-hand) (format nil "~A-~A~A-~A~A-LH" ThdSize TPI Profile Class ThdClassAB)) ( (= Hand 2) (format nil "~A-~A~A-~A~A-LH" ThdSize TPI Profile Class ThdClassAB)) )) ;;print out the new global variable values (print (format nil "Thread String - ~A~%~%External Max Dia - ~A~%External Min Dia - ~A~%~%Internal Min Dia - ~A~%Internal Max Dia - ~A~%" *Thd_NameStr* (sd-write-to-string *Thd_EMaxDia* 6)(sd-write-to-string *Thd_EMinDia* 6)(sd-write-to-string *Thd_IMaxDia* 6)(sd-write-to-string *Thd_IMinDia* 6))) );defun ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;;; This function searches from a list of cylinoid faces of a part, looks for a face with a certain radius (InqRad0), ;;;;; and then applies the requested thread to that face. Made for the Fastener generators. ~Chris ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% (defvar *SELFACERADIUS* nil) ;;;; ==================================================================================================== (defun sd_search_faces_to_attach_thread (Part InqRad0 Profile Size TPI ExOrIn Class Hand Chamfer &optional ChfrSize) ;;;; ==================================================================================================== ;;Logit (print(format nil "~A~% >> Looking for the thread face -> ~A'' Rad" *PrntBrdr* (sd-write-to-string InqRad0 5) )) ;;Gather the cylinder faces (setf AllFaces (sd-call-cmds (get_selection :focus_type *sd-cylinder-seltype* :select :in_part Part :all_3d )) InqRad (sd-write-to-string InqRad0 5) Counter 0 );setf ;;Run through the list to find the correct face (print " >> Inqure the face list") (dolist (child AllFaces) ;;set the variables (setf FaceRad (sd-num-to-string(sd-cylinder-radius(sd-inq-geo-props child :dest-space :global)) 5) ) ;;Check for cylinder Face (print(format nil " >> The face radius is = ~A -> ~A" FaceRad InqRad )) ;;When the correct one is found. (if (equal InqRad FaceRad)(progn (print " >> Found the correct face!") (setf *FastThdFace* child) ));if );dolist ;;Get the thread information (sd_compile_bolt_threads Profile Size TPI ExOrIn Class Hand ) ;;Filter out the information for the thread (setf Hand2 (cond ((= Hand 1):right-hand) (t :left-hand) ) MaxDia (cond ((= ExOrIn 1)*Thd_EMaxDia*) ((= ExOrIn 2)*Thd_IMaxDia*) ) MinDia (cond ((= ExOrIn 1)*Thd_EMinDia*) ((= ExOrIn 2)*Thd_IMinDia*) ) Profile0 (cond ((= Profile 1) :unef ) ((= Profile 6) :unref) ((= Profile 2) :unf ) ((= Profile 7) :unrf ) ((= Profile 3) :un ) ((= Profile 8) :unr ) ((= Profile 4) :unc ) ((= Profile 9) :unrc ) ((= Profile 5) :uns ) ((= Profile 10) :unrs ) ((= Profile 11) :npsm ) ((= Profile 12) :npsl ) ) );setf ;;Create the thread on the thread face (sd_create_imperial_thread MaxDia MinDia TPI 1 Profile0 Hand2 *Thd_NameStr* *FastThdFace* *Thd_NameStr*) ;;Gather both edges from the thread face (setf Edges (sd-call-cmds (get_selection :focus_type *sd-edge-3d-seltype* :select :edge_3d :by_face *FastThdFace* )) ThdGap (/(- MaxDia MinDia )2) Dist0 (+ ThdGap (* ThdGap 0.1625)) Dist (* Dist0 25.4) );setf ;;Check for chamfer creation (when (not(= Chamfer 0))(progn ;;Logit (print(format nil " >> Creating ~Ax ~A'' chamfers" Chamfer (sd-write-to-string Dist 6) )) ;;filter (cond ;;Only doing 1 available edge ((= Chamfer 1) (sd-call-cmds (chamfer (first Edges) :distance Dist ) :failure (sd-call-cmds (chamfer (second Edges) :distance Dist ) :failure (sd-call-cmds (chamfer (last Edges) :distance Dist ) :failure (print " >> Can't create the chamfer :( ") )) )) ;;both edges ((= Chamfer 2) (sd-call-cmds (chamfer Edges :distance Dist )) ) ;;Single edge with alternative size then what's on the global charts ((= Chamfer 3)(progn (print " >> Creating a custom sized chamfer") (sd-call-cmds (chamfer (first Edges) :distance ChfrSize ) :failure (sd-call-cmds (chamfer (second Edges) :distance ChfrSize ) :failure (sd-call-cmds (chamfer (last Edges) :distance ChfrSize ) :failure (print " >> Can't create the chamfer :( ") )) ) )) );cond ));when );defun ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;;; Define the Custom thread functions ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_inq ;v3.0 ;;;; ================================================================================ :dialog-title "Inquire Thread Feature" :help-action '(sd-display-alert "Select the thread feature to display it's properties." :icon :info :auto-close-time 2.5) :variables '( (SelFace :title "Select Face" :selection (*sd-cylinder-seltype* *sd-cone-seltype*) :prompt-text "Select the surface to be threaded" :after-input (inq_thread_info Selface) :next-variable 'Selface) ("-+- Thread Information -+-") (InqThdName :title "Name" :value-type :display-only :size :third) (InqThdnameUnq :title "U.Name" :value-type :display-only :size :third) (InqThdUnit :title "Unit" :value-type :display-only) (InqThdNomDiamm :title "Nom Dia mm" :value-type :display-only) (InqThdNomDiaIn :title "Nom Dia Inch" :value-type :display-only) (InqThdNomDiaTxt :title "Nom Dia Txt" :value-type :display-only) (InqThdCorDia :title "Core Dia mm" :value-type :display-only) (InqThdCorDiain :title "Core Dia In" :value-type :display-only) (InqThdPitch :title "Pitch" :value-type :display-only) (InqThdTpi :title "Thd per Inch" :value-type :display-only) (InqThdType :title "Type" :value-type :display-only) (InqThdNumber :title "Start" :value-type :display-only) (InqThdHand :title "Hand" :value-type :display-only) (InqThdChamf :title "Chamfer On?" :value-type :display-only) (InqThdprofile :title "Profile" :value-type :display-only :size :third) );;variables :local-functions '( (inq_thread_info (Face) ;;Inqure the thread information (setq result (oli::sd-inq-thread Face) InqThdName (getf result :thread-name) InqThdnameUnq (getf result :thread-name) InqThdNomDiamm (getf result :nominal-diameter) InqThdNomDiaIn (cond((equal (getf result :nominal-diameter-inch) nil)(/ InqThdNomDiamm 25.4)) (t (getf result :nominal-diameter-inch)) ) InqThdNomDiaTxt (getf result :nominal-diameter-text) InqThdCorDia (getf result :core-diameter) InqThdCorDiain (/ InqThdCorDia 25.4) InqThdPitch (getf result :pitch) InqThdTpi (getf result :tpi) InqThdType0 (sd-write-to-string (getf result :thread-type)) InqThdType (cond ((equal InqThdType0 ":outer")"External") ((equal InqThdType0 ":inner")"Internal") );cond InqThdNumber (getf result :thread-number) InqThdHand0 (sd-write-to-string (getf result :thread-hand)) InqThdHand (cond ((equal InqThdHand0 ":right-hand")"Right-Hand") ((equal InqThdHand0 ":left-hand")"Left-Hand") );cond InqThdUnit0 (sd-write-to-string (getf result :thread-unit)) InqThdUnit (cond ((equal InqThdUnit0 ":inch")"Inch") ((equal InqThdUnit0 ":metric")"Metric") );cond InqThdColor (getf result :color) InqThdChamf0 (sd-write-to-string(getf result :include-chamfer)) InqThdChamf (cond ((equal InqThdChamf0 "t") "On") ((equal InqThdChamf0 "nil") "Off")) InqThdprofile0 (sd-write-to-string (getf result :thread-profile)) InqThdprofile (cond ((equal InqThdprofile0 ":dqs001")"DQS-001") ((equal InqThdprofile0 ":dqs002")"DQS-002") ((equal InqThdprofile0 ":dqs023")"DQS-023") ((equal InqThdprofile0 ":dqs042")"DQS-042") ((equal InqThdprofile0 ":dqs069")"DQS-069") ((equal InqThdprofile0 ":dqs119")"DQS-119") ((equal InqThdprofile0 ":dqs127")"DQS-127") ((equal InqThdprofile0 ":dqs130")"DQS-130") ((equal InqThdprofile0 ":dqs021")"2-DQS-021") ((equal InqThdprofile0 ":dqs022")"2-DQS-022") ((equal InqThdprofile0 ":dqs040")"2-DQS-040") ((equal InqThdprofile0 ":dqs148")"2-DQS-148") ((equal InqThdprofile0 ":dqs171")"2-DQS-171") ((equal InqThdprofile0 ":dqs220")"2-DQS-220") ((equal InqThdprofile0 ":dqs239")"2-DQS-239") ((equal InqThdprofile0 ":dqs240")"2-DQS-240") ((equal InqThdprofile0 ":acme") "ACME") ((equal InqThdprofile0 ":same") "STUB-ACME") ((equal InqThdprofile0 ":api") "API") ((equal InqThdprofile0 ":unef") "UNEF") ((equal InqThdprofile0 ":unref")"UNREF") ((equal InqThdprofile0 ":unf") "UNF") ((equal InqThdprofile0 ":unrf") "UNRF") ((equal InqThdprofile0 ":un") "UN") ((equal InqThdprofile0 ":unr") "UNR") ((equal InqThdprofile0 ":unc") "UNC") ((equal InqThdprofile0 ":unrc") "UNRC") ((equal InqThdprofile0 ":uns") "UNS") ((equal InqThdprofile0 ":unrs") "UNRS") ((equal InqThdprofile0 ":npt") "NPT") ((equal InqThdprofile0 ":npsm") "NPSM") ((equal InqThdprofile0 ":npsl") "NPSL") ((equal InqThdprofile0 ":m")"Metric") ((equal InqThdprofile0 ":mf")"Metric Fine") ((equal InqThdprofile0 ":bsw")"British Std. Whithworth") ((equal InqThdprofile0 ":bsf")"British Std. Fine") ((equal InqThdprofile0 ":bsp")"British Std. Pipe") ((equal InqThdprofile0 ":tr")"Trap.-Din103") ((equal InqThdprofile0 ":flat_trapezoid")"FlatTrap.-Din380") ((equal InqThdprofile0 ":s")"Saw-Din513") ((equal InqThdprofile0 ":r")"Round-Din405") ((equal InqThdprofile0 ":round_mining")"Round Mining") ((equal InqThdprofile0 ":e")"Edison") ((equal InqThdprofile0 ":pipe_rp")"PipeRP-Din10226") ((equal InqThdprofile0 ":pipe_g")"PipeG-DinIso228") ((equal InqThdprofile0 ":pipe_pg") "PipePG-Din40430") ((equal InqThdprofile0 ":pipe_jis_b_0203")"Jap.Ind.Stand.-B 0203") ((equal InqThdprofile0 ":cust")"Custom Thread") ((equal InqThdprofile0 ":cust45")"Custom Flank Thread") (t (sd-write-to-string (getf result :thread-profile)) ) );cond );setq (print result ) );inq_thread_info );local-func );sd-defdialogs ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_del ;v2.0 ;;;; ================================================================================ :dialog-title "Delete Thread Feature" :dialog-control :sequential-loop :help-action '(sd-display-alert "Select the thread feature you want to delete" :icon :info :auto-close-time 2.5) :variables '( (SelFace :title "Select Face" :value-type :face :after-input (Delete_Thread_and_Tag SelFace) :next-variable 'SelFace) );variables :local-functions '( (Delete_Thread_and_Tag (Face) ;;Capture the feature by the face (setf FaceFeat (sd-call-cmds(get_selection :focus_type *sd-3d-annotation-seltype* :select :by_face Face :no_highlight )) );setf ;;Delete the feature's 3D tag (sd-call-cmds(doc3d_delete_anno :anno FaceFeat)) ;;Delete the thread feature (sd-call-cmds(sd-destroy-thread Face)) );Delete_Thread_and_Tag );local-functions );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_custom_generator ;;;; ================================================================================ :dialog-title "Custom Thread v4.00" :variables '( ("Selections") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded") ("Provide Thread Information") (ThdType :title "Thread Type" :range ((1 :label "External") (2 :label "Internal")) ) (MajorDia :title "Major Dia." :value-type :positive-number) (MinorDia :title "Minor Dia" :value-type :positive-number) (ThdTPI :title "T.P.I." :value-type :number) (ThdPrfl :title "Profile" :size :third :range ( (:unef :label "UNEF") (:unref :label "UNREF") (:unf :label "UNF") (:unrf :label "UNRF") (:un :label "UN") (:unr :label "UNR") (:unc :label "UNC") (:unrc :label "UNRC") (:uns :label "UNS") (:unrs :label "UNRS") (:npt :label "NPT (Non-Tapered)") (:M :label "Metric") (:MF :label "Metric Fine") (:BSW :label "British Stand. Whithworth") (:BSF :label "British Stand. Fine") ;(:BSP :label "British Stand. Pipe") ;(:TR :label "Trapezoid - Din 103") ;(:FLAT_TRAPEZOID :label "Flat Trapezoid - Din 380") ;(:S :label "Saw - Din 513") ;(:R :label "Round - Din 405") ;(:ROUND_MINING :label "Round Mining") ;(:E :label "Edison") (:PIPE_RP :label "Pipe RP - Din 10226") (:PIPE_G :label "Pipe G - Din Iso 228") (:PIPE_PG :label "Pipe PG - Din 40430") ;(:PIPE_JIS_B_0203 :label "Japanese Industrial Stand. - B 0203") (:Square :label "Square") (:cust :label "Custom Thread") (:cust45 :label "Custom Flank Thread") ) :initial-value :unc) (ThdHand :title "Hand" :size :third :range (:right-hand :left-hand)) (ThdName :title "Name" :size :third :value-type :string) ("If you have Min / Max Dias") (NomDiaMax :title "Major Dia Max" :value-type :number :next-variable 'NomDiaMin) (NomDiaMin :title "Major Dia Min" :value-type :number :after-input (setq MajorDia (/ (+ NomDiaMin NomDiaMax) 2)) :next-variable 'CoreDiaMax) (CoreDiaMax :title "Minor Dia Max" :value-type :number :next-variable 'CoreDiaMin) (CoreDiaMin :title "Minor Dia Min" :value-type :number :after-input (setq MinorDia (/ (+ CoreDiaMin CoreDiaMax) 2)) :next-variable 'ThdTPI) ("") (GenerateThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (cond ((= ThdType 1)(sd_create_imperial_thread MajorDia MinorDia ThdTPI 4 ThdPrfl ThdHand ThdName SelFace ThdName) );External ((= ThdType 2)(sd_create_imperial_thread MinorDia MajorDia ThdTPI 4 ThdPrfl ThdHand ThdName SelFace ThdName) );Internal );cond );GenerateThd );variables );sd-defdialog ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;;;; Define the Different Thread Types ;;;;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ;;Bolt Threads ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_UNEF ;;;; ================================================================================ :dialog-title "Create UNEF Thread Feature" :after-initialization '(Compile_Thread_Sizes 1) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :initial-value "none" :range ( 0 ) :after-input (progn (sd_compile_thread_tpi 1 ThdSize) (setq ThdTPI (first *Thd_Info_List_TPI*)) ) ) (ThdTPI :title "Thread TPI" :value-type :display-only :initial-value "" ) (ThdClass :title "Thread Class" :range (2 3) :initial-value 2) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (sd_compile_bolt_threads 1 ThdSize ThdTPI ThdType ThdClass ThdHand) ;;Now Generate the thread feature (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :UNEF ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :UNEF ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_UNREF ;;;; ================================================================================ :dialog-title "Create UNREF Thread Feature" :after-initialization '(Compile_Thread_Sizes 6) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ( 0 ) :after-input (progn (sd_compile_thread_tpi 1 ThdSize) (setq ThdTPI (first *Thd_Info_List_TPI*)) ) ) (ThdTPI :title "Thread TPI" :value-type :display-only :initial-value "" ) (ThdClass :title "Thread Class" :range (2 3) :initial-value 2) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (sd_compile_bolt_threads 6 ThdSize ThdTPI ThdType ThdClass ThdHand) ;;Now Generate the thread feature (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :UNREF ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :UNREF ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_UNF ;;;; ================================================================================ :dialog-title "Create UNF Thread Feature" :after-initialization '(Compile_Thread_Sizes 2) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ( 0 ) :initial-value "" :after-input (progn (sd_compile_thread_tpi 2 ThdSize) (setq ThdTPI (first *Thd_Info_List_TPI*)) (sd_compile_thread_class 2 ThdSize ThdTPI) (sd-set-range 'ThdClass *Thd_Info_List_Class*) (setq ThdClass (first *Thd_Info_List_Class*)) ) ) (ThdTPI :title "Thread TPI" :value-type :display-only :initial-value "" ) (ThdClass :title "Thread Class" :range (2 3) :initial-value 2) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (sd_compile_bolt_threads 2 ThdSize ThdTPI ThdType ThdClass ThdHand) ;;Now Generate the thread feature (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :UNF ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :UNF ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_UNRF ;;;; ================================================================================ :dialog-title "Create UNRF Thread Feature" :after-initialization '(Compile_Thread_Sizes 7) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ( 0 ) :initial-value "" :after-input (progn (sd_compile_thread_tpi 2 ThdSize) (setq ThdTPI (first *Thd_Info_List_TPI*)) (sd_compile_thread_class 2 ThdSize ThdTPI) (sd-set-range 'ThdClass *Thd_Info_List_Class*) (setq ThdClass (first *Thd_Info_List_Class*)) ) ) (ThdTPI :title "Thread TPI" :value-type :display-only :initial-value "" ) (ThdClass :title "Thread Class" :range (1 2 3) :initial-value 2) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (sd_compile_bolt_threads 7 ThdSize ThdTPI ThdType ThdClass ThdHand) ;;Now Generate the thread feature (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :UNRF ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :UNRF ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_UN ;;;; ================================================================================ :dialog-title "Create UN Thread Feature" :after-initialization '(Compile_Thread_Sizes 3) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ( 0 ) :initial-value "" :after-input (progn (sd_compile_thread_tpi 3 ThdSize) (sd-set-range 'ThdTPI *Thd_Info_List_TPI*) ) ) (ThdTPI :title "Thread TPI" :range ((0 :label "Need Size")) :initial-value "" ) (ThdClass :title "Thread Class" :range (2 3) ) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (sd_compile_bolt_threads 3 ThdSize ThdTPI ThdType ThdClass ThdHand) ;;Now Generate the thread feature (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :UN ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :UN ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_UNR ;;;; ================================================================================ :dialog-title "Create UNR Thread Feature" :after-initialization '(Compile_Thread_Sizes 8) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ( 0 ) :initial-value "" :after-input (progn (sd_compile_thread_tpi 3 ThdSize) (sd-set-range 'ThdTPI *Thd_Info_List_TPI*) ) ) (ThdTPI :title "Thread TPI" :range ((0 :label "Need Size")) :initial-value "" ) (ThdClass :title "Thread Class" :range (2 3) ) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (sd_compile_bolt_threads 8 ThdSize ThdTPI ThdType ThdClass ThdHand) ;;Now Generate the thread feature (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :UNR ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :UNR ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_UNC ;;;; ================================================================================ :dialog-title "Create UNC Thread Feature" :after-initialization '(Compile_Thread_Sizes 4) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ( 0 ) :initial-value "" :after-input (progn (sd_compile_thread_tpi 4 ThdSize) (setq ThdTPI (first *Thd_Info_List_TPI*)) (sd_compile_thread_class 4 ThdSize ThdTPI) (sd-set-range 'ThdClass *Thd_Info_List_Class*) (setq ThdClass (first *Thd_Info_List_Class*)) ) ) (ThdTPI :title "Thread TPI" :value-type :display-only :initial-value "" ) (ThdClass :title "Thread Class" :range (2 3) ) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand ) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (sd_compile_bolt_threads 4 ThdSize ThdTPI ThdType ThdClass ThdHand) ;;Now Generate the thread feature (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :UNC ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :UNC ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_UNRC ;;;; ================================================================================ :dialog-title "Create UNRC Thread Feature" :after-initialization '(Compile_Thread_Sizes 9) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ( 0 ) :initial-value "" :after-input (progn (sd_compile_thread_tpi 4 ThdSize) (setq ThdTPI (first *Thd_Info_List_TPI*)) (sd_compile_thread_class 4 ThdSize ThdTPI) (sd-set-range 'ThdClass *Thd_Info_List_Class*) (setq ThdClass (first *Thd_Info_List_Class*)) ) ) (ThdTPI :title "Thread TPI" :value-type :display-only :initial-value "" ) (ThdClass :title "Thread Class" :range (2 3) ) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (print "Gathering Thread Information") (sd_compile_bolt_threads 9 ThdSize ThdTPI ThdType ThdClass ThdHand) ;;Now Generate the thread feature (print "Creating the Thread Profile") (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :UNRC ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :UNRC ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_UNS ;;;; ================================================================================ :dialog-title "Create UNS Thread Feature" :after-initialization '(Compile_Thread_Sizes 5) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ( 0 ) :initial-value "" :after-input (progn (sd_compile_thread_tpi 5 ThdSize) (sd-set-range 'ThdTPI *Thd_Info_List_TPI*) ) ) (ThdTPI :title "Thread TPI" :range ((0 :label "Need Size")) :initial-value "" :after-input (progn (sd_compile_thread_class 5 ThdSize ThdTPI)(sd-set-range 'ThdClass *Thd_Info_List_Class*)) ) (ThdClass :title "Thread Class" :range ((0 :label "Need TPI")) :initial-value "" ) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (sd_compile_bolt_threads 5 ThdSize ThdTPI ThdType ThdClass ThdHand) ;;Now Generate the thread feature (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :UNS ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :UNS ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_UNRS ;;;; ================================================================================ :dialog-title "Create UNRS Thread Feature" :after-initialization '(Compile_Thread_Sizes 10) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ( 0 ) :initial-value "" :after-input (progn (sd_compile_thread_tpi 5 ThdSize) (sd-set-range 'ThdTPI *Thd_Info_List_TPI*) ) ) (ThdTPI :title "Thread TPI" :range ((0 :label "Need Size")) :initial-value "" :after-input (progn (sd_compile_thread_class 5 ThdSize ThdTPI)(sd-set-range 'ThdClass *Thd_Info_List_Class*)) ) (ThdClass :title "Thread Class" :range ((0 :label "Need TPI")) :initial-value "" ) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (sd_compile_bolt_threads 10 ThdSize ThdTPI ThdType ThdClass ThdHand) ;;Now Generate the thread feature (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :UNRS ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :UNRS ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;Misc Bolt Threads ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_NPSM ;;;; ================================================================================ :dialog-title "Create NPSM Thread Feature" :after-initialization '(Compile_Thread_Sizes 11) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ( 0 ) :after-input (progn (sd_compile_thread_tpi 11 ThdSize) (setq ThdTPI (first *Thd_Info_List_TPI*)) ) ) (ThdTPI :title "Thread TPI" :value-type :display-only :initial-value "" ) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (sd_compile_bolt_threads 11 ThdSize ThdTPI ThdType 0 ThdHand) ;;Now Generate the thread feature (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :NPSM ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :NPSM ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_NPSL ;;;; ================================================================================ :dialog-title "Create NPSL Thread Feature" :after-initialization '(Compile_Thread_Sizes 12) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attributes") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ( 0 ) :after-input (progn (sd_compile_thread_tpi 12 ThdSize) (setq ThdTPI (first *Thd_Info_List_TPI*)) ) ) (ThdTPI :title "Thread TPI" :value-type :display-only :initial-value "" ) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- *Thd_EMaxDia* *Thd_EMinDia*)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Compile_Thread_Sizes (Profile) ;;Run the compiler (sd_compile_thread_size Profile) ;;Set the size range (sd-set-range 'ThdSize *GetThreadSizes*) );Compile_Thread_Sizes (Generate_Thd () ;;Create the Tread table, shorted by Size -> TPI -> Class (sd_compile_bolt_threads 12 ThdSize ThdTPI ThdType 0 ThdHand) ;;Now Generate the thread feature (cond ((= ThdType 1)(sd_create_imperial_thread *Thd_EMaxDia* *Thd_EMinDia* ThdTPI 1 :NPSM ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) ((= ThdType 2)(sd_create_imperial_thread *Thd_IMaxDia* *Thd_IMinDia* ThdTPI 1 :NPSM ThdHand *Thd_NameStr* SelFace *Thd_NameStr*)) );cond );Generate_Thd );local-func );sd-defdialog ;;Square Threads ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_ACME ;;;; ================================================================================ :dialog-title "ACME Threads v2" :after-initialization '(setq ThdSize nil) ;:web-Address '(https://www.engineersedge.com/hardware/external_acme_thread_13360.htm) ;:web-Address '(https://www.engineersedge.com/hardware/internal_acme_thread_13361.htm) :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attribute") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :value-type :number :proposals '((0.2500 :label "1/4")(0.3125 :label "5/16")(0.3750 :label "3/8")(0.4375 :label "7/16")(0.5000 :label "1/2")(0.6250 :label "5/8") (0.7500 :label "3/4")(0.8750 :label "7/8")(1.0000 :label "1")(1.1250 :label "1-1/8")(1.2500 :label "1-1/4")(1.3750 :label "1-3/8") (1.5000 :label "1-1/2")(1.7500 :label "1-3/4")(2.0000 :label "2")(2.2500 :label "2-1/4")(2.5000 :label "2-1/2")(2.7500 :label "2-3/4") (3.0000 :label "3")(3.5000 :label "3-1/2")(4.0000 :label "4")(4.5000 :label "4-1/2")(5.0000 :label "5") ) :after-input (cond ((= ThdSize 0.2500)(setq ThdTPI 16)) ((= ThdSize 1.0000)(setq ThdTPI 5)) ((= ThdSize 2.5000)(setq ThdTPI 3)) ((= ThdSize 0.3125)(setq ThdTPI 14)) ((= ThdSize 1.1250)(setq ThdTPI 5)) ((= ThdSize 2.7500)(setq ThdTPI 3)) ((= ThdSize 0.3750)(setq ThdTPI 12)) ((= ThdSize 1.2500)(setq ThdTPI 5)) ((= ThdSize 3.0000)(setq ThdTPI 2)) ((= ThdSize 0.4375)(setq ThdTPI 12)) ((= ThdSize 1.3750)(setq ThdTPI 4)) ((= ThdSize 3.5000)(setq ThdTPI 2)) ((= ThdSize 0.5000)(setq ThdTPI 10)) ((= ThdSize 1.5000)(setq ThdTPI 4)) ((= ThdSize 4.0000)(setq ThdTPI 2)) ((= ThdSize 0.6250)(setq ThdTPI 8)) ((= ThdSize 1.7500)(setq ThdTPI 4)) ((= ThdSize 4.5000)(setq ThdTPI 2)) ((= ThdSize 0.7500)(setq ThdTPI 6)) ((= ThdSize 2.0000)(setq ThdTPI 4)) ((= ThdSize 5.0000)(setq ThdTPI 2)) ((= ThdSize 0.8750)(setq ThdTPI 6)) ((= ThdSize 2.2500)(setq ThdTPI 3)) (t (setq ThdTPI nil))) );ThdSize (ThdTPI :title "Thread TPI" :value-type :number) (ThdClass :title "Thread Class" :range ((2 :label "2G")(3 :label "3G")(4 :label "4G"));(5 :label "5G")) :initial-value 2) (ThdStart :title "Thread Starts" :range (1 2 3 4) :initial-value 2) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) (ChkBox0 :title "Show Thread calculations?" :value-type :boolean :initial-value nil :toggle-type :wide-toggle) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- EMaxDia EMinDia)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisiblehuh (ThdName :toggle-type :invisible :value-type :string) );variables :local-functions '( (Generate_Thd () ;;Set the variables for the calculations (setf ;;Here are the rest of the variables from page 1796 of the machinist handbook v26 D ThdSize ;;Nominal Size P (/ 1 ThdTPI) ;;Pitch E (- D (* 0.5 P)) ;;Basic Pitch Dia. K (- D P) ;;Basic Minor Dia. N ThdTPI ;;Threads per Inch ;;The Pitch Diameter table can be found on page 1800 of the machinist handbook v26 Alw (cond ((= ThdClass 2)(sd-read-from-string (sd-write-to-string (* 0.008 (sqrt D)) 4)) ) ((= ThdClass 3)(sd-read-from-string (sd-write-to-string (* 0.006 (sqrt D)) 4)) ) ((= ThdClass 4)(sd-read-from-string (sd-write-to-string (* 0.004 (sqrt D)) 4)) ) );cond ;;The Tolerances can be found on page 1810 of the machinist handbook v26 Tol (cond ((= ThdClass 2)(sd-read-from-string (sd-write-to-string (* 0.0035 (sqrt D)) 4)) ) ((= ThdClass 3)(cond ((= ThdType 1)(sd-read-from-string (sd-write-to-string (* 0.0015 (sqrt D)) 4)) ) ((= ThdType 2)(sd-read-from-string (sd-write-to-string (* 0.0035 (sqrt D)) 4)) ) )) ((= ThdClass 4)(cond ((= ThdType 1)(sd-read-from-string (sd-write-to-string (* 0.0010 (sqrt D)) 4)) ) ((= ThdType 2)(sd-read-from-string (sd-write-to-string (* 0.0020 (sqrt D)) 4)) ) )) );cond ;;Pitch Diameter Tolerance can be found on page 1809 of the machinist handbook v26 ;;Diameter Increment DiaInc (cond ((= ThdClass 2)(sd-read-from-string (sd-write-to-string (* 0.0060 (sqrt D)) 4)) ) ((= ThdClass 3)(sd-read-from-string (sd-write-to-string (* 0.0028 (sqrt D)) 4)) ) ((= ThdClass 4)(sd-read-from-string (sd-write-to-string (* 0.0020 (sqrt D)) 4)) ) );cond ;;Pitch Increment PitInc (cond ((= ThdClass 2)(sd-read-from-string (sd-write-to-string (* 0.030 (sqrt (/ 1 N))) 4)) ) ((= ThdClass 3)(sd-read-from-string (sd-write-to-string (* 0.014 (sqrt (/ 1 N))) 4)) ) ((= ThdClass 4)(sd-read-from-string (sd-write-to-string (* 0.010 (sqrt (/ 1 N))) 4)) ) );cond ;;Pitch Diameter Tolerance PDT (+ DiaInc PitInc) ;;Set the external dimensions Page 1796 EMaxDia1 D EMaxDia2 (- D (* 0.05 P)) EPitch1 (- E Alw) EPitch2 (- EPitch1 PDT) EMinDia1 (cond ((< ThdTPI 9.9)(- K 0.020)) ((> ThdTPI 10)(- K 0.010)) ) EMinDia2 (- EMinDia1 (* 1.5 PDT)) ;;Set the Internal dimensions Page 1796 IMaxDia1 (cond ((< ThdTPI 9.9)(+ D 0.020)) ((> ThdTPI 10)(+ K 0.010)) ) IMaxDia2 (cond ((< ThdTPI 9.9)(+ IMaxDia1 0.020)) ((> ThdTPI 10)(+ IMaxDia1 0.010)) ) IPitch1 E IPitch2 (+ IPitch1 PDT) IMinDia1 K IMinDia2 (+ IMinDia1 (* 0.05 P)) ;;Setup the variables, because that's always fun EMaxDia (*(+ (sd-read-from-string (sd-write-to-string EMaxDia1 3)) (sd-read-from-string (sd-write-to-string EMaxDia2 3)) ) 0.5) EPitDia (*(+ (sd-read-from-string (sd-write-to-string EPitch1 3)) (sd-read-from-string (sd-write-to-string EPitch2 3)) ) 0.5) EMinDia (*(+ (sd-read-from-string (sd-write-to-string EMinDia1 3)) (sd-read-from-string (sd-write-to-string EMinDia2 3)) ) 0.5) IMaxDia (*(+ (sd-read-from-string (sd-write-to-string IMaxDia1 3)) (sd-read-from-string (sd-write-to-string IMaxDia2 3)) ) 0.5) IPitDia (*(+ (sd-read-from-string (sd-write-to-string IPitch1 3)) (sd-read-from-string (sd-write-to-string IPitch2 3)) ) 0.5) IMinDia (*(+ (sd-read-from-string (sd-write-to-string IMinDia1 3)) (sd-read-from-string (sd-write-to-string IMinDia2 3)) ) 0.5) ThdName (format nil "~A-~A-ACME-~AG" ThdSize ThdStart ThdClass) );setf ;;Print or Display all the variables (when ChkBox0 (display (format nil "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")) (display (format nil "%%%%%%%%% Thread Information %%%%%%%%%")) (display (format nil "%% Please Note, rounding may be off %%")) (display (format nil "%%%%% b/c it rounds up on 0.0005 %%%%%")) (display (format nil "%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")) (display (format nil "Threads/Inch (n) - ~A~%Thread Size - ~A~%Thread Class - ~AG" (sd-write-to-string ThdTPI 3) (sd-write-to-string ThdSize 3) (sd-write-to-string Thdclass 3) )) (display (format nil "~%Pitch(P) - ~A~%Basic Pitch Diameter(E) - ~A~%Basic Minor Dia(K) - ~A" (sd-write-to-string P 3) (sd-write-to-string E 3) (sd-write-to-string K 3) )) (display (format nil "~%Allowance - ~A~%Pitch Dia Tol = (~A + ~A) = ~A" (sd-write-to-string Alw 3) (sd-write-to-string DiaInc 3) (sd-write-to-string PitInc 3) (sd-write-to-string PDT 3) )) (if (= ThdType 1)(progn (display (format nil "~%+++++ EXTERNAL THREAD MEASUREMENTS +++++")) (display (format nil "MajDiaMax = ~A~%MajDiaMin = ~A~%MajDiaNon = ~A~%~%PitchMax = ~A~%PitchMin = ~A~%PitchNon = ~A~%~%MinDiaMax = ~A~%MinDiaMin = ~A~%MinDiaNom = ~A" (sd-write-to-string EMaxDia1 3)(sd-write-to-string EMaxDia2 3)(sd-write-to-string EMaxDia 4) (sd-write-to-string EPitch1 3)(sd-write-to-string EPitch2 3)(sd-write-to-string EPitDia 4) (sd-write-to-string EMinDia1 3)(sd-write-to-string EMinDia2 3)(sd-write-to-string EMinDia 4) )) )) (if (= ThdType 2)(progn (display (format nil "~%+++++ INTERNAL THREAD MEASUREMENTS +++++")) (display (format nil "MajDiaMax = ~A~%MajDiaMin = ~A~%MajDiaNon = ~A~%~%PitchMax = ~A~%PitchMin = ~A~%PitchNon = ~A~%~%MinDiaMax = ~A~%MinDiaMin = ~A~%MinDiaNom = ~A" (sd-write-to-string IMaxDia1 3)(sd-write-to-string IMaxDia2 3)(sd-write-to-string IMaxDia 4) (sd-write-to-string IPitch1 3)(sd-write-to-string IPitch2 3)(sd-write-to-string IPitDia 4) (sd-write-to-string IMinDia1 3)(sd-write-to-string IMinDia2 3)(sd-write-to-string IMinDia 4) )) )) );if ;;Create the Thread Flag string (setf ThreadFlagString (cond;;Create the String first ((= ThdType 1)(cond;;External ((equal ThdHand :RIGHT-HAND)(format nil "~A~A-~A ACME-~AG THREAD~% MAJOR DIA. ~A/~A~% PITCH DIA. ~A/~A~% MINOR DIA. ~A/~A" (sd-num-to-string ThdSize 3) (code-char 34) (sd-num-to-string ThdTPI) ThdClass (sd-num-to-string ThdSize 3) (sd-num-to-string EMaxDia2 3) (sd-num-to-string EPitch1 3) (sd-num-to-string EPitch2 3) (sd-num-to-string EMinDia1 3) (sd-num-to-string EMinDia2 3))) ((equal ThdHand :LEFT-HAND) (format nil "~A~A-~A ACME-~AG THREAD~% LEFTHAND~% MAJOR DIA. ~A/~A~% PITCH DIA. ~A/~A~% MINOR DIA. ~A/~A" (sd-num-to-string ThdSize 3) (code-char 34) (sd-num-to-string ThdTPI) ThdClass (sd-num-to-string ThdSize 3) (sd-num-to-string EMaxDia2 3) (sd-num-to-string EPitch1 3) (sd-num-to-string EPitch2 3) (sd-num-to-string EMinDia1 3) (sd-num-to-string EMinDia2 3))) ));cond ((= ThdType 2)(cond;;Internal ((equal ThdHand :RIGHT-HAND)(format nil "~A~A-~A ACME-~AG THREAD~% MAJOR DIA. ~A/~A~% PITCH DIA. ~A/~A~% MINOR DIA. ~A/~A" (sd-num-to-string ThdSize 3) (code-char 34) (sd-num-to-string ThdTPI) ThdClass (sd-num-to-string IMaxDia1 3) (sd-num-to-string IMaxDia2 3) (sd-num-to-string IPitch1 3) (sd-num-to-string IPitch2 3) (sd-num-to-string IMinDia1 3) (sd-num-to-string IMinDia2 3))) ((equal ThdHand :LEFT-HAND) (format nil "~A~A-~A ACME-~AG THREAD~% LEFTHAND~% MAJOR DIA. ~A/~A~% PITCH DIA. ~A/~A~% MINOR DIA. ~A/~A" (sd-num-to-string ThdSize 3) (code-char 34) (sd-num-to-string ThdTPI) ThdClass (sd-num-to-string IMaxDia1 3) (sd-num-to-string IMaxDia2 3) (sd-num-to-string IPitch1 3) (sd-num-to-string IPitch2 3) (sd-num-to-string IMinDia1 3) (sd-num-to-string IMinDia2 3))) ));cond ));cond-setf ;;Genereate the thread profile, based on ThdType (cond ((= ThdType 1)(sd_create_imperial_thread EMaxDia EMinDia ThdTPI 2 :ACME ThdHand ThdName SelFace ThreadFlagString)) ((= ThdType 2)(sd_create_imperial_thread IMinDia IMaxDia ThdTPI 2 :ACME ThdHand ThdName SelFace ThreadFlagString)) );cond );Generate_Thd );local-func );sd-defdialog ;;;; ================================================================================ (sd-defdialog 'sd_machine_threads_STUB_ACME ;;;; ================================================================================ :dialog-title "STUB ACME Threads" :after-initialization '(setq ThdSize nil) ;:web-Address '(https://www.engineersedge.com/hardware/acme-stub-thread.htm) ;:MachHdBook page 1813 :variables '( ("Select Face") (SelFace :title "Select Face" :selection *sd-cylinder-seltype* :prompt-text "Select the surface to be threaded.") ("Thread Attribute") (ThdType :title "Thread Type" :range ((1 :label "External")(2 :label "Internal")) :initial-value 1 :after-input (cond ((= ThdType 1)(sd-set-variable-status 'SelEdge :enable t)) ((= ThdType 2)(sd-set-variable-status 'SelEdge :enable nil)) )) (ThdSize :title "Thread Size" :range ((0.2500 :label "1/4") (0.3125 :label "5/16") (0.3750 :label "3/8") (0.4375 :label "7/16") (0.5000 :label "1/2") (0.6250 :label "5/8") (0.7500 :label "3/4") (0.8750 :label "7/8") (1.0000 :label "1") (1.1250 :label "1-1/8") (1.2500 :label "1-1/4") (1.3750 :label "1-3/8") (1.5000 :label "1-1/2") (1.7500 :label "1-3/4") (2.0000 :label "2") (2.2500 :label "2-1/4") (2.5000 :label "2-1/2") (2.7500 :label "2-3/4") (3.0000 :label "3") (3.5000 :label "3-1/2") (4.0000 :label "4") (4.5000 :label "4-1/2") (5.0000 :label "5") ) :after-input (cond ((= ThdSize 0.2500)(setq ThdTPI 16)) ((= ThdSize 1.0000)(setq ThdTPI 5)) ((= ThdSize 2.5000)(setq ThdTPI 3)) ((= ThdSize 0.3125)(setq ThdTPI 14)) ((= ThdSize 1.1250)(setq ThdTPI 5)) ((= ThdSize 2.7500)(setq ThdTPI 3)) ((= ThdSize 0.3750)(setq ThdTPI 12)) ((= ThdSize 1.2500)(setq ThdTPI 5)) ((= ThdSize 3.0000)(setq ThdTPI 2)) ((= ThdSize 0.4375)(setq ThdTPI 12)) ((= ThdSize 1.3750)(setq ThdTPI 4)) ((= ThdSize 3.5000)(setq ThdTPI 2)) ((= ThdSize 0.5000)(setq ThdTPI 10)) ((= ThdSize 1.5000)(setq ThdTPI 4)) ((= ThdSize 4.0000)(setq ThdTPI 2)) ((= ThdSize 0.6250)(setq ThdTPI 8)) ((= ThdSize 1.7500)(setq ThdTPI 4)) ((= ThdSize 4.5000)(setq ThdTPI 2)) ((= ThdSize 0.7500)(setq ThdTPI 6)) ((= ThdSize 2.0000)(setq ThdTPI 4)) ((= ThdSize 5.0000)(setq ThdTPI 2)) ((= ThdSize 0.8750)(setq ThdTPI 6)) ((= ThdSize 2.2500)(setq ThdTPI 3)) ) );ThdSize (ThdTPI :title "Thread TPI" :value-type :display-only) (ThdHand :title "Thread Hand" :range ((:right-hand :label "Right Hand") (:left-hand :label "Left Hand")) :initial-value :right-hand) (GenThd :title "Generate Thread" :toggle-type :wide-toggle :push-action (Generate_Thd) :next-variable 'SelFace) ("External Thread Chamfering") (SelEdge :title "Select Edges" :value-type :edge :after-input (progn (sd-call-cmds (chamfer SelEdge :distance (* 25.4 (*(/(- EMaxDia EMinDia)2)1.1625)) )) (sd-put-buffer ":SelEdge") ) ) ;;Invisible (ThdName :toggle-type :invisible :value-type :string) (EMaxDia :value-type :number :toggle-type :invisible) (EMinDia :value-type :number :toggle-type :invisible) );variables :local-functions '( (Generate_Thd () ;;Set the thread variable per size (cond ((= ThdSize 0.2500)(setf EMaxDia2 0.2469 EMinDia1 0.2024 EMinDia2 0.1919 IMaxDia1 0.2600 IMaxDia2 0.2705 IMinDia1 0.2125 IMinDia2 0.2156 ));0.2500 ((= ThdSize 0.3125)(setf EMaxDia2 0.3089 EMinDia1 0.2597 EMinDia2 0.2483 IMaxDia1 0.3225 IMaxDia2 0.3339 IMinDia1 0.2696 IMinDia2 0.2732 ));0.3125 ((= ThdSize 0.3750)(setf EMaxDia2 0.3708 EMinDia1 0.3150 EMinDia2 0.3027 IMaxDia1 0.3850 IMaxDia2 0.3973 IMinDia1 0.3250 IMinDia2 0.3292 ));0.3750 ((= ThdSize 0.4375)(setf EMaxDia2 0.4333 EMinDia1 0.3775 EMinDia2 0.3649 IMaxDia1 0.4475 IMaxDia2 0.4601 IMinDia1 0.3875 IMinDia2 0.3917 ));0.4375 ((= ThdSize 0.5000)(setf EMaxDia2 0.4950 EMinDia1 0.4200 EMinDia2 0.4063 IMaxDia1 0.5200 IMaxDia2 0.5337 IMinDia1 0.4400 IMinDia2 0.4450 ));0.5000 ((= ThdSize 0.6250)(setf EMaxDia2 0.6188 EMinDia1 0.5300 EMinDia2 0.5146 IMaxDia1 0.6450 IMaxDia2 0.6604 IMinDia1 0.5500 IMinDia2 0.5562 ));0.6250 ((= ThdSize 0.7500)(setf EMaxDia2 0.7417 EMinDia1 0.6300 EMinDia2 0.6126 IMaxDia1 0.7700 IMaxDia2 0.7874 IMinDia1 0.6500 IMinDia2 0.6583 ));0.7500 ((= ThdSize 0.8750)(setf EMaxDia2 0.8667 EMinDia1 0.7550 EMinDia2 0.7371 IMaxDia1 0.8950 IMaxDia2 0.9129 IMinDia1 0.7750 IMinDia2 0.7833 ));0.8750 ((= ThdSize 1.0000)(setf EMaxDia2 0.9900 EMinDia1 0.8600 EMinDia2 0.8406 IMaxDia1 1.0200 IMaxDia2 1.0394 IMinDia1 0.8800 IMinDia2 0.8900 ));1.0000 ((= ThdSize 1.1250)(setf EMaxDia2 1.1150 EMinDia1 0.9850 EMinDia2 0.9652 IMaxDia1 1.1450 IMaxDia2 1.1648 IMinDia1 1.0050 IMinDia2 1.0150 ));1.1250 ((= ThdSize 1.2500)(setf EMaxDia2 1.2400 EMinDia1 1.1100 EMinDia2 1.0900 IMaxDia1 1.2700 IMaxDia2 1.2901 IMinDia1 1.1300 IMinDia2 1.1400 ));1.2500 ((= ThdSize 1.3750)(setf EMaxDia2 1.3625 EMinDia1 1.2050 EMinDia2 1.1830 IMaxDia1 1.3950 IMaxDia2 1.4170 IMinDia1 1.2250 IMinDia2 1.2375 ));1.3750 ((= ThdSize 1.5000)(setf EMaxDia2 1.4875 EMinDia1 1.3300 EMinDia2 1.3077 IMaxDia1 1.5200 IMaxDia2 1.5423 IMinDia1 1.3500 IMinDia2 1.3625 ));1.5000 ((= ThdSize 1.7500)(setf EMaxDia2 1.7375 EMinDia1 1.5800 EMinDia2 1.5571 IMaxDia1 1.7700 IMaxDia2 1.7929 IMinDia1 1.6000 IMinDia2 1.6125 ));1.7500 ((= ThdSize 2.0000)(setf EMaxDia2 1.9875 EMinDia1 1.8300 EMinDia2 1.8065 IMaxDia1 2.0200 IMaxDia2 2.0435 IMinDia1 1.8500 IMinDia2 1.8625 ));2.0000 ((= ThdSize 2.2500)(setf EMaxDia2 2.2333 EMinDia1 2.0300 EMinDia2 2.0037 IMaxDia1 2.2700 IMaxDia2 2.2963 IMinDia1 2.0500 IMinDia2 2.0667 ));2.2500 ((= ThdSize 2.5000)(setf EMaxDia2 2.4833 EMinDia1 2.2800 EMinDia2 2.2532 IMaxDia1 2.5200 IMaxDia2 2.5468 IMinDia1 2.3000 IMinDia2 2.3167 ));2.5000 ((= ThdSize 2.7500)(setf EMaxDia2 2.7333 EMinDia1 2.5300 EMinDia2 2.5027 IMaxDia1 2.7700 IMaxDia2 2.7973 IMinDia1 2.5500 IMinDia2 2.5667 ));2.7500 ((= ThdSize 3.0000)(setf EMaxDia2 2.9750 EMinDia1 2.6800 EMinDia2 2.6484 IMaxDia1 3.0200 IMaxDia2 3.0516 IMinDia1 2.7000 IMinDia2 2.7250 ));3.0000 ((= ThdSize 3.5000)(setf EMaxDia2 3.4750 EMinDia1 3.1800 EMinDia2 3.1476 IMaxDia1 3.5200 IMaxDia2 3.5524 IMinDia1 3.2000 IMinDia2 3.2250 ));3.5000 ((= ThdSize 4.0000)(setf EMaxDia2 3.9750 EMinDia1 3.6800 EMinDia2 3.6468 IMaxDia1 4.0200 IMaxDia2 4.0532 IMinDia1 3.7000 IMinDia2 3.7250 ));4.0000 ((= ThdSize 4.5000)(setf EMaxDia2 4.4750 EMinDia1 4.1800 EMinDia2 4.1461 IMaxDia1 4.5200 IMaxDia2 5.5539 IMinDia1 4.2000 IMinDia2 4.2250 ));4.5000 ((= ThdSize 5.0000)(setf EMaxDia2 4.9750 EMinDia1 4.6800 EMinDia2 4.6454 IMaxDia1 5.0200 IMaxDia2 5.0546 IMinDia1 4.7000 IMinDia2 4.7250 ));5.0000 );cond ;;Setup the variables, because that's always fun (setf ThdName (format nil "~A-~A-STUB ACME" ThdSize ThdTPI) EMaxDia (/(+ ThdSize EMaxDia2)2) EMinDia (/(+ EMinDia1 EMinDia2)2) IMaxDia (/(+ IMaxDia1 IMaxDia2)2) IMinDia (/(+ IMinDia1 IMinDia2)2) EPitch1 (/(+ ThdSize EMinDia1)2) EPitch2 (/(+ EMaxDia2 EMinDia2)2) IPitch1 (/(+ IMaxDia1 IMinDia1)2) IPitch2 (/(+ IMaxDia2 IMinDia2)2) );setf ;;Create the Thread Flag string (setf ThreadFlagString (cond;;Create the String first ((= ThdType 1)(cond;;External ((equal ThdHand :RIGHT-HAND)(format nil "~A-~A STUB ACME THREAD~% MAJOR DIA. ~A/~A~% PITCH DIA. ~A/~A~% MINOR DIA. ~A/~A" (sd-num-to-string ThdSize 4) (sd-num-to-string ThdTPI) (sd-num-to-string ThdSize 4) (sd-num-to-string EMaxDia2 4) (sd-num-to-string EPitch1 4) (sd-num-to-string EPitch2 4) (sd-num-to-string EMinDia1 4) (sd-num-to-string EMinDia2 4))) ((equal ThdHand :LEFT-HAND) (format nil "~A-~A STUB ACME THREAD~% LEFTHAND~% MAJOR DIA. ~A/~A~% PITCH DIA. ~A/~A~% MINOR DIA. ~A/~A" (sd-num-to-string ThdSize 4) (sd-num-to-string ThdTPI) (sd-num-to-string ThdSize 4) (sd-num-to-string EMaxDia2 4) (sd-num-to-string EPitch1 4) (sd-num-to-string EPitch2 4) (sd-num-to-string EMinDia1 4) (sd-num-to-string EMinDia2 4))) ));cond ((= ThdType 2)(cond;;Internal ((equal ThdHand :RIGHT-HAND)(format nil "~A-~A STUB ACME THREAD~% MAJOR DIA. ~A/~A~% PITCH DIA. ~A/~A~% MINOR DIA. ~A/~A" (sd-num-to-string ThdSize 4) (sd-num-to-string ThdTPI) (sd-num-to-string IMaxDia1 4) (sd-num-to-string IMaxDia2 4) (sd-num-to-string IPitch1 4) (sd-num-to-string IPitch2 4) (sd-num-to-string IMinDia1 4) (sd-num-to-string IMinDia2 4))) ((equal ThdHand :LEFT-HAND) (format nil "~A-~A STUB ACME THREAD~% LEFTHAND~% MAJOR DIA. ~A/~A~% PITCH DIA. ~A/~A~% MINOR DIA. ~A/~A" (sd-num-to-string ThdSize 4) (sd-num-to-string ThdTPI) (sd-num-to-string IMaxDia1 4) (sd-num-to-string IMaxDia2 4) (sd-num-to-string IPitch1 4) (sd-num-to-string IPitch2 4) (sd-num-to-string IMinDia1 4) (sd-num-to-string IMinDia2 4))) ));cond ));cond-setf ;;Genereate the thread profile, based on ThdType (cond ((= ThdType 1)(sd_create_imperial_thread EMaxDia EMinDia ThdTPI 2 :SACME ThdHand ThdName SelFace ThreadFlagString)) ((= ThdType 2)(sd_create_imperial_thread IMinDia IMaxDia ThdTPI 2 :SACME ThdHand ThdName SelFace ThreadFlagString)) );cond );Generate_Thd );local-func );sd-defdialog