求教，lisp有没有简单的方式表述我这个想法

1121443108qaz

就是说已知一起点坐标，我想让它笔直(正交)向上画一条线，直到碰到第一个物体为止，交点就是线的终点。有什么思路吗？没有的话我感觉就要花大力气先求得那条直线的两点坐标，再算交点坐标，再连线。有没有这种函数呢？ 最终要实现的效果如下

marting

1121443108qaz 发表于 2018-3-26 12:21
大神你这函数不错，但是跟我的需求不匹配啊，你看看楼下我想做的程序？

我只是给你的，你求出的交点找出最近的那个点，你用其他地方肯定不行。
贴图，拿图形说话，不要让你的思路去影响别人，你思路不一定最有效的。

q3_2006

ssget f ssnamex求出交点..

1121443108qaz

q3_2006 发表于 2018-3-26 06:19
ssget f ssnamex求出交点..

直接画一条无限长的的话会有无数个与线相交的，我只要第一个交点的，感觉这个复杂了

Lisphk

你可以把所有的交点和起始点按距离排序，距离最小的，就是第一个交点

fl502

直接画一条无限长的的话会有无数个与线相交的。然后求算所有交点中与已知点距离最近点，然后修改直线的终点坐标即可。

marting

下面函数就求出点表PTS里面距离点START最近的点

1. (defun _sort (start pts)
   
2.   (setq pts   (mapcar '(lambda (x) (list (distance start x) x)) pts)
   
3.         pts   (vl-sort pts '(lambda (x y) (< (car x)(car y))))
   
4.         pts   (mapcar 'cadr pts)
   
5.         first (car pts)
   
6.   )
   
7. )
   
8. 
   

(defun _sort (start pts)<br />   (setq pts   (mapcar '(lambda (x) (list (distance start x) x)) pts)<br />         pts   (vl-sort pts '(lambda (x y) (< (car x)(car y))))<br />         pts   (mapcar 'cadr pts)<br />         first (car pts)<br />   )<br /> )<br /> <br />

1121443108qaz

看起来确实没得简便的方法

aimisiyou

不知道这个功能具体用在什么地方，感觉手画还快些。

1121443108qaz

我的程序要执行这样的功能，比如一个大矩形内有三个小矩形，这三个小矩形之间互相没有包含关系，我要做的其实就是一笔画，我想让这三个任意的小矩形向上画线。画完后，我再用bo命令生成边界。如果包住关系不复杂手动是可以的，如果里面包含很多东西，不止是矩形，就复杂了。

1121443108qaz

我现在设想是这样1.得到一个选择集(选择集内全是闭合多段线，且存在包含关系)，2遍历选择集，每获得一多段线，取其最高点为起点3第三步的功能应该是通过这个起点坐标找到会与通过该坐标竖直线相交的线，再计算该点形成竖直线与这些线的交点坐标，取交点坐标中y值最小点做为终点连线。

1121443108qaz

问题是怎么找到会与通过起点形成的竖直线相交的直线呢？目前我知道该直线须同时有如下特征，x最小值小于起点x值，x最大值大于起点x值，y最大值大于起点y值。不知道还有哪些特征我没注意到呢？但是光这样想想就觉得麻烦了，菜鸟操纵点线又不太熟，谁给个思路呢？

marting

1121443108qaz 发表于 2018-3-26 11:26
我的程序要执行这样的功能，比如一个大矩形内有三个小矩形，这三个小矩形之间互相没有包含关系，我要做的其 ...

贴上你的图胜过10句话。处理前什么样，处理后什么样

1121443108qaz

这个功能类似extend命令，只不过不知道目标线段

1121443108qaz

看起来我想让extend只往y轴正方向延伸，怎么做呢。

1121443108qaz

marting 发表于 2018-3-26 10:22
下面函数就求出点表PTS里面距离点START最近的点

大神你这函数不错，但是跟我的需求不匹配啊，你看看楼下我想做的程序？