q3_2006 发表于 2013-12-25 14:40:06

xyp1964 发表于 2013-12-25 13:29 static/image/common/back.gif


谢谢院长....什么脑子...BEN4....

q3_2006 发表于 2013-12-25 15:05:30

(mapcar '(lambda (x) (car (vl-remove-if-not '(lambda (y) (isPtinPM x y)) lst2))) lst1)

newbuser 发表于 2013-12-25 16:48:27

q3_2006 发表于 2013-12-25 15:05 static/image/common/back.gif


太感谢了大师。您的代码让我从中领悟到很多东西哦。

newbuser 发表于 2013-12-25 16:51:44

xyp1964 发表于 2013-12-25 13:34 static/image/common/back.gif


感谢院长的力作。终于看到您老的代码里没有自己的函数了。嘎嘎

xiabin68 发表于 2013-12-25 21:41:26

高深的代码，，，，，，

yxh1202 发表于 2014-10-30 16:16:44

newbuser 发表于 2013-12-25 16:51 static/image/common/back.gif
感谢院长的力作。终于看到您老的代码里没有自己的函数了。嘎嘎

请问下测试结果是啥。完整的代码公布下，共同学习下嘛

newbuser 发表于 2014-10-31 18:10:48

yxh1202 发表于 2014-10-30 16:16 static/image/common/back.gif
请问下测试结果是啥。完整的代码公布下，共同学习下嘛

你看"xyp1964"的回帖，用(mapcar '(lambda (x) (car (vl-remove-if '(lambda (y) (not (isPtinPM x y))) lst2))) lst1) 这段代码替换原帖里相关的等值部分就行了。
页: 1 [2]
查看完整版本: 两个关联表根据指定函数排序