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” 请输入螺纹节距：)(s

2、etq n (getint输入每圈细化段数：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 公司网站 HYPERLINK cn/icad cn/icad shareZautocadtool.htm打开上述网页，点击其中的： 3ds

4、piral.zip 用于螺旋线的绘制上的町下载软件： 3dspiralLsp ”复制到自己计算机硬盘下的“某”文件夹中： 打开 AutoCADRM 或 R2000 绘图界面，利用 tool T 拉式菜单（ Autolisp ） load Application 命 令加载 （ Load ） 3dspiral.Lsp 应用软件程序；” 人工键入命令（Command ） : 3dspiral （按回车键）绘制三维螺旋线；spiral （按回车键）-绘制二维螺旋线（即阿基米德螺旋线） 按照自己的设计意图可连续回答该软件设置的 6 项提问后，就能画出较理想的各种螺旋线:即绘制弹簧的路径 （ Path

5、） 。运行 3dspual 命令后，会陆续出现以卜 6 个提问：6 项提问分别是：1?螺旋线起始的中心坐标；2?起始的半径值：3?螺旋线的圈数；4?螺旋线水平（ HOR） 方向变化的螺距（柱状螺旋线为 0 ： 宝塔形螺旋线有土 Z 分）：5?螺旋线垂直（VER ） 方向变化的螺距（若输入 0,就是平面螺旋线）：6. 每条螺旋线的近似线数（默认为 30 ： 数值愈大，近似程度愈高）。小议：1?该软件址大的特点是操作简便，通俗易懂：2.能画材料为罔形截面的各类尺寸形状的弹簧本体（无论是柱状还是宝塔状）：3?设计完整弹费还需继续画出弹赞的尾扣部分（无论是压簧还是拉簧）；4?非圆截面（矩形、棱形、梯形

6、）的弹簧用此方法绘制是不可行的；5?普通螺纹和梯形螺纹的螺旋面用此方法绘制也是不可行的；6?用此方法绘制的普通弹簧形状十分逼真、“准确”，尤其是赋予着色、渲染后，在三维立体装配图中几乎可以达到“以假乱真 的地步。但是从该立体弹簧上不能“提取 任何有用的平而 元素（包括各种剖切面），原因就是我们熟悉的各种弹簧的二维平面视图是机械制图国家标准规定的“简易画法”：更何况参数化绘制的弹簧也是一种近似的方法。画螺旋线的好方法将下列程序复制到工具/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 圈数 ): ” )(setq TAS (getreal ”总角度数(360 X 圈数 ): ” )(setqNVS (getmt ”节点数 ( 总角度数/ 间隔角度 +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 中 . 在命令行中执行3DPOT.Y. 需坐标时用 CTRT.+V 将数据粘过？夫就OK! 用 excel 画螺旋线的话，只耍知道tyz的坐标方程式就很容易画出来了。也可以不存为CST格式，如果x为A列，y为B列，z为c列，在D1输入公式=al&,&bl& ”，&cB后拖动到其它行构成如“xyZf勺点表；复制D列的内容：在Acad命令行输入命令回车，按“F沏换至文本屏幕，粘贴，回车 TOC o 1-5 h z 些画法都足近似的，ACAD的三维螺旋线用PEDIT光滑后无法作为拉伸的路径。因此这些螺旋体都是一段一段的，秸度升

10、高一点，文件就比较大了，一般除了做特写，没多少实际意义用INXTNTOR做就太简单了 ！zxdcad附带了这个的图片:有?个lisp小程序可以画，注意“每圈线段数”输入一个人于30的数，才显得圆。;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 圈数:) n (Getlnt H

11、每圈线段数：)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又样越细，曲的图越箱确，, 电子农格-中U又样细不会增加人的工作虽的。2还可以用C

12、AXA?i ,那更方便。阿基米德螺旋线用 autolisp 编程可以实现.(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 ?请输入螺纹节距：J)(setq n (getint 请输入每圈细化段数：)(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 开发三维圆柱螺旋线(2007-01-25 12:29:42)分类：CAD开发“题标签：螺旋线visual tl ii附线*圆柱螺旋线的形成圆柱螺旋线是技术上应用域广的空间曲线，具形成如图1所示。一动点M沿圆柱的母线AB作等速逍线运动，而该母线又绕圆柱的轴线作等角速旋域时，点M的运动轨迹即为圆柱螺旋线.*数学模型当圆柱螺旋线的轴线与坐标系的Z轴重合时，圆柱螺旋线上

15、动点M (x, y, z)的参数方程如下：x=rcosay=rsmaz= tl*a/(2TT )在参数方程中：r为圆柱面的半径，a为螺旋线升角，tl为导程(即母线AB旋转i周时，动 点M沿轴线方向上升的距离)，右旋取正号，左旋U又负号。程序代码打开AutoCAD2000进入Visual LISP开发环境，新建一个文件.在Visual LISP文本编辑器 窗口 进行程序代码编制。绘制圆柱螺旋线的AutoLISP程序代码如下：;Tlus program is usmg for drawing a helix(setq bl (getpoint 请输入基点 ： ) (setq r (getreal

16、半径 r= ： )(setq tl (getreal 节距 tl= ： )(setq k (getint 段数k= ： )(setq n (getmt 圈数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 是振幅卫 1 是指 al 单元格 ,PI()/180 是把弧度转为角度3?在 a3 单

18、元格输入: =A1&T&B1为了在输入坐标时要用逗号把数字分开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)程序由三部分组成，主体和两个地位相同的子函数( 局部的 ) ，主体完成周期、振幅和起点的输入与分析计算，子日勺数P完成正弦怖数值的计算并产生所需要的循环间图，子函数 fp完成坐标值的平移和旋转变换，并将计算值合成点供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, 程序根据 p1,p2 计算半周期，将p3 到 p1.p2 连线的览离作为振幅，同时p3 任 p1, p2 连线的哪-边决定了曲线画在p1,p2连线的哪一边。所有CAD有关点输入的方式与技巧.在此都适用.N却是用这个程序产生的螺旋推进器的图：如果使用CAD 11带的坐标旋转功能，则程序还可以进 -步简化.另外7”与CAD的剖切指令的缩写同名?好在三维指令使用的不多.弁H此命令有工具按钮.所以冲突不大.改成其他的名称是很容易的。EXCEL中如何画正弦曲线（sinx）发Z : 2007-8-17 15:16:00 同吏fujiard115同学中午

24、问到一个问题，即 EXCEL中如何画正弦曲线，方法解答如 F：一设置x.y轴的值X：在第一列A中，取阳到A361 （不为A360）为装载X轴数值的单元格，A1输入0. A2输入 =A1+2*PI （） /360 （不能将二或右”遗忘），然后拖动填充町完成数据输入：y:同样取B1到B361.在B1中输入=sin （a1）,然后拖动填充至B361完成数据输 入。二绘制曲线选中Y轴的所有数据（即B1到B361 ），然后点常用工具栏里的“图表向导”按钮，弹出对话框，图表类型选择“X檄点图”，右边的子图表类型选择“无数据点平滑 线散点图”，然后点 击完成即可，也可点“下一步”设置图表上显示 X, 丫轴标志的 字样。说明：步骤一中的单元格列数取 360,是为了在最后的图表中显示 0, 360充到度数， 如果取40, 100也可 以划出曲线，但横轴上标注的曲线 X轴范闱是0-40和0-1 00,而不是0-360 :同时取值越多，曲线 越平滑。步骤二中的图表类型，也町以选择自定义或者“X澈点图”中子类型“平滑线散点 图”等，只是效果不同。川Autolisp在AutoCAD中实现多种曲线的绘制引言：AutoCAD自1982年山Autodcsk公诃推出以来，经历了20年的发展更 新，目前，已深入到包插机械、建筑、服装、航天航空、地质气彖等等的众 多领域中 .