auto_cad_中如何画螺旋线

《auto_cad_中如何画螺旋线》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、AUTOCAD中如何画螺旋线？（请教思路）10分回答：1 浏览：472 提问时间：2005-05-1101:32AUTOCAD中如何画螺旋线？（请教思路）最好有几个步骤，请用中文！共0条评论...最佳答案此答案由提问者自己选择，并不代表爱问知识人的观点揪错┆评论┆举报wang[先知]1、打开ＣＡＤ后，找工具／ＡＵＴＯＬＩＳＰ／ＶＩＳＵＡＬ　ＬＩＳＰ编辑器，打开．点新建文件2、然后输入(defunc:luoxuan(/)(setqb1(getpoint"请指定螺旋线基点:"))(setqr(getreal"请输入螺纹平均半径:"))(setqdisp(getr

2、eal"请输入螺纹节距:"))(setqn(getint"请输入每圈细化段数:"))(setqdelta(/(*2.0pi)n))(setqj(/dispn))(setqbb(caddrb1))(setqang0)(setqjj0)(Command"UCS""o"b1)(Command"3dpoly"(listr00))(repeatn(setqjj(+jj1)(setqang(+deltaang))(setqpt2(list(*r(cosang))(*r(sinang))(+0(*jjj))))(Commandpt2))(Command""))存盘为luo

3、xuan.lsp，关闭编辑器3、要用时，点工具／ＡＵＴＯＬＩＳＰ／加载，找到luoxuan.lsp文件将其加载，关闭对话框．在命令行输入luoxuan回车，就开始了螺旋线的绘制（摘自：http://www.laohu.net/bbs/dispbbs.asp?boardID=8&RootID=31787&ID=31960)如何绘制三维螺旋线(3dspiral)和平面螺旋线即阿基米德螺旋线（spiral)：①将Autodesk公司网站http://www.icad.com.cn/icad/share/autocadtool.htm  打开上述网页，点击其中的：3

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

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

6、拉簧）；4.非圆截面（矩形、棱形、梯形）的弹簧用此方法绘制是不可行的；5.普通螺纹和梯形螺纹的螺旋面用此方法绘制也是不可行的；6.用此方法绘制的普通弹簧形状十分逼真、“准确”，尤其是赋予着色、渲染后，在三维立体装配图中几乎可以达到“以假乱真”的地步。但是从该立体弹簧上不能“提取”任何有用的平面元素（包括各种剖切面），原因就是我们熟悉的各种弹簧的二维平面视图是机械制图国家标准规定的“简易画法”；更何况参数化绘制的弹簧也是一种近似的方法。画螺旋线的好方法将下列程序复制到工具/Autolisp/visuallisp编辑器,然后粘贴保存为lisp源文件类型,要用时只

7、需加载该程序(工具/加载应用程序)用是只需用命令:SPL(defunC:SPL(/SDEDTHSTASNVSSTEPXYZRAH)(setqSD(/(getreal"螺旋起始直径:")2))(setqED(/(getreal"螺旋终点直径:")2))(setqTHS  (getreal"螺旋总高(每圈高度X圈数):"))(setqTAS  (getreal"总角度数(360X圈数):"))(setqNVS  (getint  "节点数([总角度数/间隔角度]+1):"))(setqSTEP(-NVS1))(setqX(/(-EDSD)STEP))(setqY

8、(/THSSTEP))(setqZ(/TASSTEP