如何用CAD绘制正弦曲线

打开CAD，依次点击工具→AutoLISP→Visual LISP编辑器，新建一个文件，输入以下代码:

(defun C:draw sin(/left point left pointx left pointy N x step)(init get 1)；1到8位二进制为0000001，设置0位为1意味着禁止用户按回车键响应输入请求。

(setq left point(getpoint " \ n left point:")left pointx(car left point)left pointy(cadr left point))(init get 7)；7到8位二进制是00000111。将位1设置为1意味着禁止用户输入零值来响应输入请求，将位2设置为1意味着禁止用户输入负值来响应输入请求。

(setq N(getint " \ N cycles number:"))(setq x 0 step 0.1)(命令" pline ")(While(& lt；x(* 2nπ))

(command(list(+left pointx x)(+left pointy(sin x)))；以LeftPoint为原点，逐点绘制正弦曲线(setq x(+x step))；x = x+步长，横坐标增加步长值)

(command(list(+left pointx x)(+left pointy(sin x)))(list(+left pointx(* 2n pi))left pointy)" ")

(命令“line”left point(list(+left pointx(* 2n pi))left pointy)”)；画X轴(命令“line”(list left pointx(+left point y2))" ")；绘制y轴)

保存为drawsine.lsp文件，按Ctrl+Alt+E，Visual LISP控制台会显示类似于:"；1表格来自# AutoCAD 2004/sample/visual lisp/draw sine . LSP " >；Load”文本，焦点自动切换到Visual LISP控制台。在CAD中输入(C:drawsin)或输入drawsin命令来运行该功能。如果函数定义中没有“c:”就只能在Visual LISP控制台中调用。函数运行后，用鼠标在CAD的活动窗口中指定坐标原点，然后在控制台中输入要绘制的正弦曲线的循环数来绘制这条曲线。

我在一个教程里改了一个有bug的程序，就是这个。中文笔记和操作步骤都是我自己写的。我感觉这个程序很典型，很有用，因为你可以用其他函数代替sin(x)来画出它们的图像。