cad画缓和曲线方法

1、在AutoCAD中缓和曲线的几种画法2011-06-2520:32在AutoCAD中画缓和曲线比较困难，目前常用的画法有程序法（需要已知曲线要素）、坐标脚本法（需事先计算好各特征点及其他点为的坐标）、曲线命令法（需事先准备各特征点坐标），现分别介绍如下：画法一：缓和曲线AutoLISP应用程序一、制作缓和曲线应用程序复制程序源代码，打开“记事本，粘贴进去后，另存为文件名“缓和曲线.LSP”，保存类型为“所有文件”（程序源代码见附件）二、加载缓和曲线AutoLISP应用程序在命令行输入“appload”打开自动加载对话框。在对话框的“查找范围”里找到“缓和曲线.LSP”的那个程序，选中后，点击【

2、加载】，显示“已成功加载缓和曲线.LSP”后，关闭对话框，ok你那个程序自动启动加载了。|3|AutoCAD20C4DiEanrixLg2血氐豁史件耐籬血规图M插人d）格式血）工具螢图折注墮）修改關口d）刹肋QDIS0-2S少tutd-s-d.EQ电嗨BytayarByLiyarTyL町口疋暫念厘會n亡#r-/0口厂0?00国电A切皱长.iitedit四、运行程序在命令行中输入回车13i|AutoCAD2004DiEanrixLg2血氐世Io口鱼Ai圮）口仮命枣：hh忙第一泵吉占Aa|JlutcCilD2C04刍薪;融B件-Hicro.勁立档1-Wicroso.捕捉栅榕正套撮極|对彖捕捉对艇踪

3、燼宽庭_.Titedit_.zooii_ehh-3K.2ZED,26&T.0794,D.OODD瞬史件耐籬血规图M插人d）格式工具螢图折注墮）修改關口d）刹肋QD切践长ByLiyar少itiUL.dotd.Hi斤托mi丿丐角纟r五、选择两条切线，然后输入曲线半径如：2204.5回车13|JLutoCAD2004DiEaflrixig2血氐紺人緩和曲统按度:L或盪计速庫Ai:MicroEo,a|JlutoCilD2C04槪栅榕正交槎輕I对彖捕捉对毎追踣鮭3融6件-Hcro30.6930,.1339.73L,D.00LB拾取第一续宜绣：厲黑費E餐墨針R2201.5哄气够史件疋)籬血规图M插人(!)

4、格式血)工具螢图折注墮)修改關口(!)刹肋QDByLiyar口时口富巳曹N亡锻切践长1iazulrn.c.,O?xoHi斤托mi丿丐角纟r船貨电遭即園軌a输入缓和曲线长绘图完成！|aJLutoCAD2004DiEanrixLg2血氐富厘葩z忒-A监覺电弐国園轟a富厘葩z忒-A监覺电弐国園轟aw口窮史件疋）籬血规图M插人d）格式血）工具螢图折注墮）修改關口d）刹肋QD加Stuulard.VIS0-2SV岂电电V|口Bj/Layar*ByLiyatrVTyL町/二0口广0?200国电.nteditMTEDIT选挥冬行文芋对擦；跻令:】339.0Z6D,ZZ?T.2457,.OKOF幵姊Xieta1

5、13|AutcCilD2C04-.功砺融6件-nr（致立档1-MicroEO.画法二：坐标脚本法现做一个CAD脚本，会的人跳过（用Windows文本另存为“scr”文件）脚本编辑输入“SPLINE+空格键+Y坐标+,+X坐标+空格键+Y坐标+,+X坐标.”以此类推！点输的越密，线条越平滑。也可以用EXCEL算出各个点的坐标后粘贴进去，然后按照“SPLINE+空格键+Y坐标+,+X坐标+空格键+Y坐标+,+X坐标.”格式编辑。进入CAD，运行脚本，就行了！注意：你可能输入了100个点，而出现的确只有几个点，这个很正常，你把图像删除了，多运行几次就行，一般不超过4次。画法三：使用真样条曲线命令举例

6、如下：输入导线：pline命令绘制1、2、3各点，其对应坐标如下x1=213.7748y1=92.1117x2=313.7748y2=92.1117x3=399.6787y3=143.3026绘制通过ZH、HZ、QZ、HY和YH各点的与路线导线相切的含缓和曲线的平曲线。通过计算，五个点的直角坐标为：ZH：X=232.9548Y=92.1117HY：X=285.3608Y=94.4667QZ：X=311.8101Y=99.2371YH：X=336.9780Y=108.6801HZ：X=383.6319Y=133.7401使用真样条曲线命令绘制含缓和曲线的平曲线的基本操作步骤如下：Command(

7、命令)：Spline(启动真样条曲线命令)object/Enterfirstpoint(指定起点)：232.9548,92.1117(通过ZH)Enterpoint：285.3608,94.4667Close/FitTolerance/(指定下一个点)：311.8101,99.2371Close/FitTolerance/(指定下一个点)：336.9708,108.6801Close/FitTolerance/(指定下一个点)：383.6319,133.7401Close/FitTolerance/(指定下一个点)：LsR)(setqLsR)(ll_d);ll_v(defunll_d()(se

8、tqos(getvarosmode)(setvarosmode0)(setqC(*LsR)q(-(+(-(/Ls2)(/(*LsLsLs)240RR)(/(*LsLsLsLsLs)34560RRRR)(/(*LsLsLsLsLsLsLs)8386560RRRRRR)pt1(cdr(assoc10(entget(carp1)pt2(cdr(assoc11(entget(carp1)pt10(polarpt1(anglept1pt2)(/(distancept1pt2)2)pt3(cdr(assoc10(entget(carp2)pt4(cdr(assoc11(entget(carp2)pt20(

9、polarpt3(anglept3pt4)(/(distancept3pt4)2)p(+(-(/(*LsLs)24R)(/(*LsLsLsLs)2688RRR)(/(*LsLsLsLsLsLs)506880RRRRR)jd(interspt1pt2pt3pt4nil)alf1(anglept10jd)alf2(anglept20jd)alf(-(anglejdpt20)alf1);setq(if(or(alfpi)(and(alf(-0pi)(progn(setqid_-1)(if(alfpi)(setqalf(-(+pipi)alf)(setqalf(absalf);progn(progn(

10、setqid_1)(if(abs(distancejdpt1)(abs(distancejdpt2)(setqptt1pt1)(setqptt1pt2);if(setqptt2(polarjdalf1(-0 x1)(thhp1ptt110)(thhp1ptt211)(if(abs(distancejdpt3)(abs(distancejdpt4)(setqptt3pt3)(setqptt3pt4);if(setqptt4(polarjdalf2(-0 x1)(thhp2ptt310)(thhp2ptt411)(if(=id_1)(commandarcpt5ept6rR)(commandarcp

11、t6ept5rR)(setqalfd(angfalf)(setvarosmodeos)(commandcmdecho1)(commandtextpausepause(strcat偏角=alfd)(commandcmdecho0)(strcat半(strcat半(strcat切线(strcat曲线(strcat外(strcat缓和曲线长=(rtosLs22)(commandtext(commandtext(commandtext(commandtext(commandtext径=(rtosR22)长=(rtosx122)长=(rtosCl22)距=”(rtosE22);ll_d(defunang

12、f(alf)(setqalff(angtosalf14)n1kk(strlenalff)(repeatkk(setqalfn(substralffn1)(if(=alfnd)(setqnnn);if(setqn(+n1);repeat(strcat(substralff1(-nn1)%(substralffnn);angf(defunc:hh(/p1p2pt1pt2pt3pt4pt5pt6pt10pt20id_RVLsEp3r1xylx0 x1Cjdalfalf1alf2qpClLs1Ls2)(commanducs)(setqp1nilp2nil)(while(=p1nil)(setqp1(entseln拾取第一条直线:)(redraw(carp1)3)(while(=p2nil)(setqp2(entseln拾取第二条直线:)(redraw(carp2)3)(initget1)(setqR(getdistn请输入弯道半径R:)(initget1LsV)(setqp3(getdistn输入缓和曲线长度(L