关于表的搜索问题

fgq86233246

各位老师：

      最近想做一个lisp文件，碰到了一点问题，详细说明如下：

      （setq  aa'(a b c d e f )

       (setq  bb'(1 2 3 4 5 6)

       (setq  cc '(1 2 3 4 5 6)

     其中表 aa是字符串内容的表，要求输入aa表中的代号时，相应得到bb及cc表中的对应项，就像EXCLE电子表中用VLOOKUP一样输入参数作条件判断得到相应的对应项。该如何来做条件搜索及循环函数

  制作该程序的动机 是想把GB288-94轴承的所有参数做到表中，在绘图时不需要查标准。请老师们指点一二。谢谢

    

xshrimp

在cad中建议做成如下格式检索比较方便

2. (setq aa '((a 1 5) (b 2 7) (c 3 8) (d 4 9)))
3. ;取得a对应值
4. (assoc 'a aa)  ->(a 1 5)
5. (cadr (assoc 'a aa)) ->1
6. (caddr (assoc 'a aa)) ->5

(setq aa '((a 1 5) (b 2 7) (c 3 8) (d 4 9))) ;取得a对应值 (assoc 'a aa)  ->(a 1 5) (cadr (assoc 'a aa)) ->1 (caddr (assoc 'a aa)) ->5

danxingpen

(setq a '("a" "b" "c" "d"))
(setq b '(1 2 3 4 5)
      c '(11 22 33 44 55))

 

 

(setq dd(vl-position "a" a))

(nth dd b）

(nth dd c)

fgq86233246

谢谢2楼老师，问题已解决，起始显示程序错误，经检查是getreal（输入实数）与getstring（输入字符串）这两个等待输入函数的区别，最终调试成功，比我原先用条件循环判断程式要简单的多，原先的程式复杂。