Question

lisp语言如何编写圆弧，请给与详细解释

Answer 1

CAD中画圆弧有几种方法
我只介绍一种（圆心、起点、端点）。
要画圆弧就需要以上3个要素（圆心、起点、端点）有明确数值，这3个要素可以在程序中设定，也可以定义变量在操作是一一再输入变量数值（输入数值方法与CAD内部命令相同）。
最后用COMMAND执行画弧命令。
代码：
(DEFUN c:MARC(/ p0,p1,p2) ;;--MARC为本程序调用命令，也可设成其它字母，前提是不要与CAD内部命令冲突
(setq p0 (getpoint"o点:")) ;;------------拾取原点
(setq p1(getpoint"起点:")) ;;------------拾取起点
(setq p2 (getpoint"端点:")) ;;------------拾取端点
(command "osmode" 16575) ;;关掉捕捉以免在绘图时受到影响
(command "_arc" "c" p0 p1 p2)
(command "osmode" 191) ;;开捕捉
)
其它画法相似

Answer 2

用command函数画出来就是了。LISP中command（）非常强大，还应用简单。