[功能] 弧与射线的交点

WhoCanSay · 发表于 2016-6-1 11:44:06

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

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

×

本帖最后由 WhoCanSay 于 2016-6-1 11:46 编辑

;;[功能] 弧与射线的交点(由Highflybird的线圆求交点改造)
;;p1 p2射线上两点　cp r e弧心半径弧。弧也可能是多段线
;;(IntersArcRay (getpoint) (getpoint) (getpoint) (getdist) (car(entsel)))
(defun IntersArcRay (p1 p2 cp r e / p0 d n s)
  (setq       n  (mapcar '- p2 p1) ;_ 新投影面的法向量
      P1 (trans p1 0 n) ;_ P1坐标转换到新投影面n
      cp (trans cp 0 n) ;_ CP坐标转换到新投影面n
      p0 (list (car p1) (cadr p1) (caddr cp)) ;_ P0在新投影面坐标
  )
  (cond
((equal r (setq d (distance cp p0))) ;_ 直线和园相切
   (setq pts (list (trans p0 n 0)))
)
((< d r) ;_ 相交
   (setq s (sqrt (- (* r r) (* d d))))
   (setq pt (trans (list (car p1) (cadr p1) (- (caddr cp) s)) n 0))
   (cond((equal (vlax-curve-getClosestPointTo e pt) pt 0.001)(setq pts (cons pt pts))))
   (setq pt (trans (list (car p1) (cadr p1) (+ (caddr cp) s)) n 0))
   (cond((equal (vlax-curve-getClosestPointTo e pt) pt 0.001)(setq pts (cons pt pts))))
)
  )
  pts
)

xvjiex · 发表于 2021-8-31 00:02:19

感谢分享弧与射线的交点

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

[每日一码] [功能] 弧与射线的交点

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