AUTOCAD中如何畫螺旋線

1、AUTO CAD中如何畫螺旋線?AUTO CAD中如何畫螺旋線? 最好育幾個步驟.請用中文！ 論（請教思路）#10分 回答：1瀏覽：472提問時間：2005-05-11 01:32（請教思路）品最佳答案 此答案山提問者廣1己選抒？并不代表愛問知識人的觀點(diǎn)揪借：評先知1、打開CAD后，找工具/ AUTO L ISP/VISUAL L I S P 編輯器，打開.點(diǎn)新建文件2、然后輸入(defua c.luoxuan(0(setq bl (getpoint ”請指定螺旋線基點(diǎn)：J)(setq r (getreal 請輸入螺紋平均半徑：)(setq disp (getreal” 請輸入螺紋節(jié)距：)(s

2、etq n (getint輸入每圈細(xì)化段數(shù)：J)(setq delta (/ (# 2.0 pi) n)(setq j (/ disp n)(setq bb (caddr bl)(setq ang 0)(setq JJ 0)(Command UCS d bl)(Command M3dpolyM (list r 0 0)(repear n(setq jj(+ jj 1)(setq ang(+ delta ang)(setq pt2(list (? r (cos ang) (? r (sin ang) (+ 0 (?j jj)(Command pt2)(Command MM)存盤為luoxuan

3、lsp?關(guān)閉編輯器3、要用時，點(diǎn)工具/ AUTO L I S P /加載，找到luoxuanlsp文件將其加載，關(guān)閉對話框.任命令行輸 入 luoxuan同車，就開始了螺旋線的繪制(摘 I: HYPERLINK /bbsdispbbs /bbsdispbbs asp? boardID-8&RootID ? 31787&ID ? 31960)如何繪制三維螺旋線（ 3dspiral ） 和平面螺旋線即阿基米德螺旋線（ spiral ） ： 將 Autodesk 公司網(wǎng)站 HYPERLINK cn/icad cn/icad shareZautocadtool.htm打開上述網(wǎng)頁，點(diǎn)擊其中的： 3ds

4、piral.zip 用于螺旋線的繪制上的町下載軟件： 3dspiralLsp ”復(fù)制到自己計算機(jī)硬盤下的“某”文件夾中： 打開 AutoCADRM 或 R2000 繪圖界面，利用 tool T 拉式菜單（ Autolisp ） load Application 命 令加載 （ Load ） 3dspiral.Lsp 應(yīng)用軟件程序；” 人工鍵入命令（Command ） : 3dspiral （按回車鍵）繪制三維螺旋線；spiral （按回車鍵）-繪制二維螺旋線（即阿基米德螺旋線） 按照自己的設(shè)計意圖可連續(xù)回答該軟件設(shè)置的 6 項提問后，就能畫出較理想的各種螺旋線:即繪制彈簧的路徑 （ Path

5、） 。運(yùn)行 3dspual 命令后，會陸續(xù)出現(xiàn)以卜 6 個提問：6 項提問分別是：1?螺旋線起始的中心坐標(biāo)；2?起始的半徑值：3?螺旋線的圈數(shù)；4?螺旋線水平（ HOR） 方向變化的螺距（柱狀螺旋線為 0 ： 寶塔形螺旋線有土 Z 分）：5?螺旋線垂直（VER ） 方向變化的螺距（若輸入 0,就是平面螺旋線）：6. 每條螺旋線的近似線數(shù)（默認(rèn)為 30 ： 數(shù)值愈大，近似程度愈高）。小議：1?該軟件址大的特點(diǎn)是操作簡便，通俗易懂：2.能畫材料為罔形截面的各類尺寸形狀的彈簧本體（無論是柱狀還是寶塔狀）：3?設(shè)計完整彈費(fèi)還需繼續(xù)畫出彈贊的尾扣部分（無論是壓簧還是拉簧）；4?非圓截面（矩形、棱形、梯形

6、）的彈簧用此方法繪制是不可行的；5?普通螺紋和梯形螺紋的螺旋面用此方法繪制也是不可行的；6?用此方法繪制的普通彈簧形狀十分逼真、“準(zhǔn)確”，尤其是賦予著色、渲染后，在三維立體裝配圖中幾乎可以達(dá)到“以假亂真 的地步。但是從該立體彈簧上不能“提取 任何有用的平而 元素（包括各種剖切面），原因就是我們熟悉的各種彈簧的二維平面視圖是機(jī)械制圖國家標(biāo)準(zhǔn)規(guī)定的“簡易畫法”：更何況參數(shù)化繪制的彈簧也是一種近似的方法。畫螺旋線的好方法將下列程序復(fù)制到工具/AutolispMsual lisp 編輯器，然后粘貼保存為 lisp 源文件類型，要用時只 需加載該程序（工JV加我應(yīng)用程序）用是只需用命令：SPL(deft

7、rn C:SPL (/ SD ED THS TAS NVS STEP XYZRAH)(setq SD (/ (getreal ”螺旋起始直徑: ”)2)(setq ED (/ (getreal ”螺旋終點(diǎn)直徑: ”)2)(setqTHS (getreal ? 螺旋總高 ( 每圈高度 X 圈數(shù) ): ” )(setq TAS (getreal ”總角度數(shù)(360 X 圈數(shù) ): ” )(setqNVS (getmt ”節(jié)點(diǎn)數(shù) ( 總角度數(shù)/ 間隔角度 +1): “)(setq STEP (- NVS 1)(setq X (/(- ED SD) STEP)(setq Y (/ THS STEP)(

8、setqZ (/TAS STEP)(setq R SD)(setq A 0)(setq H 0)(setvar“ CMDECH” O 0)(command 3DPOLY” (strcat (rtos R) nM (rtos A) (rtos H)(repeat STEP(setq A (+AZ)(setq H(+H Y)(setq R(+R X)(command (strcat (rtos R) MH (rtos A) (rtos H)(coiranand ,H,)(setvar “ CMDECHOT)(pniic)用EXCEL將螺旋線的X、Y、Z坐標(biāo)計算出來，用啰存為沖的“CSV（逗號分隔廣

9、格式存盤為.CSV格式文件，用記事本打開此文件后全部復(fù)制。進(jìn)入 ACAD 中 . 在命令行中執(zhí)行3DPOT.Y. 需坐標(biāo)時用 CTRT.+V 將數(shù)據(jù)粘過？夫就OK! 用 excel 畫螺旋線的話，只耍知道tyz的坐標(biāo)方程式就很容易畫出來了。也可以不存為CST格式，如果x為A列，y為B列，z為c列，在D1輸入公式=al&,&bl& ”，&cB后拖動到其它行構(gòu)成如“xyZf勺點(diǎn)表；復(fù)制D列的內(nèi)容：在Acad命令行輸入命令回車，按“F沏換至文本屏幕，粘貼，回車 TOC o 1-5 h z 些畫法都足近似的，ACAD的三維螺旋線用PEDIT光滑后無法作為拉伸的路徑。因此這些螺旋體都是一段一段的，秸度升

10、高一點(diǎn)，文件就比較大了，一般除了做特寫，沒多少實際意義用INXTNTOR做就太簡單了 ！zxdcad附帶了這個的圖片:有?個lisp小程序可以畫，注意“每圈線段數(shù)”輸入一個人于30的數(shù)，才顯得圓。;HELIX LSP螺旋線生成(Defiui C:Helix (/ p r b a m n x y da dz)(SetQ p (GetPoint n 中心點(diǎn)：”)x (Car p)y (Cadi p)z (Caddr p)r (GetDist p n 半徑：”)b (GetDist p n 總高度:) a (GetAngle p n 起始角：)m (Getlnt n 圈數(shù):) n (Getlnt H

11、每圈線段數(shù)：)da (/ (* m 2 Pi) ( ? m n) dz (/ b ( ? m n)(Command 3dpoly)(Repeat (1+ ( ? m n)(Conmiand (Polar (List x y z) a r) (SetQ a 什 a da) z (+ z dz)(command ” )(PruiC)代接畫是很難的?你可以先用?電子表格”按阿基米德螺線公式計算出一列成對的X 、丫的值. 并做成 ? X, Y- 的形式，然荷復(fù)制這一列值，任 CAD里俄樣條時粘貼上決就成-屯子我格？?中U又樣越細(xì)，曲的圖越箱確，, 電子農(nóng)格-中U又樣細(xì)不會增加人的工作雖的。2還可以用C

12、AXA?i ,那更方便。阿基米德螺旋線用 autolisp 編程可以實現(xiàn).(command pline) (setq n 0)(repeat 1000(command (polar (list 0 0) (/ n 57.3) n) (setq n (1 + n) (comma nd)彈簧和螺紋( 三維 )、 打開 CAD 后, 找工具 /AUTOLISP/VISUAL LISP 編輯器，打開.點(diǎn)新建文件、 然后輸入(defun cJuoxuan (/)(setq D1 (getpoint 請指定蝶旋線呈點(diǎn)：)(setq r (getreal 請輸入螺紋平均半徑 :)(setq disp (ge

13、treal ?請輸入螺紋節(jié)距：J)(setq n (getint 請輸入每圈細(xì)化段數(shù)：)(setq delta (/ C 2.0 pi) n)(setq j (/ disp n)(setq bb (caddr b1)(setq ang 0)(setq jj 0)(Command UCS W oRb1)(Command 3dpoly* (list r 0 0)(repeat n(setq jj(+ jj 1)(setq ang(+ delta ang)(setq pt2(list (? r (cos ang) (* r (sin ang) (+ 0 (* j jj)(Command pt2)(C

14、ommand f,)存盤為luoxuan.lsp,關(guān)閉編牛也器3、要用時？點(diǎn)工具/ AUTOLISP /加載，找到luoxuan.lsp文件將英加載，關(guān)閉對話框？在命令行輸入luoxuan回車.就開始了螺旋線的繪制Msual LISP 開發(fā)三維圓柱螺旋線(2007-01-25 12:29:42)分類：CAD開發(fā)“題標(biāo)簽：螺旋線visual tl ii附線*圓柱螺旋線的形成圓柱螺旋線是技術(shù)上應(yīng)用域廣的空間曲線，具形成如圖1所示。一動點(diǎn)M沿圓柱的母線AB作等速逍線運(yùn)動，而該母線又繞圓柱的軸線作等角速旋域時，點(diǎn)M的運(yùn)動軌跡即為圓柱螺旋線.*數(shù)學(xué)模型當(dāng)圓柱螺旋線的軸線與坐標(biāo)系的Z軸重合時，圓柱螺旋線上

15、動點(diǎn)M (x, y, z)的參數(shù)方程如下：x=rcosay=rsmaz= tl*a/(2TT )在參數(shù)方程中：r為圓柱面的半徑，a為螺旋線升角，tl為導(dǎo)程(即母線AB旋轉(zhuǎn)i周時，動 點(diǎn)M沿軸線方向上升的距離)，右旋取正號，左旋U又負(fù)號。程序代碼打開AutoCAD2000進(jìn)入Visual LISP開發(fā)環(huán)境，新建一個文件.在Visual LISP文本編輯器 窗口 進(jìn)行程序代碼編制。繪制圓柱螺旋線的AutoLISP程序代碼如下：;Tlus program is usmg for drawing a helix(setq bl (getpoint 請輸入基點(diǎn) ： ) (setq r (getreal

16、半徑 r= ： )(setq tl (getreal 節(jié)距 tl= ： )(setq k (getint 段數(shù)k= ： )(setq n (getmt 圈數(shù)n= ： *)(setq ta (/ (* 2 3.14159) k)(setq jl (/ tl k)(setq a 0)(setq jj 0)(setq li 0)(command HucsM MoM bl)(command M3dpoly n (list r 0 0)(repeat n(repeat k(setq JJ 什 JJ 1) TOC o 1-5 h z (setqa(+taa)(setqx(*r(cosa)(setqy(*r

17、(sma)(setqz(*jljj)(setq p2 (list x yz)(command p2)(setq li (+ li 1)(setq z (* tl ii)(command )在電子圖版CAXA中用公式曲線畫好，然后存為CAD的DWG文件即口 J!哈哈！這是故省事的做法！應(yīng)該用 lisp 代碼比較好，但是好象很多人都不愿學(xué)那個仃一種比校簡單的亦法是用 excel 獲得點(diǎn)坐標(biāo).新建一個excel表，al單尤格中輸入12?在 a2 單元格輸入公式 :=30*SIN(Al*PI()/180)其中 30 是振幅衛(wèi) 1 是指 al 單元格 ,PI()/180 是把弧度轉(zhuǎn)為角度3?在 a3 單

18、元格輸入: =A1&T&B1為了在輸入坐標(biāo)時要用逗號把數(shù)字分開bl-b3ctrl+T在 bl 單元格中輸入2”選中al-a3 單元格，用句柄拖好選中 al-b3, 用句柄拖到第360 行&選中第三列，復(fù)制在 acad 中點(diǎn)選 pline 命令，用鼠標(biāo)點(diǎn)擊命令行，按卜”祝成功止確的程序應(yīng)該是：(defun c:zx(/ a b c x y h os)(setq a 1)(setq b 2)(setq c 3)(setq h 0.01)(setq x 0.0)(setq os (getvar wosmode w)(setvar wosmode w 0)(command line -0,0)(whi

19、le (= x 15)(setq x (+ x h)(setq y (+ C a (sin (* x b) c)(command (list x y)(command m,)(setvar Mosmode f, os)這樣寫更黃觀、更好懂空（多用個局部變量p） (defun c:zx(/ a b c x y h p os)(setq a 1 b 2 c 3 h 0.01 x 0.0)(setq os (getvar -osmode-)(setva wosmode w 0)(command line - 0,0 ”)(while (= x 15)(setq x (+ x h)(setq y (+

20、 (? a (sin (* x b) c)(setq p (list x y)(command p)(command M)(setvar -osmode* os)程序由三部分組成，主體和兩個地位相同的子函數(shù)( 局部的 ) ，主體完成周期、振幅和起點(diǎn)的輸入與分析計算，子日勺數(shù)P完成正弦怖數(shù)值的計算并產(chǎn)生所需要的循環(huán)間圖，子函數(shù) fp完成坐標(biāo)值的平移和旋轉(zhuǎn)變換，并將計算值合成點(diǎn)供rp 使用：(derun c.sl( / p1 p2 p3 xO yO x y a u d r ti Tp rp)(defun fp(x y / xx yy)(setq xx (- (* x (cos a) (* y (s

21、in a)(setq yy (+ (* x (sin a) (* y (cos a)(list (+ xx xO) (+ yy yO)(defun rp(n dx)(repeat n(setq d (+ d dx) x (* d c) y (sin x) x (* (/ d 180) h) y (* f y)(command (fp x y)(setq pl (getpoint ”指定起點(diǎn) ) p2 (getpoint pl ”指定終點(diǎn) J) (setq p3 (getpoint p1 5 指示振幅 J c (/ pi 180)(setq xO (car p1) yO (cadr p1) h

22、(distance p1 p2) a (angle p1 p2)(setq x (- (car p3) xO) y (- (cadr p3) yO) f (- (* y (cos a) (* x (sin a)(setq d 0.0 p3 (getvar -osmode 11)(command cmdecho 0wosmode M 0 spline p1)(rp 6 5) (rp 15 2) (rp 60 1) (rp 15 2) (rp 5 5)(command p2 ww 初 m, osmode M p3)(pnnc)這個程序只完成半個周期的繪制 . 實際使用中多半只需如此。程序啟動后需要

23、輸入三個點(diǎn)：起點(diǎn)、終 點(diǎn)和第三點(diǎn) p1.p2.p3, 程序根據(jù) p1,p2 計算半周期，將p3 到 p1.p2 連線的覽離作為振幅，同時p3 任 p1, p2 連線的哪-邊決定了曲線畫在p1,p2連線的哪一邊。所有CAD有關(guān)點(diǎn)輸入的方式與技巧.在此都適用.N卻是用這個程序產(chǎn)生的螺旋推進(jìn)器的圖：如果使用CAD 11帶的坐標(biāo)旋轉(zhuǎn)功能，則程序還可以進(jìn) -步簡化.另外7”與CAD的剖切指令的縮寫同名?好在三維指令使用的不多.弁H此命令有工具按鈕.所以沖突不大.改成其他的名稱是很容易的。EXCEL中如何畫正弦曲線（sinx）發(fā)Z : 2007-8-17 15:16:00 同吏fujiard115同學(xué)中午

24、問到一個問題，即 EXCEL中如何畫正弦曲線，方法解答如 F：一設(shè)置x.y軸的值X：在第一列A中，取陽到A361 （不為A360）為裝載X軸數(shù)值的單元格，A1輸入0. A2輸入 =A1+2*PI （） /360 （不能將二或右”遺忘），然后拖動填充町完成數(shù)據(jù)輸入：y:同樣取B1到B361.在B1中輸入=sin （a1）,然后拖動填充至B361完成數(shù)據(jù)輸 入。二繪制曲線選中Y軸的所有數(shù)據(jù)（即B1到B361 ），然后點(diǎn)常用工具欄里的“圖表向?qū)А卑粹o，彈出對話框，圖表類型選擇“X檄點(diǎn)圖”，右邊的子圖表類型選擇“無數(shù)據(jù)點(diǎn)平滑 線散點(diǎn)圖”，然后點(diǎn) 擊完成即可，也可點(diǎn)“下一步”設(shè)置圖表上顯示 X, 丫軸標(biāo)志的 字樣。說明：步驟一中的單元格列數(shù)取 360,是為了在最后的圖表中顯示 0, 360充到度數(shù)， 如果取40, 100也可 以劃出曲線，但橫軸上標(biāo)注的曲線 X軸范闈是0-40和0-1 00,而不是0-360 :同時取值越多，曲線 越平滑。步驟二中的圖表類型，也町以選擇自定義或者“X澈點(diǎn)圖”中子類型“平滑線散點(diǎn) 圖”等，只是效果不同。川Autolisp在AutoCAD中實現(xiàn)多種曲線的繪制引言：AutoCAD自1982年山Autodcsk公訶推出以來，經(jīng)歷了20年的發(fā)展更 新，目前，已深入到包插機(jī)械、建筑、服裝、航天航空、地質(zhì)氣彖等等的眾 多領(lǐng)域中 .