如何求得直线与弧线的交点

13816600495 · 发表于 2021-1-6 15:50:27

想编写一个自动打断线段的插件，但是弧线（ARC）与直线（LINE）的交点不会求，请大神指点。

yshf · 发表于 2021-1-6 16:33:29

本帖最后由 yshf 于 2021-1-6 16:35 编辑

(setq intPoints (vla-IntersectWith lineObj arcObj acExtendNone))(setq I 0    j 0    k 0)
(if (/= (type intPoints) vlax-vbEmpty)
      (while (>= (vlax-safearray-get-u-bound (vlax-variant-value intPoints) 1) I)
         (setq tempPoint (vlax-safearray->list (vlax-variant-value intPoints)))
         (setq str (strcat "交点[" (itoa k) "] is: " (rtos (nth j tempPoint) 2) ","
                                                      (rtos (nth (1+ j) tempPoint) 2) ","
                                                      (rtos (nth (+ j 2) tempPoint) 2)))
         (alert str)
         (setq str ""
               I (+ I 2)
               j (+ j 3)
               k (1+ k))
      )
)

bssurvey · 发表于 2021-1-6 16:36:00

可以參閱http://bbs.mjtd.com/forum.php?mod=viewthread&tid=91750 6樓 byghbcx 大的

原地踏步 · 发表于 2021-1-7 08:40:49

若是想在交点处断开，用楼上的方法就可以了。如果想断开一定距离，建议用数学方法求交点。

13816600495 · 发表于 2021-1-7 14:19:56

yshf 发表于 2021-1-6 16:33
(setq intPoints (vla-IntersectWith lineObj arcObj acExtendNone))(setq I 0 j 0 k 0)
(if (/ ...

有效，问题解决，谢谢！

13816600495 · 发表于 2021-1-7 14:22:42

bssurvey 发表于 2021-1-6 16:36
可以參閱http://bbs.mjtd.com/forum.php?mod=viewthread&tid=91750 6樓 byghbcx 大的

谢谢，解决了！

13816600495 · 发表于 2021-1-7 14:23:00

原地踏步发表于 2021-1-7 08:40
若是想在交点处断开，用楼上的方法就可以了。如果想断开一定距离，建议用数学方法求交点。

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

[提问] 如何求得直线与弧线的交点