过2点的构造线是否切割封闭多段线

/db_自贡黄明儒_

newer 发表于 2021-2-9 12:41
这要看你定义的两点 是直线， 还是线段了

如果是线段，那么就要判断的多一些

两点之间如果是直线或者多段线，就用Lisphk的方法了。p1 p2就是两个点。

本题的实际意义：
点取封闭多段线，输入一个宽度，就自动沿此线铺设木地板。

计算法:

1. ;;过2点的构造线与封闭多段线(不带弧)相交，返回交点
   
2. (defun 2P-LWPOLYLINE-P (pts p1 p2 / L)
   
3.   (setq p1 (mapcar '+ '(0 0) p1))
   
4.   (setq p2 (mapcar '+ '(0 0) p2))
   
5.   (setq pts (cons (last pts) pts))
   
6.   (setq L (mapcar '(lambda (x y) (_p1p2xy p1 p2 x y)) pts (cdr pts)))
   
7.   (_delsame (vl-remove 'nil L) 1e-7)
   
8. )

;;过2点的构造线与封闭多段线(不带弧)相交，返回交点<br /> (defun 2P-LWPOLYLINE-P (pts p1 p2 / L)<br />   (setq p1 (mapcar '+ '(0 0) p1))<br />   (setq p2 (mapcar '+ '(0 0) p2))<br />   (setq pts (cons (last pts) pts))<br />   (setq L (mapcar '(lambda (x y) (_p1p2xy p1 p2 x y)) pts (cdr pts)))<br />   (_delsame (vl-remove 'nil L) 1e-7)<br /> )

xvjiex

感谢楼主分享过2点的构造线是否切割封闭多段线。

janshyl

感謝各位大大的無私分享