直接画是很难的.你可以先用“电子表格”按阿基米德螺线公式计算出一列成对的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回车,就开始了螺旋线的绘制。