两个关联表根据指定函数排序

q3_2006

xyp1964 发表于 2013-12-25 13:29

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

q3_2006

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

复制代码

newbuser

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

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

newbuser

xyp1964 发表于 2013-12-25 13:34

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

xiabin68

高深的代码，，，，，，

yxh1202

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

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

newbuser

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

你看"xyp1964"的回帖，用(mapcar '(lambda (x) (car (vl-remove-if '(lambda (y) (not (isPtinPM x y))) lst2))) lst1) 这段代码替换原帖里相关的等值部分就行了。