epin_lib.lsp

plc设计编程软件

;---Pin library define function---;
;------------------------------------------------------------------------------------;
(defun lib_ep(item_nm)
  (cond 
	((= item_nm 1)
	 '("1.0"  "1.5"  "2.0"  "2.5"  "3.0"  "3.5"  "4.0"  "4.5"  "5.0"  "6.0"  "7.0"  
	   "8.0"  "9.0"  "10.0" "12.0" "14.0" "16.0" "20.0")
	)
	((= item_nm 2)
	 '(6.0    6.0    6.0    6.0    6.0    7.0    7.0    8.0    8.0    10.0   10.0 
	   13.0   13.0   15.0   17.0   20.0   20.0   25.0)
	)
	((= item_nm 3) 
	 '(4.0    4.0    4.0    4.0    4.0    4.0    4.0    5.0    5.0    6.0    6.0 
	   8.0    8.0    8.0    8.0    8.0    8.0    8.0)
	)
	((= item_nm 4)
	 '("3/64\""  "1/16\""  "5/64\""  "3/32\""  "7/64\""  "1/8\""   "9/64\""  "5/32\"" 
	   "11/64\"" "3/16\""  "13/64\"" "7/32\""  "15/64\"" "1/4\""   "17/64\"" "9/32\"" 
	   "5/16\""  "3/8\""   "7/16\""  "1/2\""   "5/8\""   "3/4\"")
	)
	((= item_nm 5)
	 '(1.191     1.588     1.984     2.381     2.788     3.175     3.572     3.969 
	   4.366     4.763     5.159     5.556     5.953     6.35      6.747     7.144 
	   7.938     9.525     11.113    12.7      15.785    19.05)
	)
	((= item_nm 6)
	 '(6.35      6.35      6.35      6.35      6.35      6.35      7.144     7.144 
	   8.731     9.525     9.525     10.319    10.319    11.113    11.113    11.113 
           12.7      15.785    17.463    19.05     22.225    25.4)
	)
	((= item_nm 7)
	 '(3.175     3.175     3.175     3.175     3.175     3.175     3.969     3.969 
	   4.763     4.763     4.763     4.763     4.763     4.763     4.763     4.763 
           6.35      6.35      6.35      6.35      6.35      6.35)
	)
	((= item_nm 8)
	 '("1.0" "1.2" "1.5" "2.0" "2.5")
	)
	((= item_nm 9)
	 '("3/64\"" "1/16\"" "5/64\"" "3/32\"" "7/64\"")
	)
        ((= item_nm 10)
         '("100" "125" "160" "200" "250" "300" "350" "400" "450" "500" "550" "600" "650" "700")
        )
        ((= item_nm 11)
         '("100" "125" "160" "200" "250")
        )
        ((= item_nm 12)
         '("4\"" "6\"" "8\"" "10\"" "12\"" "14\"" "16\"" "18\"" "20\"" "22\"" "24\"" "26\"" "28\"")
        )
        ((= item_nm 13)
         '("4\"" "6\"" "8\"" "10\"")
        )
  )
)
;------------------------------------------------------------------------------------;