1、AUTO CAD 中如何畫螺旋線？（請教思路） 10分 回答：1   瀏覽：472   提問時間：2005-05-11 01:32AUTO CAD 中如何畫螺旋線？（請教思路） 最好有幾個步驟，請用中文！ 共0條評論.最佳答案 此答案由提問者自己選擇，并不代表愛問知識人的觀點 揪錯 評論 舉報 wang先知 1、打開后，找工具編輯器，打開點新建文件 2、然后輸入 (defun c:luoxuan (/) (setq b1 (getpoint "請指定螺旋線基點: ") (setq r (getreal "請輸入螺紋平均半徑: ") (

2、setq disp (getreal "請輸入螺紋節距: ") (setq n (getint "請輸入每圈細化段數: ") (setq delta (/ (* 2.0 pi) n) (setq j (/ disp n) (setq bb (caddr b1) (setq ang 0) (setq jj 0) (Command "UCS" "o" b1) (Command "3dpoly" (list r 0 0) (repeat n (setq jj(+ jj 1) (setq ang(+ d

3、elta ang) (setq pt2(list (* r (cos ang) (* r (sin ang) (+ 0 (* j jj) (Command pt2) ) (Command "") ) 存盤為luoxuan.lsp，關閉編輯器 3、要用時，點工具加載，找到luoxuan.lsp文件將其加載，關閉對話框在命令行輸入luoxuan回車，就開始了螺旋線的繪制 （摘自： boardID=8&RootID=31787&ID=31960) 如何繪制三維螺旋線(3dspiral)和平面螺旋線即阿基米德螺旋線（spiral)：將Autodesk公司網站

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

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

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

7、畫法”；更何況參數化繪制的彈簧也是一種近似的方法。畫螺旋線的好方法將下列程序復制到工具/Autolisp/visual lisp編輯器,然后粘貼保存為lisp源文件類型,要用時只需加載該程序(工具/加載應用程序)用是只需用命令:SPL(defun C:SPL (/ SD ED THS TAS NVS STEP X Y Z R A H)(setq SD (/ (getreal "螺旋起始直徑: ") 2)(setq ED (/ (getreal "螺旋終點直徑: ") 2)(setq THS    (getreal "螺旋總高

8、(每圈高度X 圈數): ")(setq TAS    (getreal "總角度數(360 X 圈數): ")(setq NVS    (getint  "節點數(總角度數/間隔角度+1): ")(setq STEP (- NVS 1)(setq X (/ (- ED SD) STEP)(setq Y (/ THS STEP)(setq Z (/ TAS STEP)(setq R SD)(setq A 0)(setq H 0)(setvar "CMDECHO"

9、60; 0)(command "3DPOLY" (strcat (rtos R) "<" (rtos A) "," (rtos H)(repeat STEP(setq A (+ A Z)(setq H (+ H Y)(setq R (+ R X)(command (strcat (rtos R) "<" (rtos A) "," (rtos H)  )(command "")(setvar "CMDECHO"

10、60; 1)(princ)用EXCEL將螺旋線的X、Y、Z坐標計算出來，用“另存為”中的“CSV（逗號分隔）”格式存盤為.CSV格式文件，用記事本打開此文件后全部復制。進入ACAD中，在命令行中執行3DPOLY，需坐標時用CTRL+V將數據粘過去就OK！ 用excel 畫螺旋線的話，只要知道x,y,z,的坐標方程式就很容易畫出來了。也可以不存為csv格式，如果x為A列，y為B列，z為c列，在D1輸入公式“=a1&","&b1&","&c1”，然后拖動到其它行構成如“x,y,z”的點表；復制D列的內容；在Acad命

11、令行輸入命令“3dpoly”，回車，按“F2”切換至文本屏幕，粘貼，回車些畫法都是近似的，ACAD的三維螺旋線用PEDIT光滑后無法作為拉伸的路徑。因此這些螺旋體都是一段一段的，精度開高一點，文件就比較大了，一般除了做特寫，沒多少實際意義。用INVENTOR做就太簡單了！ zxdcad 附帶了這個的圖片 :有個lisp小程序可以畫，注意“每圈線段數”輸入一個大于30的數，才顯得圓。; HELIX .LSP 螺旋線生成(Defun C:Helix (/ p r b a m n 

12、x y da dz)  (SetQ    p  (GetPoint "n中心點: ")    x  (Car p)    y  (Cadr p)    z  (Caddr p)    r &

13、#160;(GetDist p "n半徑: ")    b  (GetDist p "n總高度: ")    a  (GetAngle p "n起始角: ")    m  (GetInt "n圈數: ")  &

14、#160; n  (GetInt "n每圈線段數: ")    da (/ (* m 2 Pi) (* m n)    dz (/ b (* m n)  )  (Command "3dpoly")  (Repeat (1

15、+ (* m n)    (Command (Polar (List x y z) a r)    (SetQ a (+ a da)      z (+ z dz)    )  )  (Command 

16、;"")  (PrinC)直接畫是很難的.你可以先用“電子表格”按阿基米德螺線公式計算出一列成對的X、Y的值。并做成“X，Y”的形式，然后復制這一列值，在CAD里畫樣條時粘貼上去就成了，“電子表格”中取樣越細，畫的圖越精確，“電子表格”中取樣細不會增加人的工作量的。 2。還可以用CAXA畫，那更方便。 阿基米德螺旋線 用autolisp編程可以實現. (command "pline" ) (setq n 0) (repeat 1000 (command (polar (list 0 0) (/ n 57.3) n) (setq n (

17、1+ n) ) (command) 彈簧和螺紋（三維） 1、打開CAD后，找工具AUTOLISPVISUAL LISP編輯器，打開點新建文件 2、然后輸入 (defun c:luoxuan (/) (setq b1 (getpoint "請指定螺旋線基點: ") (setq r (getreal "請輸入螺紋平均半徑: ") (setq disp (getreal "請輸入螺紋節距: ") (setq n (getint "請輸入每圈細化段數: ") (setq delta (/ (* 2.0 pi) n) (se

18、tq j (/ disp n) (setq bb (caddr b1) (setq ang 0) (setq jj 0) (Command "UCS" "o" b1) (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) ) (Command "") ) 存盤為lu

19、oxuan.lsp，關閉編輯器 3、要用時，點工具AUTOLISP加載，找到luoxuan.lsp文件將其加載，關閉對話框在命令行輸入luoxuan回車，就開始了螺旋線的繪制Visual LISP開發三維圓柱螺旋線 (2007-01-25 12:29:42) 標簽：螺旋線 visual t1 ii 母線  分類：CAD開發專題     * 圓柱螺旋線的形成 圓柱螺旋線是技術上應用最廣的空間曲線，其形成如圖1所示。一動點M沿圓柱的母線AB作等速直線運動，而該母線又繞圓柱的軸線作等角速旋轉

20、時，點M的運動軌跡即為圓柱螺旋線。* 數學模型當圓柱螺旋線的軸線與坐標系的Z軸重合時，圓柱螺旋線上動點M（x，y，z）的參數方程如下：x=rcosy=rsinz=±t1*/(2)在參數方程中：r為圓柱面的半徑，為螺旋線升角，t1為導程（即母線AB旋轉一周時，動點M沿軸線方向上升的距離），右旋取正號，左旋取負號。 程序代碼打開AutoCAD2000進入Visual LISP開發環境，新建一個文件，在Visual LISP文本編輯器窗口進行程序代碼編制。繪制圓柱螺旋線的AutoLISP程序代碼如下：  This program is using for drawing

21、 a helix (setqb1(getpoint"請輸入基點：") (setqr(getreal"半徑 r=：")(setqt1(getreal"節距 t1=：") (setqk(getint"段數 k=：")(setqn(getint"圈數 n=：") (setqta(/(*23.14159)k)(setqj1(/t1k) (setqa0) (setqjj0) (setqii0) (command"uc

22、s""o"b1) (command"3dpoly"(listr00) (repeatn (repeatk (setqjj(+jj1) (setqa(+taa) (setqx(*r(cosa) (setqy(*r(sina) (setqz(*j1jj) (setqp2(listxyz) (commandp2) ) (setqii(+ii1) (setqz(*t1ii) ) (command"

23、;" ) 在電子圖版CAXA中用公式曲線畫好，然后存為CAD的DWG文件即可！哈哈！這是最省事的做法！應該用lisp代碼比較好,但是好象很多人都不愿學那個有一種比較簡單的辦法是用excel獲得點坐標1.新建一個excel表,a1單元格中輸入12.在a2單元格輸入公式:=30*SIN(A1*PI()/180)其中30是振幅,a1是指a1單元格,PI()/180是把弧度轉為角度3.在a3單元格輸入:=A1&","&B1為了在輸入坐標時要用逗號把數字分開4.在b1單元格中輸入2,選中a1-a3單元格,用句柄拖好b1-b35.選中a1-b3,用句

24、柄拖到第360行6.選中第三列,復制7.在acad中點選pline命令,用鼠標點擊命令行,按下"ctrl+V"祝成功正確的程序應該是：(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 "osmode")(setvar "osmode" 0)(command "line" "0,0")(while (<= x 15)(setq x (+ x

25、h)(setq y (+ (* a (sin (* x b) c)(command (list x y)(command "")(setvar "osmode" 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")(setvar "osmode" 0)(command "line" "0,0")(whil

26、e (<= x 15)(setq x (+ x h)(setq y (+ (* a (sin (* x b) c)(setq p (list x y)(command p)(command "")(setvar "osmode" os)程序由三部分組成，主體和兩個地位相同的子函數（局部的），主體完成周期、振幅和起點的輸入與分析計算，子函數rp完成正弦函數值的計算并產生所需要的循環畫圖，子函數fp完成坐標值的平移和旋轉變換，并將計算值合成點供rp使用：(defun c:sl( / p1 p2 p3 x0 y0 x y a c d f h fp rp)

27、(defun fp(x y / xx yy)(setq xx (- (* x (cos a) (* y (sin a)(setq yy (+ (* x (sin a) (* y (cos a)(list (+ xx x0) (+ yy y0)(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 p1 (getpoint "n指定起點") p2 (getpoint p1 "n指定終點")(setq p3 (getpoint p1 "n指示振幅") c (/ pi 180)(setq x0 (car p1) y0 (cadr p1) h (distance p1 p2) a (angle p1 p2)(setq x (- (car p3) x0) y (- (cadr p3) y0) f (- (* y (cos a) (* x (sin a)(setq d 0.0 p3 (getvar "osmode")(command "cmdecho" 0 "osmode"