几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   如何实现数据取出 (http://www.dimcax.com/hust/showthread.php?t=11851)

yang686526 2009-04-26 07:14 PM

如何实现数据取出
 
如何实现数据取出
www.dimcax.com
如何实现数据取出
我有直径d=5,长度l=20 30 40 50 的重量对应为1 2 3 4
直径d=8,长度l=20 30 40 50 60的重量对应为 2 3 4 5 6
直径d=10,长度l=20 30 40 50 60 65的重量对应为 5 6 7 8 9 10
.。。。。。。请教如何根据直径d和长度l取出对应的重量。
d
(setq a'( (5 (20 1)(30 2)(40 3)(50 4) )(8 (20 2)(30 3)(40 4)(50 5)(60 6) )(8 (20 5)(30 6)(40 7)(50 8)(60 9) ) ))
(setq d(getint"d:")l(getint"l:"))
(cadr(accos l(cdr(accos d a))))
d


所有的时间均为北京时间。 现在的时间是 05:59 AM.