《中如何画螺旋线》word版

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"