由点坐标生成多段线

aywuguangan9818

现在有一组坐标点：按x从小到大排列，可能是x的等差数列，y坐标随机。多段线的拐点不一定在这些坐标中
想要的结果，根据y坐标值自动判断各段直线的交点，并生成多段线
看有什么好的思路没？

iLisp

看不明白，能用图说明吗

aywuguangan9818

看看下面的图吧
这个是由线等x距截取的点，就是想反向进行

iLisp

你这个只要按 X 排序即可

aywuguangan9818

iLisp 发表于 2016-2-24 15:12
你这个只要按 X 排序即可

还要考虑y值得吧 2条线的交点不一定就在某个点上

iLisp

图示只需要按 (vl-sort pts '(lambda(x1 x2) (< (car x1) (car x2))))

aywuguangan9818

早就排好了
就是画线，看线的端点坐标，因为按照2条线的角度，其交点不一定正好是已有的坐标，比如倒数第2、5个点

st788796

你贴个点文件

ll_j

单单用点连多段线是简单的，但你表述中有“多段线的拐点不一定在这些坐标中”，由此就需要有一个关于多段线的规则，比如长度不能小于多少，否则是多解。就如你的贴图中的倒数第五点，你的画法是一种，而从倒数第五点直接连到下一点，再连到下一点，这也是一种连法。
原则上，以每个点作为多段线的拐点，就是最常规的解，也是最简单的解，如果加一些条件，比如在一线上的多个点连成一个整段，多段线每段间的长度不能小于多少等，相对就比较复杂些，但一般都是可解的，不过首先得命题条件完整。

eachy

看这个算法是否适用
http://www.cnblogs.com/heaad/archive/2010/12/20/1911614.html

aywuguangan9818

说明一下我的用处：在施工中，需要先修建施工平台（平台高程不同，所以y不同），之后按照设计给定的桩号进行孔位的标记后施工。一般来说孔距是不变的（x是等差数列）。现在就是想根据这些孔位的坐标点来还原施工平台（桩号和高程）。因此说拐点不一定正好在孔位的点上（也就是给定的坐标）。
施工平台是有一段一段的直线组成，大体是2边高，中间低的山谷，但也有可能出现反坡。也有可能出现某段线上只有一个点位的情况（这样的话我建议选用水平或者2边直线倾角的平均值又或者使用样条曲线和多段线结合？）
坐标点：((0,10)(10,20)(20,30)(30,35)(40,45)(50,55)(60,75)(70,75)(80,75)(90,88)(100,105)(110,122)(120,125)(130,140)(140,140))
那个网址我看了一下，有些类似，但是不太合适似的
@eachy @ll_j  @st788796

aywuguangan9818

st788796 发表于 2016-2-24 17:13
你贴个点文件

((0,10)(10,20)(20,30)(30,35)(40,45)(50,55)(60,75)(70,75)(80,75)(90,88)(100,105)(110,122)(120,125)(130,140)(140,140))

aywuguangan9818

没有人给个建议吗？:Q

st788796

aywuguangan9818 发表于 2016-2-28 18:55
没有人给个建议吗？

2. 
   
3. (defun sortpt (pts)
   
4.   (vl-sort pts
   
5.            '(lambda (x1 x2)
   
6.               (if (equal (cadr x1) (cadr x2) 1e-3)
   
7.                 (> (car x1) (car x2))
   
8.                 (> (cadr x1) (cadr x2))
   
9.               )
   
10.             )
    
11.   )
    
12. )
    
13. (defun c:tt (/ pts)
    
14.   (setq
    
15.     pts        (sortpt        '((0 10)
    
16.                   (10 20)
    
17.                   (20 30)
    
18.                   (30 35)
    
19.                   (40 45)
    
20.                   (50 55)
    
21.                   (60 75)
    
22.                   (70 75)
    
23.                   (80 75)
    
24.                   (90 88)
    
25.                   (100 105)
    
26.                   (110 122)
    
27.                   (120 125)
    
28.                   (130 140)
    
29.                   (140 140)
    
30.                  )
    
31.                
    
32.         )
    
33.   )
    
34.   (command ".pline")
    
35.   (foreach x pts (command x))
    
36.   (command "")
    
37.   (princ)          
    
38. )

<br /> (defun sortpt (pts)<br />   (vl-sort pts<br />            '(lambda (x1 x2)<br />               (if (equal (cadr x1) (cadr x2) 1e-3)<br />                 (> (car x1) (car x2))<br />                 (> (cadr x1) (cadr x2))<br />               )<br />             )<br />   )<br /> )<br /> (defun c:tt (/ pts)<br />   (setq<br />     pts        (sortpt        '((0 10)<br />                   (10 20)<br />                   (20 30)<br />                   (30 35)<br />                   (40 45)<br />                   (50 55)<br />                   (60 75)<br />                   (70 75)<br />                   (80 75)<br />                   (90 88)<br />                   (100 105)<br />                   (110 122)<br />                   (120 125)<br />                   (130 140)<br />                   (140 140)<br />                  )<br />                 <br />         )<br />   )<br />   (command ".pline")<br />   (foreach x pts (command x))<br />   (command "")<br />   (princ)           <br /> )

434939575

学习了，好久没来了:lol