cad畫緩和曲線方法

1、在AutoCAD中緩和曲線的幾種畫法2011-06-2520:32在AutoCAD中畫緩和曲線比較困難，目前常用的畫法有程序法（需要已知曲線要素）、坐標(biāo)腳本法（需事先計算好各特征點(diǎn)及其他點(diǎn)為的坐標(biāo)）、曲線命令法（需事先準(zhǔn)備各特征點(diǎn)坐標(biāo)），現(xiàn)分別介紹如下：畫法一：緩和曲線AutoLISP應(yīng)用程序一、制作緩和曲線應(yīng)用程序復(fù)制程序源代碼，打開“記事本，粘貼進(jìn)去后，另存為文件名“緩和曲線.LSP”，保存類型為“所有文件”（程序源代碼見附件）二、加載緩和曲線AutoLISP應(yīng)用程序在命令行輸入“appload”打開自動加載對話框。在對話框的“查找范圍”里找到“緩和曲線.LSP”的那個程序，選中后，點(diǎn)擊【

2、加載】，顯示“已成功加載緩和曲線.LSP”后，關(guān)閉對話框，ok你那個程序自動啟動加載了。|3|AutoCAD20C4DiEanrixLg2血氐豁史件耐籬血規(guī)圖M插人d）格式血）工具螢圖折注墮）修改關(guān)口d）剎肋QDIS0-2S少tutd-s-d.EQ電嗨BytayarByLiyarTyL町口疋暫念厘會n亡#r-/0口廠0?00國電A切皺長.iitedit四、運(yùn)行程序在命令行中輸入回車13i|AutoCAD2004DiEanrixLg2血氐世Io口魚Ai圮）口仮命棗：hh忙第一泵吉占Aa|JlutcCilD2C04芻薪;融B件-Hicro.勁立檔1-Wicroso.捕捉柵榕正套撮極|對彖捕捉對艇蹤

3、燼寬庭_.Titedit_.zooii_ehh-3K.2ZED,26&T.0794,D.OODD瞬史件耐籬血規(guī)圖M插人d）格式工具螢圖折注墮）修改關(guān)口d）剎肋QD切踐長ByLiyar少itiUL.dotd.Hi斤托mi丿丐角纟r五、選擇兩條切線，然后輸入曲線半徑如：2204.5回車13|JLutoCAD2004DiEaflrixig2血氐紺人緩和曲統(tǒng)按度:L或盪計速庫Ai:MicroEo,a|JlutoCilD2C04槪柵榕正交槎輕I對彖捕捉對毎追踣鮭3融6件-Hcro30.6930,.1339.73L,D.00LB拾取第一續(xù)宜繡：厲黑費(fèi)E餐墨針R2201.5哄氣夠史件疋)籬血規(guī)圖M插人(!)

4、格式血)工具螢圖折注墮)修改關(guān)口(!)剎肋QDByLiyar口時口富巳曹N亡鍛切踐長1iazulrn.c.,O?xoHi斤托mi丿丐角纟r船貨電遭即園軌a輸入緩和曲線長繪圖完成！|aJLutoCAD2004DiEanrixLg2血氐富厘葩z忒-A監(jiān)覺電弐國園轟a富厘葩z忒-A監(jiān)覺電弐國園轟aw口窮史件疋）籬血規(guī)圖M插人d）格式血）工具螢圖折注墮）修改關(guān)口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.畫法二：坐標(biāo)腳本法現(xiàn)做一個CAD腳本，會的人跳過（用Windows文本另存為“scr”文件）腳本編輯輸入“SPLINE+空格鍵+Y坐標(biāo)+,+X坐標(biāo)+空格鍵+Y坐標(biāo)+,+X坐標(biāo).”以此類推！點(diǎn)輸?shù)脑矫?，線條越平滑。也可以用EXCEL算出各個點(diǎn)的坐標(biāo)后粘貼進(jìn)去，然后按照“SPLINE+空格鍵+Y坐標(biāo)+,+X坐標(biāo)+空格鍵+Y坐標(biāo)+,+X坐標(biāo).”格式編輯。進(jìn)入CAD，運(yùn)行腳本，就行了！注意：你可能輸入了100個點(diǎn)，而出現(xiàn)的確只有幾個點(diǎn)，這個很正常，你把圖像刪除了，多運(yùn)行幾次就行，一般不超過4次。畫法三：使用真樣條曲線命令舉例

6、如下：輸入導(dǎo)線：pline命令繪制1、2、3各點(diǎn)，其對應(yīng)坐標(biāo)如下x1=213.7748y1=92.1117x2=313.7748y2=92.1117x3=399.6787y3=143.3026繪制通過ZH、HZ、QZ、HY和YH各點(diǎn)的與路線導(dǎo)線相切的含緩和曲線的平曲線。通過計算，五個點(diǎn)的直角坐標(biāo)為：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(指定起點(diǎn))：232.9548,92.1117(通過ZH)Enterpoint：285.3608,94.4667Close/FitTolerance/(指定下一個點(diǎn))：311.8101,99.2371Close/FitTolerance/(指定下一個點(diǎn))：336.9708,108.6801Close/FitTolerance/(指定下一個點(diǎn))：383.6319,133.7401Close/FitTolerance/(指定下一個點(diǎn))：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