lisp语言如何编写圆弧,

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/01 16:36:46

lisp语言如何编写圆弧,
lisp语言如何编写圆弧,

lisp语言如何编写圆弧,
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) ;;开捕捉
)
其它画法相似