《中如何畫螺旋線》word版

《《中如何畫螺旋線》word版》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。

1、AUTOCAD中如何畫螺旋線？（請教思路）10分回答：1?瀏覽：472?提問時間：2005-05-1101:32AUTOCAD中如何畫螺旋線？（請教思路）最好有幾個步驟，請用中文！共0條評論...最佳答案此答案由提問者自己選擇，并不代表愛問知識人的觀點揪錯┆評論┆舉報wang[先知]1、打開ＣＡＤ后，找工具／ＡＵＴＯＬＩＳＰ／ＶＩＳＵＡＬ?。蹋桑樱芯庉嬈?，打開．點新建文件2、然后輸入(defunc:luoxuan(/)(setqb1(getpoint"請指定螺旋線基點:"))(setqr(getreal"請輸入螺紋平均半徑

2、:"))(setqdisp(getreal"請輸入螺紋節(jié)距:"))(setqn(getint"請輸入每圈細化段數(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(*jj

3、j))))(Commandpt2))(Command""))存盤為luoxuan.lsp，關(guā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.

4、icad.com.cn/icad/share/autocadtool.htm??打開上述網(wǎng)頁，點擊其中的：3dspiral.zip用于螺旋線的繪制上的可下載軟件：“3dspiral.Lsp”復(fù)制到自己計算機硬盤下的“某”文件夾中；②打開AutoCADR14或R2000繪圖界面，利用tool下拉式菜單(Autolisp)loadApplication命令加載（Load）“3dspiral.Lsp”應(yīng)用軟件程序;③人工鍵入命令(Command):3dspiral(按回車鍵)---繪制三維螺旋線；????????????????

5、spiral??(按回車鍵)---繪制二維螺旋線（即阿基米德螺旋線）④按照自己的設(shè)計意圖可連續(xù)回答該軟件設(shè)置的6項提問后,就能畫出較理想的各種螺旋線：即繪制彈簧的路徑(Path)。運行3dspiral命令后，會陸續(xù)出現(xiàn)以下6個提問：??6項提問分別是：1.螺旋線起始的中心坐標；2.起始的半徑值；3.螺旋線的圈數(shù)；4.螺旋線水平（HOR）方向變化的螺距（柱狀螺旋線為0；寶塔形螺旋線有±之分）；5.螺旋線垂直（VER）方向變化的螺距(若輸入0，就是平面螺旋線）；6.每條螺旋線的近似線數(shù)（默認為30；數(shù)值愈大，近似程度愈高）。?

6、?小議：1.該軟件最大的特點是操作簡便，通俗易懂；2.能畫材料為圓形截面的各類尺寸形狀的彈簧本體（無論是柱狀還是寶塔狀）；3.設(shè)計完整彈簧還需繼續(xù)畫出彈簧的尾扣部分（無論是壓簧還是拉簧）；4.非圓截面（矩形、棱形、梯形）的彈簧用此方法繪制是不可行的；5.普通螺紋和梯形螺紋的螺旋面用此方法繪制也是不可行的；6.用此方法繪制的普通彈簧形狀十分逼真、“準確”，尤其是賦予著色、渲染后，在三維立體裝配圖中幾乎可以達到“以假亂真”的地步。但是從該立體彈簧上不能“提取”任何有用的平面元素（包括各種剖切面），原因就是我們熟悉的各種彈簧的二

7、維平面視圖是機械制圖國家標準規(guī)定的“簡易畫法”；更何況參數(shù)化繪制的彈簧也是一種近似的方法。畫螺旋線的好方法將下列程序復(fù)制到工具/Autolisp/visuallisp編輯器,然后粘貼保存為lisp源文件類型,要用時只需加載該程序(工具/加載應(yīng)用程序)用是只需用命令:SPL(defunC:SPL(/SDEDTHSTASNVSSTEPXYZRAH)(setqSD(/(getreal"螺旋起始直徑:")2))(setqED(/(getreal"螺旋終點直徑:")2))(setqTHS??(getreal"螺旋總高(每圈高度X圈數(shù)

8、):"))(setqTAS??(getreal"總角度數(shù)(360X圈數(shù)):"))(setqNVS??(getint??"節(jié)點數(shù)([總角度數(shù)/間隔角度]+1):"))(setqSTEP(-NVS1))(setqX(/(-EDSD)STEP))(setqY(/THSSTEP))(setqZ(/TASSTEP