AUTOCAD中如何畫螺旋線

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

2、etq n (getint輸入每圈細化段數(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?關閉編輯器3、要用時，點工具/ AUTO L I S P /加載，找到luoxuanlsp文件將其加載，關閉對話框.任命令行輸 入 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)頁，點擊其中的： 3ds

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

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

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

7、rn C:SPL (/ SD ED THS TAS NVS STEP XYZRAH)(setq SD (/ (getreal ”螺旋起始直徑: ”)2)(setq ED (/ (getreal ”螺旋終點直徑: ”)2)(setqTHS (getreal ? 螺旋總高 ( 每圈高度 X 圈數(shù) ): ” )(setq TAS (getreal ”總角度數(shù)(360 X 圈數(shù) ): ” )(setqNVS (getmt ”節(jié)點數(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坐標計算出來，用啰存為沖的“CSV（逗號分隔廣

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

10、高一點，文件就比較大了，一般除了做特寫，沒多少實際意義用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 中心點：”)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- 的形式，然荷復制這一列值，任 CAD里俄樣條時粘貼上決就成-屯子我格？?中U又樣越細，曲的圖越箱確，, 電子農(nóng)格-中U又樣細不會增加人的工作雖的。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 編輯器，打開.點新建文件、 然后輸入(defun cJuoxuan (/)(setq D1 (getpoint 請指定蝶旋線呈點：)(setq r (getreal 請輸入螺紋平均半徑 :)(setq disp (ge

13、treal ?請輸入螺紋節(jié)距：J)(setq n (getint 請輸入每圈細化段數(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,關閉編牛也器3、要用時？點工具/ AUTOLISP /加載，找到luoxuan.lsp文件將英加載，關閉對話框？在命令行輸入luoxuan回車.就開始了螺旋線的繪制Msual LISP 開發(fā)三維圓柱螺旋線(2007-01-25 12:29:42)分類：CAD開發(fā)“題標簽：螺旋線visual tl ii附線*圓柱螺旋線的形成圓柱螺旋線是技術上應用域廣的空間曲線，具形成如圖1所示。一動點M沿圓柱的母線AB作等速逍線運動，而該母線又繞圓柱的軸線作等角速旋域時，點M的運動軌跡即為圓柱螺旋線.*數(shù)學模型當圓柱螺旋線的軸線與坐標系的Z軸重合時，圓柱螺旋線上

15、動點M (x, y, z)的參數(shù)方程如下：x=rcosay=rsmaz= tl*a/(2TT )在參數(shù)方程中：r為圓柱面的半徑，a為螺旋線升角，tl為導程(即母線AB旋轉(zhuǎn)i周時，動 點M沿軸線方向上升的距離)，右旋取正號，左旋U又負號。程序代碼打開AutoCAD2000進入Visual LISP開發(fā)環(huán)境，新建一個文件.在Visual LISP文本編輯器 窗口 進行程序代碼編制。繪制圓柱螺旋線的AutoLISP程序代碼如下：;Tlus program is usmg for drawing a helix(setq bl (getpoint 請輸入基點 ： ) (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!哈哈！這是故省事的做法！應該用 lisp 代碼比較好，但是好象很多人都不愿學那個仃一種比校簡單的亦法是用 excel 獲得點坐標.新建一個excel表，al單尤格中輸入12?在 a2 單元格輸入公式 :=30*SIN(Al*PI()/180)其中 30 是振幅衛(wèi) 1 是指 al 單元格 ,PI()/180 是把弧度轉(zhuǎn)為角度3?在 a3 單

18、元格輸入: =A1&T&B1為了在輸入坐標時要用逗號把數(shù)字分開bl-b3ctrl+T在 bl 單元格中輸入2”選中al-a3 單元格，用句柄拖好選中 al-b3, 用句柄拖到第360 行&選中第三列，復制在 acad 中點選 pline 命令，用鼠標點擊命令行，按卜”祝成功止確的程序應該是：(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ù)( 局部的 ) ，主體完成周期、振幅和起點的輸入與分析計算，子日勺數(shù)P完成正弦怖數(shù)值的計算并產(chǎn)生所需要的循環(huán)間圖，子函數(shù) fp完成坐標值的平移和旋轉(zhuǎ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 ”指定起點 ) p2 (getpoint pl ”指定終點 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、輸入三個點：起點、終 點和第三點 p1.p2.p3, 程序根據(jù) p1,p2 計算半周期，將p3 到 p1.p2 連線的覽離作為振幅，同時p3 任 p1, p2 連線的哪-邊決定了曲線畫在p1,p2連線的哪一邊。所有CAD有關點輸入的方式與技巧.在此都適用.N卻是用這個程序產(chǎn)生的螺旋推進器的圖：如果使用CAD 11帶的坐標旋轉(zhuǎn)功能，則程序還可以進 -步簡化.另外7”與CAD的剖切指令的縮寫同名?好在三維指令使用的不多.弁H此命令有工具按鈕.所以沖突不大.改成其他的名稱是很容易的。EXCEL中如何畫正弦曲線（sinx）發(fā)Z : 2007-8-17 15:16:00 同吏fujiard115同學中午

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