AUTO CAD中如何画螺旋线.docVIP

AUTO CAD 中如何画螺旋线？（请教思路） 10分 回答：1 ? 浏览：472 ? 提问时间：2005-05-11 01:32 AUTO CAD 中如何画螺旋线？（请教思路） 最好有几个步骤，请用中文！ 共0条评论... 最佳答案 此答案由提问者自己选择，并不代表爱问知识人的观点 揪错评论举报 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 8RootID 31787ID 31960 如何绘制三维螺旋线 3dspiral 和平面螺旋线即阿基米德螺旋线（spiral ：将Autodesk公司网站/icad/share/autocadtool.htm? ?打开上述网页，点击其中的：3dspiral.zip 用于螺旋线的绘制上的可下载软件：“3dspiral.Lsp”复制到自己计算机硬盘下的“某”文件夹中；打开AutoCADR14或R2000绘图界面，利用tool下拉式菜单 Autolisp load Application命令加载（Load）“3dspiral.Lsp”应用软件程序;人工键入命令 Command : 3dspiral 按回车键 ---绘制三维螺旋线； spiral? ? 按回车键 ---绘制二维螺旋线（即阿基米德螺旋线）按照自己的设计意图可连续回答该软件设置的6项提问后,就能画出较理想的各种螺旋线：即绘制弹簧的路径 Path 。运行 3dspiral 命令后，会陆续出现以下6个提问：? ?6项提问分别是：1.螺旋线起始的中心坐标；2.起始的半径值；3.螺旋线的圈数；4.螺旋线水平（HOR）方向变化的螺距（柱状螺旋线为0；宝塔形螺旋线有±之分）；5.螺旋线垂直（VER）方向变化的螺距 若输入0，就是平面螺旋线）；6.每条螺旋线的近似线数（默认为30；数值愈大，近似程度愈高）。??小议：1.该软件最大的特点是操作简便，通俗易懂；2.能画材料为圆形截面的各类尺寸形状的弹簧本体（无论是柱状还是宝塔状）；3.设计完整弹簧还需继续画出弹簧的尾扣部分（无论是压簧还是拉簧）；4.非圆截面（矩形、棱形、梯形）的弹簧用此方法绘制是不可行的；5.普通螺纹和梯形螺纹的螺旋面用此方法绘制也是不可行的；6.用此方法绘制的普通弹簧形状十分逼真、“准确”，尤其是赋予着色、渲染后，在三维立体装配图中几乎可以达到“以假乱真”的地步。但是从该立体弹簧上不能“提取”任何有用的平面元素（包括各种剖切面），原因就是我们熟悉的各种弹簧的二维平面视图是机械制图国家标准规定的“简易画法”；更何况参数化绘制的弹簧也是一种近似的方法。画螺旋线的好方法 将下列程序复制到工具/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 :