有没有现成的函数能求出表中指定元素的个数

changyiran · 发表于 2012-8-19 09:47:05

如题，如果没有的话这个函数该怎么写才是最简单呢，望各位大侠指教！

Andyhon · 发表于 2012-8-19 09:56:27

wowan1314 · 发表于 2012-8-19 11:23:38

Andyhon 发表于 2012-8-19 09:56
可借助 'vl-remove-if-not
Visit:
http://www.cadtutor.net/forum/archive/index.php/t-49634.html

楼上给的没看明白。英语不好哦

好像这样就可以了吧。。。？！
(DEFUN TAMADE (TA LST / N)
(SETQ N 0)
(MAPCAR '(LAMBDA(X)(IF (= TA X)(SETQ N (1+ N)))) LST)
N
)

wowan1314 · 发表于 2012-8-19 11:24:27

楼主测试下吧。我测了两个好像可以

yjr111 · 发表于 2012-8-19 11:33:40

如果不是点表，则：
(-(length lst )(length (vl-remove x lst)))即可

yjr111 · 发表于 2012-8-19 11:39:56

点表若存在容差，可能会不准确，需要容差处理

changyiran · 发表于 2012-8-19 16:50:13

wowan1314 发表于 2012-8-19 11:23 楼上给的没看明白。英语不好哦好像这样就可以了吧。。。？！

这个牛逼啊，我怎么没想到呢，感谢！

changyiran · 发表于 2012-8-19 16:50:49

yjr111 发表于 2012-8-19 11:33 如果不是点表，则： (-(length lst )(length (vl-remove x lst)))即可

这个也很厉害，明经高手就是多！

changyiran · 发表于 2012-8-19 16:51:28

Andyhon 发表于 2012-8-19 09:56 可借助 'vl-remove-if-not Visit: http://www.cadtutor.net/forum/archive/index.php/t-49634.html

这个确实看不太懂，不过同样感谢！

changyiran · 发表于 2012-8-19 17:01:49

wowan1314 发表于 2012-8-19 11:23 楼上给的没看明白。英语不好哦好像这样就可以了吧。。。？！

这个不行吧，好像得用foreach吧

账号		自动登录	找回密码
密码			注册