【已解决】求多段线与等高线的所有交点（不延伸）坐标

pengxinming · 发表于 2019-12-30 21:57:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

谢谢老师的帮助！

pengxinming · 发表于 2020-1-1 17:38:16

chrive 发表于 2019-12-31 01:15
可以先做一个步骤供大家参考吗

下面这段代码是pxr201419老师给我的很不错的！很值得参考！再次感谢他！！！
(setq lst (vlax-invoke (vlax-ename->vla-object (car(entsel "\n选择一条线:")))
         'IntersectWith (vlax-ename->vla-object (car(entsel "\n选择另一条线:"))) 0)
   lst (vl-remove nil (mapcar '(lambda (x) (if (= (rem (vl-position x
                              (mapcar 'list lst (cdr lst)(cddr lst))) 3) 0) x nil))
                              (mapcar 'list lst (cdr lst)(cddr lst)))))
得到所有交点，结果格式  ((x0 y0 z0)(x1 y1 z1)......(xi yi zi))，第1个交点是(car lst)，第2个是 (cadr lst)，.........
当然也可以用(nth  i  lst)来调用第 i 个交点

chrive · 发表于 2019-12-31 01:15:48

可以先做一个步骤供大家参考吗

tzfcn · 发表于 2019-12-31 06:26:54

通过自己的努力解决了问题，才是更踏实的提高。

pengxinming · 发表于 2019-12-31 08:11:53

tzfcn 发表于 2019-12-31 06:26
通过自己的努力解决了问题，才是更踏实的提高。

谢谢老师的指导！我是新手刚刚学习不久，工作之余学习的，不太专业，肯定要继续努力！谢谢老师！！！

pengxinming · 发表于 2020-1-1 17:35:16

chrive 发表于 2019-12-31 01:15
可以先做一个步骤供大家参考吗

下面这段代码是pxr201419老师给我的很不错的！很值得参考！再次感谢他！！！
(setq lst (vlax-invoke (vlax-ename->vla-object (car(entsel "\n选择一条线:")))
         'IntersectWith (vlax-ename->vla-object (car(entsel "\n选择另一条线:"))) 0)
   lst (vl-remove nil (mapcar '(lambda (x) (if (= (rem (vl-position x
                              (mapcar 'list lst (cdr lst)(cddr lst))) 3) 0) x nil))
                              (mapcar 'list lst (cdr lst)(cddr lst)))))
得到所有交点，结果格式  ((x0 y0 z0)(x1 y1 z1)......(xi yi zi))，第1个交点是(car lst)，第2个是 (cadr lst)，.........
当然也可以用(nth  i  lst)来调用第 i 个交点

leemao2 · 发表于 2020-4-16 16:52:11

感谢分享，学习了！

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

[已解决] 【已解决】求多段线与等高线的所有交点（不延伸）坐标

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。