資源描述：
《auto cad 中畫螺旋線的幾種方法》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫。
1、AUTOCAD中如何畫螺旋線？1、打開ＣＡＤ后，找工具／ＡＵＴＯＬＩＳＰ／ＶＩＳＵＡＬ?。蹋桑樱芯庉嬈?，打開．點新建文件2、然后輸入(defunc:luoxuan(/)(setqb1(getpoint"請指定螺旋線基點:"))(setqr(getreal"請輸入螺紋平均半徑:"))(setqdisp(getreal"請輸入螺紋節(jié)距:"))(setqn(getint"請輸入每圈細(xì)化段數(shù):"))(setqdelta(/(*2.0pi)n))(setqj(/dispn))(setqbb(caddrb1))(setqang0)(setqjj0)(Command"UC
2、S""o"b1)(Command"3dpoly"(listr00))(repeatn(setqjj(+jj1)(setqang(+deltaang))(setqpt2(list(*r(cosang))(*r(sinang))(+0(*jjj))))(Commandpt2))(Command""))存盤為luoxuan.lsp，關(guān)閉編輯器3、要用時，點工具／ＡＵＴＯＬＩＳＰ／加載，找到luoxuan.lsp文件將其加載，關(guān)閉對話框．在命令行輸入luoxuan回車，就開始了螺旋線的繪制（摘自：http://www.laohu.net/bbs/dispbbs.as
3、p?boardID=8&RootID=31787&ID=31960)如何繪制三維螺旋線(3dspiral)和平面螺旋線即阿基米德螺旋線（spiral)：①將Autodesk公司網(wǎng)站http://www.icad.com.cn/icad/share/autocadtool.htm??打開上述網(wǎng)頁，點擊其中的：3dspiral.zip用于螺旋線的繪制上的可下載軟件：“3dspiral.Lsp”復(fù)制到自己計算機硬盤下的“某”文件夾中；②打開AutoCADR14或R2000繪圖界面，利用tool下拉式菜單(Autolisp)loadApplication命令加載（L
4、oad）“3dspiral.Lsp”應(yīng)用軟件程序;③人工鍵入命令(Command):3dspiral(按回車鍵)---繪制三維螺旋線；????????????????spiral??(按回車鍵)---繪制二維螺旋線（即阿基米德螺旋線）④按照自己的設(shè)計意圖可連續(xù)回答該軟件設(shè)置的6項提問后,就能畫出較理想的各種螺旋線：即繪制彈簧的路徑(Path)。運行3dspiral命令后，會陸續(xù)出現(xiàn)以下6個提問：??6項提問分別是：1.螺旋線起始的中心坐標(biāo)；2.起始的半徑值；3.螺旋線的圈數(shù)；4.螺旋線水平（HOR）方向變化的螺距（柱狀螺旋線為0；寶塔形螺旋線有±之分）；5.
5、螺旋線垂直（VER）方向變化的螺距(若輸入0，就是平面螺旋線）；6.每條螺旋線的近似線數(shù)（默認(rèn)為30；數(shù)值愈大，近似程度愈高）。??小議：1.該軟件最大的特點是操作簡便，通俗易懂；2.能畫材料為圓形截面的各類尺寸形狀的彈簧本體（無論是柱狀還是寶塔狀）；3.設(shè)計完整彈簧還需繼續(xù)畫出彈簧的尾扣部分（無論是壓簧還是拉簧）；4.非圓截面（矩形、棱形、梯形）的彈簧用此方法繪制是不可行的；5.普通螺紋和梯形螺紋的螺旋面用此方法繪制也是不可行的；6.用此方法繪制的普通彈簧形狀十分逼真、“準(zhǔn)確”，尤其是賦予著色、渲染后，在三維立體裝配圖中幾乎可以達(dá)到“以假亂真”的地步。但是
6、從該立體彈簧上不能“提取”任何有用的平面元素（包括各種剖切面），原因就是我們熟悉的各種彈簧的二維平面視圖是機械制圖國家標(biāo)準(zhǔn)規(guī)定的“簡易畫法”；更何況參數(shù)化繪制的彈簧也是一種近似的方法。畫螺旋線的好方法將下列程序復(fù)制到工具/Autolisp/visuallisp編輯器,然后粘貼保存為lisp源文件類型,要用時只需加載該程序(工具/加載應(yīng)用程序)用是只需用命令:SPL(defunC:SPL(/SDEDTHSTASNVSSTEPXYZRAH)(setqSD(/(getreal"螺旋起始直徑:")2))(setqED(/(getreal"螺旋終點直徑:")2))(s
7、etqTHS??(getreal"螺旋總高(每圈高度X圈數(shù)):"))(setqTAS??(getreal"總角度數(shù)(360X圈數(shù)):"))(setqNVS??(getint??"節(jié)點數(shù)([總角度數(shù)/間隔角度]+1):"))(setqSTEP(-NVS1))(setqX(/(-EDSD)STEP))(setqY(/THSSTEP))(setqZ(/TASSTEP))(setqRSD)(setqA0)(setqH0)(setvar"CMDECHO"??0)(command"3DPOLY"(strcat(rtosR)"<"(rtosA)","(rtosH)))(r
8、epeatSTEP(setqA(+AZ))(setq
