帮助自动生成圆弧
有人知道怎么做吗，或者至少告诉我正确的方向？我实际上有两种情况：
我需要能够以编程方式绘制和绘制圆弧，只知道起始点、结束点和半径。我知道有一个公式半径=sq.rt的（x1-x2）xc+（y1-y2）yc，或者类似的东西。。。但是不知道从哪里开始。。。
2、有时起点和终点会连接起来，我需要倒圆角，或相应地调整直线，然后绘制圆弧。
有道理？
感谢您的帮助。 命令ARC已经有一个构建选项“起点-终点半径”，请查看“绘制”下拉菜单“圆弧”
i、 e-
（命令“arc”（getpoint“\n开始：”）（getpoint“\n结束：”）（getdist
“\n半径：”）
或者，也许。。。作为启动，根本没有测试。。。
(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)
)
首先，我认为您需要验证（*半径2）从起点到终点的距离越大。
如果这是真的，我认为这将永远是2个正确的结果。1>180和1
如果起点和终点重合，则无法形成圆弧。那么只有一个圆。
-大卫
我看到路易斯已经解决了其中一些问题 谢谢大家。我将研究如何使用Lisp。我项目的其余部分在VBA中，是否有方法从VBA访问Lisp命令；除了SendCommand，还是这是最好的方法？我还需要用VBA中的数据填充LSP变量。这可能吗？ 我不吃vba。。。很多月前试过，从来都不喜欢，至少对我来说味道不好。。。
记住，它会从桌子上拿出来，现在的菜单上有更美味的盘子供选择。
试试看。 你是说VBA最终不会成为AutoCAD中的平台吗？
它会继续运行现有的vba例程吗？你有这方面的文件吗？ VBA的终止：
http://www.cadtutor.net/forum/showthread.php?t=32857
页:
[1]