lisp收索对比查找函数相同的表member判断点重合找出相同

cad里面lsp编程任何判断线重合或者点是否重合，那怎么整呢！先来说说思路吧！想要判断点是否重合，需要使用循环一个表，一个点一个点的去识别，点肯定是xyz坐标值表示，并非是图元。所有提前需要提取图元数据里面点坐标。坐标自己提取，可以使用(entget (car (entsel)))，查看图元里面的组码数据，提取即可。

提取好坐标做成一个表。在使用查找函数一个一个的函数查找即可。

查找函数 (member "需要查找的值" "需要在哪个表里查找")无论是坐标值还是字符串，都一样。

(member 'c '(a b c d e))        返回                    (C D E)
  (member 'q '(a b c d e))        返回                     nil
复制