[求助]怎样不画线求交点

caoyin

曲线 x ，点p1和点p2

已知p1何p2的连线与x存在交点。。

请问：怎样在不画线的情况下求出交点

ljpnb

不添加辅助线应该办不到，楼主可以在程序中自动添加一直辅助线，计算结束后再删除。

王咣生

什么曲线，抛开图形，那你只能利用数学公式计算了.

caoyin

;; (在不画辅助线的前提下)求曲线和两点之间的连线的交点
;; 以下思路似乎有点眉目了，但只能求出部分交点
;; 关键是 vlax-curve-getClosestPointToProjection 函数，有点弄不清他的“脾气”。
;;
;; 请高手帮我完善！！

(defun lt:curve&2point-getInters (en p1 p2)
  (list (vlax-curve-getClosestPointToProjection en p1 (polar '(0 0 0) (angle p1 p2) 1))
        (vlax-curve-getClosestPointToProjection en p2 (polar '(0 0 0) (angle p2 p1) 1))
  )
)

(defun c:tt (/ e p1 p2 lst)
  (setq e   (car(entsel "\n曲线: "))
        p1  (getpoint "\n点1: ")
        p2  (getpoint p1 "\n点2: ")
        lst (lt:curve&2point-getInters e p1 p2)
  )
  (apply 'command (cons "_.line" lst))
  (command "")
)

phoenixdjq

本论坛置顶的帖子里面就有求交点的帖子呀

你自己看看吧

caoyin

我觉得这个还是值得研究的，请各位老师看看 4 楼的内容，指点一下！！！