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

xiabin68

重慶崽兒 发表于 2015-4-19 23:07
感觉也不合适，如果4、5个点的坐标都一样呢？

一样就是重复点了，还有就是图形是闭合了

zjlszw

需要循环嵌套，今天下午刚刚写过类似的程序。思路是从第一个点开始判断，设定一个模糊距离，如果小于指定距离则删除点表坐标，然后是第二点依次循环直到大于模糊距离为止，然后从第二点开始，这个是外循环，前面一个是内循环。

重慶崽兒

zjlszw 发表于 2015-11-18 17:49
需要循环嵌套，今天下午刚刚写过类似的程序。思路是从第一个点开始判断，设定一个模糊距离，如果小于指定距 ...

3Q

zjlszw

客气了。编程我也是初学者，技术不太好，一个程序需要写很久。

重慶崽兒

zjlszw 发表于 2015-11-20 12:24
客气了。编程我也是初学者，技术不太好，一个程序需要写很久。

2. (setq lst (mapcar 'cdr (vl-remove-if '(lambda(x) (/= 10 (car x))) en)))
   
3.   (setq old (last lst))
   
4.   (setq lst (mapcar '(lambda(x) (if (<= (distance old x) 0.0001) nil (setq old x))) lst))
   
5.   (setq lst (vl-remove 'nil lst))

(setq lst (mapcar 'cdr (vl-remove-if '(lambda(x) (/= 10 (car x))) en)))<br />   (setq old (last lst))<br />   (setq lst (mapcar '(lambda(x) (if (<= (distance old x) 0.0001) nil (setq old x))) lst))<br />   (setq lst (vl-remove 'nil lst))

这个思路我之前有用过，效果还行，但是遇到折返线就不行了  还得去除折返线

重慶崽兒

重慶崽兒 发表于 2015-11-20 18:13
这个思路我之前有用过，效果还行，但是遇到折返线就不行了  还得去除折返线

折返线处理的方式是，对比角度
但还是有不完美的地方，总之，现在还没找到完美解决方案