请大神们指点一下，怎么快速求出这两条闭合线两端的交点坐标（已解决）

永不言弃

请大神们指点一下，怎么快速求出这两条闭合线两端的两个交点坐标

永不言弃

xyp1964 发表于 2023-7-9 22:35
起点在哪里都可以处理

院长真牛，那个起点标记真是炫，我用了一个笨办法处理了，先求出两条线共同的坐标点，然后再判断起点是否在中间，最后计算出两端点，就是线的点太多，每条基本都是300个点以上的，计算有点慢

xyp1964

求交后再取前后两个点的坐标

vitalgg

1. (defun c:tt ()
   
2.   (setq pts1 (curve:get-points (car (entsel "第1条曲线"))))
   
3.   (setq pts2 (curve:get-points (car (entsel "第2条曲线"))))
   
4.   (setq res (list:intersect pts1 pts2))
   
5.   ;; 判断  pts2 起点是否在 res内,如果是，则调整 res,
   
6.   ;; 然后 测试pts2 的第二点 直到不是为止
   
7.   (if (list:member (car pts2) res 0.001)
   
8.     (progn
   
9.       (setq i 0)
   
10.       (while (list:member (nth i pts2) res 0.001)
    
11.         (setq res (reverse res))
    
12.         (setq res (append (cdr res) (list (car res))))
    
13.         (setq res (reverse res))
    
14.         (setq i (1+ i))
    
15.       )
    
16.     )
    
17.   )
    
18.   ;; 两端点作一直线
    
19.   (entity:make-line (car res) (last res))
    
20. )

(defun c:tt () <br />   (setq pts1 (curve:get-points (car (entsel "第1条曲线"))))<br />   (setq pts2 (curve:get-points (car (entsel "第2条曲线"))))<br />   (setq res (list:intersect pts1 pts2))<br />   ;; 判断  pts2 起点是否在 res内,如果是，则调整 res,<br />   ;; 然后 测试pts2 的第二点 直到不是为止<br />   (if (list:member (car pts2) res 0.001) <br />     (progn <br />       (setq i 0)<br />       (while (list:member (nth i pts2) res 0.001) <br />         (setq res (reverse res))<br />         (setq res (append (cdr res) (list (car res))))<br />         (setq res (reverse res))<br />         (setq i (1+ i))<br />       )<br />     )<br />   )<br />   ;; 两端点作一直线<br />   (entity:make-line (car res) (last res))<br /> )

1. 命令: (fun:usage 'list:intersect)
   
2. *** 函数名:  list:intersect
   
3. ---------------
   
4. 说明: 求两个列表集合的交集
   
5. 用法: (list:intersect lst1 lst2)
   
6. 参数: 1 lst1  : 列表;2 lst2  : 列表;
   
7. 返回值: List
   
8. 示例:
   
9. 命令: (fun:usage 'curve:get-points)
   
10. *** 函数名:  curve:get-points
    
11. ---------------
    
12. 说明: 曲线控制点及端点列表，返回点坐标。
    
13. 用法: (curve:get-points ent)
    
14. 参数: 1 ent  : 单个图元;
    
15. 返回值: 点坐标列表
    
16. 示例: (curve:get-points (car (entsel)))
    

复制代码

如果无法播放，请点击此处在新窗口打开

多段线起点在重合边界的测试：

如果无法播放，请点击此处在新窗口打开

永不言弃

xyp1964 发表于 2023-7-9 14:22
求交后再取前后两个点的坐标

估计与线的起点位置有关，有时候会乱

永不言弃

vitalgg 发表于 2023-7-9 14:30

看了你的很多帖子，目前还没搞明白CAD应用云是怎么用的，我是业余的，没事时研究研究

vitalgg

永不言弃 发表于 2023-7-9 14:58
看了你的很多帖子，目前还没搞明白CAD应用云是怎么用的，我是业余的，没事时研究研究

到 https://atlisp.cn 安装核心程序。


就可以运行上面提供的代码了。


多段线起点在重合边界的问题已修补。

永不言弃

vitalgg 发表于 2023-7-9 15:51
到 https://atlisp.cn 安装核心程序。

xyp1964

永不言弃 发表于 2023-7-9 14:44
估计与线的起点位置有关，有时候会乱

按所给图测试没问题，看动图

永不言弃

xyp1964 发表于 2023-7-9 17:43
按所给图测试没问题，看动图

谢谢院长，处理好了

xyp1964

起点在哪里都可以处理