sp_lib.lsp

plc设计编程软件

(defun sp_lib(type_sp item_nam)
  (cond 
    ((= "SPM" type_sp)
     (cond
	((= "spec" item_nam)
	 '("10.0" "12.5" "16"  "20"  "26"  "32"  "40"  "50"  "63")
	)
	((= "od" item_nam)
	 '(10.0   12.5   16    20    26    32    40    50    63)
	)
	((= "id" item_nam)
	 '(5      6.3    8     10   12.5   16    20    25    38)
	)
	((= "r1" item_nam)
	 '(1.7    1.25   1.5   2    2.7    3.25  3.9   5.35  7.6)
	)
	((= "r2" item_nam)
	 '(2      2.4    3.2   4    5.4    6.9   8.1   11.15 11.5)
	)
	((= "spl" item_nam)
	 '(("25"   "32"   "38"   "44"   "51"   "64"   "76"   "305")
	   ("25"   "32"   "38"   "44"   "51"   "64"   "76"   "89"   "305")
	   ("25"   "32"   "38"   "44"   "51"   "64"   "76"   "89"   "102"  "305")
	   ("25"   "32"   "38"   "44"   "51"   "64"   "76"   "89"   "102"  "115"  "127"  "152"  "305")
	   ("25"   "32"   "38"   "44"   "51"   "64"   "76"   "89"   "102"  "115"  "127"  "139"  "152"
            "178"  "203"  "305")
	   ("38"   "44"   "51"   "64"   "76"   "89"   "102"  "115"  "127"  "139"  "152"  "178"  "203"  
            "254"  "305")
	   ("51"   "64"   "76"   "89"   "102"  "115"  "127"  "152"  "178"  "203"  "254"  "305")
	   ("64"   "76"   "89"   "102"  "115"  "127"  "152"  "178"  "203"  "254"  "305")
	   ("76"   "89"   "102"  "115"  "127"  "152"  "178"  "203"  "254"  "305")
	  )
	)
     )
    )
    ((= "SPB" type_sp)
      (cond
	((= "spec" item_nam)
	 '("3/8\""    "1/2\""    "5/8\""    "3/4\""    "1\""     "1-1/4\"" "1-1/2\"" "2\""     "2-1/2\"")
	)
	((= "od" item_nam)
	 '(0.375      0.500      0.625      0.750      1.000     1.250     1.500     2.000     2.500)
	)
	((= "id" item_nam)
	 '(0.1875     0.28125    0.34375    0.375      0.500     0.625     0.750     1.000     1.500)
	)
	((= "r1" item_nam)
	 '(1.7    1.25   1.5   2    2.7    3.25  3.9   5.35  7.6)
	)
	((= "r2" item_nam)
	 '(2      2.4    3.2   4    5.4    6.9   8.1   11.15 11.5)
	)
	((= "spl" item_nam)
	 '(("1\"(扁)"     "1-1/4\"(扁)" "1-1/2\"(扁)" "1-3/4\"(扁)" "2\"(扁)"   "2-1/4\"(扁)"   "2-1/2\"(扁)"   "2-3/4\"(扁)"  "3\"(扁)"   "3-1/4\"(扁)"   "3-1/2\"(扁)" "12\"(扁)")
	   ("1\"(扁)"     "1-1/4\"(扁)" "1-1/2\"(扁)" "1-3/4\"(扁)" "2\"(扁)"   "2-1/4\"(扁)"  "2-1/2\"(扁)"  "2-3/4\"(扁)"  "3\"(扁)"    "3-1/4\"(扁)"  "3-1/2\"(扁)" "12\"(扁)")
	   ("1\"(扁)"     "1-1/4\"(扁)" "1-1/2\"(扁)" "1-3/4\"(扁)" "2\"(扁)"   "2-1/4\"(扁)"  "2-1/2\"(扁)"  "2-3/4\"(扁)"  "3\"(扁)"    "3-1/4\"(扁)"  "3-1/2\"(扁)" "4\"(扁)"     
            "12\"(扁)")
	   ("1\"(扁)"     "1-1/4\"(扁)" "1-1/2\"(扁)" "1-3/4\"(扁)" "2\"(扁)"     "2-1/2\"(扁)" "3\"(扁)"     "3-1/2\"(扁)" "4\"(扁)"     
            "4-1/2\"(扁)" "5\"(扁)"     "6\"(扁)"     "12\"(扁)")
	   ("1\"(扁)"     "1-1/4\"(扁)" "1-1/2\"(扁)" "1-3/4\"(扁)" "2\"(扁)"     "2-1/2\"(扁)" "3\"(扁)"     "3-1/2\"(扁)" "4\"(扁)"     
            "4-1/2\"(扁)" "5\"(扁)"     "5-1/2\"(扁)" "6\"(扁)"   "6-1/2\"(扁)"  "7\"(扁)"  "7-1/2\"(扁)"    "8\"(扁)"     "12\"(扁)")
	   ("1-1/2\"(扁)" "1-3/4\"(扁)" "2\"(扁)"     "2-1/2\"(扁)" "3\"(扁)"     "3-1/2\"(扁)" "4\"(扁)"     "4-1/2\"(扁)" "5\"(扁)"   "5-1/2\"(扁)"  
            "6\"(扁)"   "6-1/2\"(扁)"  "7\"(扁)"   "7-1/2\"(扁)"   "8\"(扁)"     "10\"(扁)"    "12\"(扁)")
	   ("2\"(扁)"     "2-1/2\"(扁)" "3\"(扁)"     "3-1/2\"(扁)" "4\"(扁)"     "4-1/2\"(扁)" "5\"(扁)"   "5-1/2\"(扁)"  "6\"(扁)"  "6-1/2\"(扁)"   "7\"(扁)"   "7-1/2\"(扁)"   
            "8\"(扁)"     "10\"(扁)"    "12\"(扁)")
	   ("2-1/2\"" "3\""     "3-1/2\"" "4\""     "4-1/2\"" "5\""  "5-1/2\""   "6\""     "7\""     "8\""     
            "9\""     "10\""    "12\"")
	   ("3\""     "3-1/2\"" "4\""     "4-1/2\"" "5\""     "6\""     "7\""     "8\""     "10\""    
            "12\"")
	  )
	)
      )
    )
  )
)