请问要怎么处理这个坐标，我要给定的距离，不足就不分了

wanchr

2. (setq vertices '()) ; 创建一个空列表用于存储顶点坐标
   
3.   (foreach item polyline-info
   
4.     (if (= (car item) 10) ; 检查是否为顶点坐标
   
5.       (setq vertices (cons (cdr item) vertices)) ; 将顶点坐标添加到列表中
   
6.     )
   
7.   )
   
8.   (setq divs '()) ; 创建一个空列表用于存储等分后的坐标
   
9.   (setq given-distance 1000.0) ; 给定的距离
   
10.   (repeat (1- (length vertices))
    
11.     (setq pt1 (nth 0 vertices)) ; 第一个坐标
    
12.     (setq pt2 (nth 1 vertices)) ; 第二个坐标
    
13.     (setq len (distance pt1 pt2)) ; 计算两点之间的长度
    
14.     (setq segment-count (1+ (fix (/ len given-distance)))) ; 计算线段的等分数量
    
15.     (setq dx (/ (- (car pt2) (car pt1)) segment-count)) ; X 轴方向的增量
    
16.     (setq dy (/ (- (cadr pt2) (cadr pt1)) segment-count)) ; Y 轴方向的增量
    
17.     (repeat segment-count
    
18.       (setq divided-vertices (cons pt1 divided-vertices)) ; 将当前坐标添加到列表中
    
19.       (setq pt1 (list (+ (car pt1) dx) (+ (cadr pt1) dy))) ; 计算下一个坐标
    
20.     )
    
21.     (setq vertices (cdr vertices)) ; 移除已处理的坐标
    
22.   )

(setq vertices '()) ; 创建一个空列表用于存储顶点坐标<br />   (foreach item polyline-info<br />     (if (= (car item) 10) ; 检查是否为顶点坐标<br />       (setq vertices (cons (cdr item) vertices)) ; 将顶点坐标添加到列表中<br />     )<br />   )<br />   (setq divs '()) ; 创建一个空列表用于存储等分后的坐标<br />   (setq given-distance 1000.0) ; 给定的距离<br />   (repeat (1- (length vertices))<br />     (setq pt1 (nth 0 vertices)) ; 第一个坐标<br />     (setq pt2 (nth 1 vertices)) ; 第二个坐标<br />     (setq len (distance pt1 pt2)) ; 计算两点之间的长度<br />     (setq segment-count (1+ (fix (/ len given-distance)))) ; 计算线段的等分数量<br />     (setq dx (/ (- (car pt2) (car pt1)) segment-count)) ; X 轴方向的增量<br />     (setq dy (/ (- (cadr pt2) (cadr pt1)) segment-count)) ; Y 轴方向的增量<br />     (repeat segment-count<br />       (setq divided-vertices (cons pt1 divided-vertices)) ; 将当前坐标添加到列表中<br />       (setq pt1 (list (+ (car pt1) dx) (+ (cadr pt1) dy))) ; 计算下一个坐标<br />     )<br />     (setq vertices (cdr vertices)) ; 移除已处理的坐标<br />   )

这段代码处理等分的时候，当不能整除会以近似距离等分，我想要定距等分要怎么处理，帮我改一下，谢谢。

飞雪神光

你是想每两个节点之间 定距等分？ 不是整除的话最后肯定会有剩余的

love1030312

飞雪神光 发表于 2024-1-6 15:24
你是想每两个节点之间 定距等分？ 不是整除的话最后肯定会有剩余的

哥 我很好奇为什么你的最后登录时间是1970-1-1

wanchr

飞雪神光 发表于 2024-1-6 15:24
你是想每两个节点之间 定距等分？ 不是整除的话最后肯定会有剩余的

每段多出来的扔了不要。公式要怎么改。

飞雪神光

love1030312 发表于 2024-1-6 16:51
哥 我很好奇为什么你的最后登录时间是1970-1-1

这我也不知道 我看有一部分人就是这样的

飞雪神光

1. (setq divided-vertices '()) ; 创建一个空列表用于存储等分后的坐标
   
2. (setq given-distance 1000.0) ; 给定的距离
   
3. (repeat (1- (length vertices))
   
4.   (setq pt1 (nth 0 vertices)) ; 第一个坐标
   
5.   (setq pt2 (nth 1 vertices)) ; 第二个坐标
   
6.   (setq len (distance pt1 pt2)) ; 计算两点之间的长度
   
7.   (setq an (angle pt1 pt2)) ; 计算两点之间的长度
   
8.   (setq segment given-distance)
   
9.   (setq divided-vertices (cons pt1 divided-vertices)) ; 将当前坐标添加到列表中
   
10.   (while (< segment len)
    
11.     (setq pt1 (polar pt1 an given-distance)) ; 计算下一个坐标
    
12.     (setq divided-vertices (cons pt1 divided-vertices)) ; 将当前坐标添加到列表中
    
13.     (setq segment (+ segment given-distance))
    
14.   )
    
15.   (setq vertices (cdr vertices)) ; 移除已处理的坐标
    
16. )

(setq divided-vertices '()) ; 创建一个空列表用于存储等分后的坐标<br /> (setq given-distance 1000.0) ; 给定的距离<br /> (repeat (1- (length vertices))<br />   (setq pt1 (nth 0 vertices)) ; 第一个坐标<br />   (setq pt2 (nth 1 vertices)) ; 第二个坐标<br />   (setq len (distance pt1 pt2)) ; 计算两点之间的长度<br />   (setq an (angle pt1 pt2)) ; 计算两点之间的长度<br />   (setq segment given-distance)<br />   (setq divided-vertices (cons pt1 divided-vertices)) ; 将当前坐标添加到列表中<br />   (while (< segment len)<br />     (setq pt1 (polar pt1 an given-distance)) ; 计算下一个坐标<br />     (setq divided-vertices (cons pt1 divided-vertices)) ; 将当前坐标添加到列表中<br />     (setq segment (+ segment given-distance))<br />   )<br />   (setq vertices (cdr vertices)) ; 移除已处理的坐标<br /> )

wanchr

飞雪神光 发表于 2024-1-6 18:37

谢谢，可以用。