把顶点表排成直线顶点表少了一段,请修改一下.

kwok

取得一个多段线的顶点表lst后，想把lst重排一下成一条直线的顶点表，对不封闭的多段线没有问题，但如果是闭合的多段线就少了最后一个点，结果排出来的表少了一段，请帮忙看看改正一下.
(defun Linelst ()
  (setq px (caar lst) py (cadar lst))
  (mapcar '(lambda(x)(setq ddlst(cons(vlax-curve-getDistAtPoint obj x)ddlst)))lst)
  (mapcar '(lambda(x)(setq Linelst(cons (list (+ x px)py)Linelst)))(reverse ddlst))
  (setq Linelst (reverse Linelst))  
)

Lispboy

楼主，能不能贴个图上来，看的清楚。

Lispboy

你意思是多段线封闭的话，就少了一点？ 函数发布里面有个函数，你看看

http://bbs.xdcad.net/forum.php?m ... id%3D1%26sortid%3D1

kwok

Lispboy 发表于 2013-6-13 20:39
楼主，能不能贴个图上来，看的清楚。

图如下:

Lispboy

你判断下多段线是否封闭，如果不封闭，你把顶点再加到尾部不就闭合多一点了吗，上面给你的那个帖子就是这个函数。

kwok

Lispboy 发表于 2013-6-13 21:27
你判断下多段线是否封闭，如果不封闭，你把顶点再加到尾部不就闭合多一点了吗，上面给你的那个帖子就是这个 ...

就是封闭了才少一段。它只按找到的顶点排，所以少了p4~p1这一段 (我把图片更新了一下，现在看可能更清楚表达要达到的目的)
可不可以不判断是否闭都能排到跟多线段同样的段数.?

newer

函数发布里面有求顶点的函数啊。不知道你是怎么求的顶点

1. (setq ed (entget (car (entsel))))
   
2. (setq a (vl-remove-if '(lambda(x)(/= (car x) 10)) ed))
   
3. ((10 1630.42 293.409) (10 2020.9 317.008) (10 2050.82 541.981) (10 1597.35
   
4. 655.254) (10 1540.67 450.733))
   
5. 
   
6. 命令: (setq a (mapcar 'cdr a))
   
7. ((1630.42 293.409) (2020.9 317.008) (2050.82 541.981) (1597.35 655.254)
   
8. (1540.67 450.733))
   

(setq ed (entget (car (entsel))))<br /> (setq a (vl-remove-if '(lambda(x)(/= (car x) 10)) ed))<br /> ((10 1630.42 293.409) (10 2020.9 317.008) (10 2050.82 541.981) (10 1597.35 <br /> 655.254) (10 1540.67 450.733))<br /> <br /> 命令: (setq a (mapcar 'cdr a))<br /> ((1630.42 293.409) (2020.9 317.008) (2050.82 541.981) (1597.35 655.254) <br /> (1540.67 450.733))<br />

对于不封闭的4段多段线，返回了5个顶点。你就可以展开4段啊。

newer

kwok 发表于 2013-6-13 21:31
就是封闭了才少一段。它只按找到的顶点排，所以少了p4~p1这一段 (我把图片更新了一下，现在看可能更清楚 ...

封闭要少一个顶点，你自己补上，再展开。

kwok

newer 发表于 2013-6-13 22:08
封闭要少一个顶点，你自己补上，再展开。

不知道怎么补顶点,请帮忙把1楼的码改一下补上一个点，谢谢!

Lispboy

kwok 发表于 2013-6-14 10:42
不知道怎么补顶点,请帮忙把1楼的码改一下补上一个点，谢谢!

你用下上面给你提供的函数，不就补上了吗？

lst 是你的顶点表

1. (if (XD::Curve:IsClosed e)
   
2.    (setq lst (XD::PnTs:Close lst))
   
3. )
   

(if (XD::Curve:IsClosed e)<br />    (setq lst (XD::PnTs:Close lst))<br /> )<br />

Free-Lancer

用 70 判断不完全，还要判断起始点是否相同以确定是否添加点来自: Android客户端

ll_j

Free-Lancer 发表于 2013-6-14 16:10
用 70 判断不完全，还要判断起始点是否相同以确定是否添加点

这不是闭合的范畴，这已经是点重合的范畴了，就是线段长度为零的情况，判断也不复杂，就是长度为零就不画线就可以了。

kwok

我换方法了，先直接画线，再取线的顶点.
直接排顶点表要考滤选中的线是否闭合，闭合的总是会少一点，因它的起点和终点是一个点.
如果是闭合我把它弄成不闭合了，好象也不行,，所以这个补点，不会弄，水平有限.

ll_j

kwok 发表于 2013-6-14 16:36
我换方法了，先直接画线，再取线的顶点.
直接排顶点表要考滤选中的线是否闭合，闭合的总是会少一点，因它 ...

70组码为1是闭合线（不懂VL方法，不知vlax-curve-isClosed所指的闭合是重合还是真的闭合），对闭合线，把点表的第一个点复制到最后，就是“补点”。

cable2004

不错的源码！