直接画是很难的.你可以先用“电子表格”按阿基米德螺线公式计算出一列成对的X、Y的值。并做成“X，Y”的形式，然后复制这一列值，在CAD里画样条时粘贴上去就成了，“电子表格”中取样越细，画的图越精确，，“电子表格”中取样细不会增加人的工作量的。2。还可以用CAXA画，那更方便。

　　方法也有好几种的，比如可以先在“Excel”软件里按阿基米德螺线公式计算出一列成对的X、Y的值。并写成“X，Y”的形式，然后选定这一列值,右击点选复制;打开AutoCAD软件,点选多段线,在命令行内右击并点选粘贴,按回车就可以了。此方法是近似的，设置的点越多越精确。

　　也可以用AutoLSIP编写程序并加载，进行参数化设计，这样可以精确的画图了。将阿基米德螺线的θ和ρ用表格形式将其对应数据列出，用画点的命令将输入第一点的座标，依次输入＠ρ<θ(这里是度），用样条曲线将其连接起来。具体的参数如下：

　　(command"pline")

　　(setqn0)

　　(repeat1000

　　(command(polar(list00)(/n57.3)n))

　　(setqn(1+n))

　　)

　　(command)打开CAD后，找工具／AUTOLISP／VISUALLISP编辑器，打开．点新建文件然后输入

　　(defunc:luoxuan

　　(/)

　　(setqb1(getpoint"请指定螺旋线基点:"))

　　(setqr(getreal"请输入螺纹平均半径:"))

　　(setqdisp(getreal"请输入螺纹节距:"))

　　(setqn(getint"请输入每圈细化段数:"))

　　(setqdelta(/(*2.0pi)n))

　　(setqj(/dispn))

　　(setqbb(caddrb1))

　　(setqang0)

　　(setqjj0)

　　(Command"UCS""o"b1)

　　(Command"3dpoly"(listr00))

　　(repeatn

　　(setqjj(+jj1)

　　(setqang(+deltaang))

　　(setqpt2(list(*r(cosang))(*r(sinang))(+0(*jjj))))

　　(Commandpt2)

　　)

　　(Command"")

　　)　存盘为luoxuan.lsp，关闭编辑器。要用时，点工具／AUTOLISP／加载，找到luoxuan.lsp文件将其加载，关闭对话框．在命令行输入luoxuan回车，就开始了螺旋线的绘制。