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