明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1415|回复: 3

[基础] 关于表的搜索问题

[复制链接]
发表于 2010-11-11 05:47 | 显示全部楼层 |阅读模式

各位老师:

      最近想做一个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轴承的所有参数做到表中,在绘图时不需要查标准。请老师们指点一二。谢谢

    

发表于 2010-11-11 08:51 | 显示全部楼层
在cad中建议做成如下格式检索比较方便
  1. (setq aa '((a 1 5) (b 2 7) (c 3 8) (d 4 9)))
  2. ;取得a对应值
  3. (assoc 'a aa)  ->(a 1 5)
  4. (cadr (assoc 'a aa)) ->1
  5. (caddr (assoc 'a aa)) ->5
发表于 2010-11-11 08:53 | 显示全部楼层

(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)

 楼主| 发表于 2010-11-11 13:29 | 显示全部楼层
本帖最后由 作者 于 2010-11-11 14:13:11 编辑

谢谢2楼老师,问题已解决,起始显示程序错误,经检查是getreal(输入实数)getstring(输入字符串)这两个等待输入函数的区别,最终调试成功,比我原先用条件循环判断程式要简单的多,原先的程式复杂。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-6-15 09:58 , Processed in 0.358205 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表