) (command "") (setvar "CMDECHO" 1) (princ) )
用 EXCEL 将螺旋线的 X、Y、Z 坐标计算出来，用“另存为”中的“CSV（逗号分隔）”格式存盘为.CSV 格式文件，用记事本打开此文件后全部复制。
进入 ACAD 中，在命令行中执行 3DPOLY，需坐标时用 CTRL+V 将数据粘过去就 OK！
如何绘制三维螺旋线(3dspiral)和平面螺旋线即阿基米德螺旋线（spiral)： ①将 Autodesk 公司网站 /icad/share/autocadtool.htm 打开上述网页，点击其中的：3dspiral.zip 用于螺旋线的绘制上的可下载软件：“3dspiral.Lsp” 复制到自己计算机硬盘下的“某”文件夹中； ②打开 AutoCADR14 或 R2000 绘图界面，利用 tool 下拉式菜单(Autolisp)load Application 命 令加载（Load）“3dspiral.Lsp”应用软件程序; ③人工键入命令(Command): 3dspiral (按回车键)---绘制三维螺旋线；
(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 回车，就开始了螺旋线的绘制
spiral (按回车键)---绘制二维螺旋线（即阿基米德螺旋线） ④按照自己的设计意图可连续回答该软件设置的 6 项提问后,就能画出较理想的各种螺旋线： 即绘制弹簧的路径(Path)。
运行 3dspiral 命令后，会陆续出现以下 6 个提问： 6 项提问分别是：
1.螺旋线起始的中心坐标； 2.起始的半径值； 3.螺旋线的圈数； 4.螺旋线水平（HOR）方向变化的螺距（柱状螺旋线为 0；宝塔形螺旋线有±之分）； 5.螺旋线垂直（VER）方向变化的螺距 (若输入 0，就是平面螺旋线）； 6.每条螺旋线的近似线数（默认为 30；数值愈大，近似程度愈高）。
画螺旋线的好方法
将下列程序复制到工具/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 "螺旋总高(每圈高度 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" 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)))
用 excel 画螺旋线的话，只要知道 x,y,z,的坐标方程式就很容易画出来了。 也可以不存为 csv 格式，如果 x 为 A 列，y 为 B 列，z 为 c 列，在 D1 输入公式“=a1&","&b1&","&c1”， 然后拖动到其它行构成如“x,y,z”的点表；复制 D 列的内容； 在 Acad 命令行输入命令“3dpoly”，回车，按“F2”切换至文本屏幕，粘贴，回车 些画法都是近似的，ACAD 的三维螺旋线用 PEDIT 光滑后无法作为拉伸的路径。因此这些螺旋 体都是一段一段的，精度开高一点，文件就比较大了，一般除了做特写，没多少实际意义。 用 INVENTOR 做就太简单了！！
zxdcad 附带了这个的图片 :
有个 lisp 小程序可以画，注意“每圈线段数”输入一个大于 30 的数，才显得圆。 ;; HELIX .LSP 螺旋线生成 (Defun C:Helix (/ p r b a m n x y da dz)
(SetQ p (GetPoint "\n 中心点: ") x (Car p) y (Cadr p)
Visual LISP 开发三维圆柱螺旋线 (2007-01-25 12:29:42) 标签：螺旋线 visual 圆柱螺旋线的形成 圆柱螺旋线是技术上应用最广的空间曲线，其形成如图 1 所示。一动点 M 沿圆柱的母线 AB 作等速直线运动，而该母线又绕圆柱的轴线作等角速旋转时，点 M 的运动轨迹即为圆柱螺旋线。 * 数学模型 当圆柱螺旋线的轴线与坐标系的 Z 轴重合时， 圆柱螺旋线上动点 M（x，y，z）的参数方程如下： x=rcosα y=rsinα z=±t1*α/(2π) 在参数方程中：r 为圆柱面的半径，α为螺旋线升角，t1 为导程（即母线 AB 旋转一周时， 动点 M 沿轴线方向上升的距离），右旋取正号，左旋取负号。
阿基米德螺旋线 用 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 "请输入螺纹平均半径: "))
z (Caddr p) r (GetDist p "\n 半径: ") b (GetDist p "\n 总高度: ") a (GetAngle p "\n 起始角: ") m (GetInt "\n 圈数: ") n (GetInt "\n 每圈线段数: ") da (/ (* m 2 Pi) (* m n)) dz (/ b (* m n)) ) (Command "3dpoly") (Repeat (1+ (* m n)) (Command (Polar (List x y z) a r)) (SetQ a (+ a da)
z (+ z dz) ) ) (Command "") (PrinC) )
直接画是很难的.你可以先用“电子表格”按阿基米德螺线公式计算出一列成对的 X、Y 的值。并做成“X，Y” 的形式，然后复制这一列值，在 CAD 里画样条时粘贴上去就成了，“电子表格”中取样越细，画的图越精确，， “电子表格”中取样细不会增加人的工作量的。 2。还可以用 CAXA 画，那更方便。
小议： 1.该软件最大的特点是操作简便，通俗易懂； 2.能画材料为圆形截面的各类尺寸形状的弹簧本体（无论是柱状还是宝塔状）； 3.设计完整弹簧还需继续画出弹簧的尾扣部分（无论是压簧还是拉簧）； 4.非圆截面（矩形、棱形、梯形）的弹簧用此方法绘制是不可行的； 5.普通螺纹和梯形螺纹的螺旋面用此方法绘制也是不可行的； 6.用此方法绘制的普通弹簧形状十分逼真、“准确”，尤其是赋予着色、渲染后，在三维立体 装配图中几乎可以达到“以假乱真”的地步。但是从该立体弹簧上不能“提取”任何有用的平面 元素（包括各种剖切面），原因就是我们熟悉的各种弹簧的二维平面视图是机械制图国家标 准规定的“简易画法”；更何况参数化绘制的弹簧也是一种近似的方法。
AUTO CAD 中如何画螺旋线？（请教思路） 10 分 回答：1 浏览：472 提问时间：2005-05-11 01:32 AUTO CAD 中如何画螺旋线？（请教思路） 最好有几个步骤，请用中文！
最佳答案 此答案由提问者自己选择，并不代表爱问知识人的观点
揪错 ┆ 评论
wang [先知] 1、打开ＣＡＤ后，找工具／ＡＵＴＯＬＩＳＰ／ＶＩＳＵＡＬ ＬＩＳＰ编辑器，打开．点新建文件 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、要用时，点工具／ＡＵＴＯＬＩＳＰ／加载，找到 luoxuan.lsp 文件将其加载，关闭对话框．在命令行输 入 luoxuan 回车，就开始了螺旋线的绘制 （摘自：/bbs/dispbbs.asp? boardID=8&RootID=31787&ID=31960)