帮助自动生成圆弧

AC2Designs · 发表于 2022-7-6 11:48:23

有人知道怎么做吗，或者至少告诉我正确的方向？

我实际上有两种情况：
我需要能够以编程方式绘制和绘制圆弧，只知道起始点、结束点和半径。我知道有一个公式半径=sq.rt的（x1-x2）xc+（y1-y2）yc，或者类似的东西。。。但是不知道从哪里开始。。。
2、有时起点和终点会连接起来，我需要倒圆角，或相应地调整直线，然后绘制圆弧。

有道理？
感谢您的帮助。

LEsq · 发表于 2022-7-6 12:05:16

命令ARC已经有一个构建选项“起点-终点半径”，请查看“绘制”下拉菜单“圆弧”

i、 e-
（命令“arc”（getpoint“\n开始：”）（getpoint“\n结束：”）（getdist
“\n半径：”）

或者，也许。。。作为启动，根本没有测试。。。

copy


(defun C:SER (/ sp ep d r)
 (setq sp (getpoint "\nStart point: ")
ep (getpoint "\nEnd point: ")
d  (/ (distance sp ep) 2)
 )
 (while (< (setq r (getdist "\nRadius: ")) d)
   (prompt
     (strcat "\nRadius must be greater than " (rtos d 2 3))
   )
 )
 (vl-cmdf "_.ARC" sp "_E" ep "_R" r)
 (princ)
)