。直接畫是很難的.你可以先用“電子表格”按阿基米德螺線公式計算出一列成對的x、y的值。並做成“x,y”的形式,然後複製這一列值,在cad裡畫樣條時貼上上去就成了,“電子表格”中取樣越細,畫的圖越精確,,“電子表格”中取樣細不會增加人的工作量的。2。還可以用caxa畫,那更方便。阿基米德螺旋線用autolisp程式設計可以實現.(command"pline")(setqn0)(repeat1000(command(polar(list00)(/n57.3)n))(setqn(1+n)))(command)彈簧和螺紋(三維)1、開啟cad後,找工具/autolisp/visuallisp編輯器,開啟.點新建檔案2、然後輸入(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,關閉編輯器3、要用時,點工具/autolisp/載入,找到luoxuan.lsp檔案將其載入,關閉對話方塊.在命令列輸入luoxuan回車,就開始了螺旋線的繪製
。直接畫是很難的.你可以先用“電子表格”按阿基米德螺線公式計算出一列成對的x、y的值。並做成“x,y”的形式,然後複製這一列值,在cad裡畫樣條時貼上上去就成了,“電子表格”中取樣越細,畫的圖越精確,,“電子表格”中取樣細不會增加人的工作量的。2。還可以用caxa畫,那更方便。阿基米德螺旋線用autolisp程式設計可以實現.(command"pline")(setqn0)(repeat1000(command(polar(list00)(/n57.3)n))(setqn(1+n)))(command)彈簧和螺紋(三維)1、開啟cad後,找工具/autolisp/visuallisp編輯器,開啟.點新建檔案2、然後輸入(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,關閉編輯器3、要用時,點工具/autolisp/載入,找到luoxuan.lsp檔案將其載入,關閉對話方塊.在命令列輸入luoxuan回車,就開始了螺旋線的繪製