ssget"_CP"提取多段线内多段线坐标问题，请大神解答

Andyhon

奇哉怪哉  Handle 是 "4D3"

Select objects: !ee
<Entity name: 7ef6e9d8>
1 found

Select objects: *Cancel*

Command: (dxg 0 ee)
"LWPOLYLINE"

Command: (dxg 5 ee)
"4D3"

Command: (handent (dxg 5 ee))
<Entity name: 7ef6e9d8>

Gu_xl

(ssget "_CP" dingdianbiao)中 点表dingdianbiao不能有重复点！
样例中多段线有重复点，提取多段线点表后要剔除重复点！

重慶崽兒

首先感谢各位大大的解答，小弟一定根据各位大大说的去多多实验，我先标记个已解决，实在不懂的再来问各位大大
  再次感谢

重慶崽兒

Gu_xl 发表于 2014-9-15 11:09
(ssget "_CP" dingdianbiao)中 点表dingdianbiao不能有重复点！
样例中多段线有重复点，提取多段线点表后要 ...

感谢G版，经过实验，果真如此，不知G版对剔除重复点有没有什么好的方法？是循环比对一个个剔除?还是？

重慶崽兒

自贡黄明儒 发表于 2014-9-15 09:38
下面原代码不会返回nil
(defun HH:PtLists (en)
  (mapcar 'cdr

感谢黄大，很给力的说

Gu_xl

自贡黄明儒 发表于 2014-9-15 09:38
下面原代码不会返回nil
(defun HH:PtLists (en)
  (mapcar 'cdr

点表的除重方法是错误的！一是点是要有容差值来判定是否重点，二是会导致如下情况发生：

重慶崽兒

Gu_xl 发表于 2014-9-16 08:47
点表的除重方法是错误的！一是点是要有容差值来判定是否重点，二是会导致如下情况发生：

G版好，如你发的上图，怎么来写这个容差值，也就是说怎么让程序判断不胡乱删除重复点？
能给个实例么  谢谢

xiabin68

重慶崽兒 发表于 2015-4-19 18:24
G版好，如你发的上图，怎么来写这个容差值，也就是说怎么让程序判断不胡乱删除重复点？
能给个实例么  谢 ...

根据距离来删最好

重慶崽兒

xiabin68 发表于 2015-4-19 22:45
根据距离来删最好

你意思是PT1跟PT2比对，PT2跟PT3，PT3跟PT4。。。。。。。最后PTn和PT1？

重慶崽兒

xiabin68 发表于 2015-4-19 22:45
根据距离来删最好

感觉也不合适，如果4、5个点的坐标都一样呢？