正如我前面提到的,你最好列一个清单
类似
- (defun SHS-CF-EN-list ()
- (setq SHS-CF-EN
- (list
- '("20x2x4" 20.00 2.00 4.00 2.00 1.05 1.34 0.69 0.72 0.69 0.88 1.21 1.06 0.073)
- '("20x2.5x5" 20.00 2.50 5.00 2.50 1.25 1.59 0.77 0.69 0.77 1.00 1.39 1.19 0.071)
- '("25x2x4" 25.00 2.00 4.00 2.00 1.36 1.74 1.48 0.92 1.19 1.47 2.53 1.80 0.093)
- '("25x2.5x5" 25.00 2.50 5.00 2.50 1.64 2.09 1.69 0.90 1.35 1.71 2.97 2.07 0.091)
- '("25x3x6" 25.00 3.00 6.00 3.00 1.89 2.41 1.84 0.87 1.47 1.91 3.33 2.27 0.090)
- '("30x2x4" 30.00 2.00 4.00 2.00 1.68 2.14 2.72 1.13 1.81 2.21 4.54 2.75 0.113)
- '("30x2.5x5" 30.00 2.50 5.00 2.50 2.03 2.59 3.16 1.10 2.10 2.61 5.40 3.20 0.111)
- '("30x3x6" 30.00 3.00 6.00 3.00 2.36 3.01 3.50 1.08 2.34 2.96 6.15 3.58 0.110)
- '("40x2x4" 40.00 2.00 4.00 2.00 2.31 2.94 6.94 1.54 3.47 4.13 11.30 5.23 0.153)
- '("40x2.5x5" 40.00 2.50 5.00 2.50 2.82 3.59 8.22 1.51 4.11 4.97 13.60 6.21 0.151)
- ;;......................
- ;;and may more rows
- )
- )
- ;; < ... >
- )
然后提取您想要的项目。。。
(setq项目列表(assoc“30x2.5x5”SHS-CF-EN))
;;-> (“30x2.5x5”30.0 2.5 5.0 2.5 2.03 2.59 3.16 1.1 2.1 2.61 5.4 3.2 0.111) |