apn_lib.lsp

来自「plc设计编程软件」· LSP 代码 · 共 28 行

;---slide library define function---;
;------------------------------------------------------------------------------------;
(defun lib_apn(item_nm)
  (cond 
	((= item_nm 1)
	 '("9.0" "10.0" "12.0" "14.0" "16.0" "20.0")
	)
	((= item_nm 2)
	 '(13.0  15.0   17.0   20.0   20.0    25.0)
	)
	((= item_nm 3)
	 '(8.0   8.0    8.0    8.0    8.0     8.0)
	)
	((= item_nm 4)
	 '("3/8\"" "7/16\"" "1/2\"" "5/8\"" "3/4\"")
	)
	((= item_nm 5)
	 '(9.525   11.113   12.7    15.785  19.05)
	)
	((= item_nm 6)
	 '(15.785  17.463   19.05   22.225  25.4)
	)
	((= item_nm 7)
	 '(6.35    6.35     6.35    6.35    6.35)
	)
  )
)
;------------------------------------------------------------------------------------;