如何求一个圆与方形相交的圆弧长度？

世人皆醉

假设我知道的数据只有圆的直径，方形的长和宽（可以是任意变量），以及圆心和方形的宽边中心重合，如何在知道这些数据的情况下，用AUTO LISP函数写出
或者得到它们相交的圆弧的长度（红色部分）下图为示例部分

革天明

这里只要两个数据即可，Φ500\400就够了,500以及边在圆心上这个信息不需要

1. ;;革天明 2022年6月21日
   
2. ;;r表示圆的半径,即250,l表示弦长,如400
   
3. 
   
4. (defun GetLen (r l)
   
5.   ;;(setq r 250.0 l 400.0)
   
6.   (setq h1 (sqrt (- (* r r) (* (* l 0.5) (* l 0.5)))))
   
7.   (setq ang (atan (/ (* l 0.5) h1)))
   
8.   (setq ang (* ang 2.0))
   
9.   (setq len(* r ang))
   
10. )
    

;;革天明 2022年6月21日<br /> ;;r表示圆的半径,即250,l表示弦长,如400<br /> <br /> (defun GetLen (r l)<br />   ;;(setq r 250.0 l 400.0)<br />   (setq h1 (sqrt (- (* r r) (* (* l 0.5) (* l 0.5)))))<br />   (setq ang (atan (/ (* l 0.5) h1)))<br />   (setq ang (* ang 2.0))<br />   (setq len(* r ang))<br /> )<br />

世人皆醉

革天明 发表于 2022-6-21 11:30
这里只要两个数据即可，Φ500\400就够了,500以及边在圆心上这个信息不需要

感谢大佬！！！

llsheng_73

感觉圆心在宽边中心这一点很重要，不然就是乱七八糟的，必须通过insectwith来求交点