求直线交点的思路

nxchenjk · 发表于 2022-12-6 08:02:44

本帖最后由 nxchenjk 于 2022-12-6 08:05 编辑

(setq LineSSS0(ssget"X"'((8 . "WSLINE,YSLINE")(0 . "line"))))
求这个选择集里直线间的交点。请各位老师提供点思路。谢谢。

自贡黄明儒 · 发表于 2022-12-6 09:16:34

本帖最后由自贡黄明儒于 2022-12-6 10:06 编辑

nxchenjk 发表于 2022-12-6 09:04
老师。重点是不能有重复的交点。也就是求过交点的直线，不再求交点。我的想法是求过交点的直线在图上删除 ...

假如L((起点终点).....)是点表，常用的方法是

(while (setq a (car L)  L (cdr L))
  (setq
L1 (append (mapcar '(lambda (x) (inters (car a) (cdr a) (car x) (cdr x) nil)) L)
      L1
   )
  )
)
这样，求过的交点线不再求交点，以提高效率

nxchenjk · 发表于 2022-12-6 09:04:10

自贡黄明儒发表于 2022-12-6 08:15
都是直线，就简单了。求得两端点，用inters就可以了。

老师。重点是不能有重复的交点。也就是求过交点的直线，不再求交点。我的想法是求过交点的直线在图上删除，但这样图就变了。有没有好的思路。
举例说明。A线与B线求过交点了，就不再求B线与A线的交点。

nxchenjk · 发表于 2022-12-6 09:53:33

自贡黄明儒发表于 2022-12-6 09:16
假如L((起点终点).....)是点表，常用的方法是

(while (setq a (car L) L (cdr L))

老师把函数用的是出神入化，厉害

VBALISPER · 发表于 2022-12-6 08:15:26

vla-intersectwith

自贡黄明儒 · 发表于 2022-12-6 08:15:42

都是直线，就简单了。求得两端点，用inters就可以了。

sniper1111 · 发表于 2022-12-6 08:35:53

自贡黄明儒发表于 2022-12-6 08:15
都是直线，就简单了。求得两端点，用inters就可以了。

黄大师引导能力超强

cghdy · 发表于 2022-12-6 09:06:28

nxchenjk 2022-12-6 09:04
...

member重复的不加入即可

nxchenjk · 发表于 2022-12-6 09:54:38

cghdy 发表于 2022-12-6 09:06
member重复的不加入即可

谢谢老师的提示

xyp1964 · 发表于 2022-12-6 13:57:43

;; 遍历曲线求交

账号		自动登录	找回密码
密码			注册

[提问] 求直线交点的思路

本帖子中包含更多资源