1。直接畫是很難的.你可以先用“電子表格”按阿基米德螺線公式計算出一列成對的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 (1+ n)) ) (command) 彈簧和螺紋（三維） 1、開啟CAD後，找工具／AUTOLISP／VISUAL LISP編輯器，開啟．點新建檔案 2、然後輸入 (defun c:luoxuan (/) (setq b1 (getpoint "請指定螺旋線基點: ")) (setq r (getreal "請輸入螺紋平均半徑: ")) (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(+ delta ang)) (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j jj)))) (Command pt2) ) (Command "") ) 存檔為luoxuan.lsp，關閉編輯器 3、要用時，點工具／AUTOLISP／載入，找到luoxuan.lsp檔案將其載入，關閉對話方塊．在命令列輸入luoxuan回車，就開始了螺旋線的繪製
1。直接畫是很難的.你可以先用“電子表格”按阿基米德螺線公式計算出一列成對的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 (1+ n)) ) (command) 彈簧和螺紋（三維） 1、開啟CAD後，找工具／AUTOLISP／VISUAL LISP編輯器，開啟．點新建檔案 2、然後輸入 (defun c:luoxuan (/) (setq b1 (getpoint "請指定螺旋線基點: ")) (setq r (getreal "請輸入螺紋平均半徑: ")) (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(+ delta ang)) (setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j jj)))) (Command pt2) ) (Command "") ) 存檔為luoxuan.lsp，關閉編輯器 3、要用時，點工具／AUTOLISP／載入，找到luoxuan.lsp檔案將其載入，關閉對話方塊．在命令列輸入luoxuan回車，就開始了螺旋線的繪製