自動繪制緩和曲線圓曲線方法

1、自動繪制緩和曲線圓曲線方法 摘要：根據(jù)AutoCAD提供的宏，通過Microsoft Visual Basic編寫輔助程序繪制曲線。關(guān)鍵詞：緩和曲線 圓曲線 繪制 說明：基本線形曲線主要分為圓曲線和緩和曲線。圓曲線是具有一定曲率半徑的圓??；緩和曲線是連接直線與圓曲線的過渡曲線，其曲率半徑由無窮大漸變?yōu)閳A曲線半徑。由于經(jīng)常需要精準(zhǔn)的繪出線路的圓曲線和緩和曲線，以便準(zhǔn)確的計算出線路中心至地面上某點的距離，通過學(xué)習(xí)和研究運用AutoCAD集成的Visual Basic編寫出一個繪制曲線的輔助程序，供大家學(xué)習(xí)參考。 基礎(chǔ)：AutoCAD輔助程序qxhz是通過辛普森公式編寫

2、，該公式則是利用區(qū)間二等分的三個點來進(jìn)行積分插值。需提供已知數(shù)據(jù)（起點坐標(biāo)、方位角、長度、間距、起止點半徑），方法近似于大家所稱的線元法。 準(zhǔn)備：1、已知數(shù)據(jù)（曲線要素）：交點坐標(biāo)：X=3373351.385、Y=458628.379；交點樁號：JDK=9557.84；曲線半徑：R=2040；曲線轉(zhuǎn)角：az=-14°1810；緩和曲線：ls1=260、ls2=280；計算方位角：F=152°0941.68   2、hzqx.dvb輔助程序（下載地址附后） 例子：繪制第一段緩和曲線ls=260。輔助：通過“曲線坐標(biāo)計算程序V"

3、求出第一切線長T1=387計算得出直緩樁號ZH=9170.84曲線坐標(biāo)計算程序V下載地址： 通過公式：ZHX=JDX-T1*Cos（F）、ZHY=JDY-T1*Sin（F）求得直緩坐標(biāo)：ZHX=3373693.597、ZHY=458447.6578輸入示例：起點坐標(biāo)：458447.6578,3373693.597（數(shù)學(xué)坐標(biāo)與測量坐標(biāo)相反）、起點方位角：152d09'41.68"（格式d'"）、起點半徑：0（屬于直線接緩和曲線半徑無窮大）、止點半徑：-2040（緩和曲線接圓曲線方向為左轉(zhuǎn)）、長度：260、間距：1 步驟：1、 &#

4、160;打開AutoCAD在命令行輸入：appload回車鍵。2、  彈出“加載/卸載應(yīng)用程序"對話框。  3、選擇qxhz.dvb點擊“加載"點擊“關(guān)閉"出現(xiàn)以下對話框。  4、在命令行中輸入：qxhz回車鍵會提示：4.1請獲?。ɑ蜉斎耄┣€起點坐標(biāo)，在這里可以用鼠標(biāo)指針直接點擊圖中的位置或者手動輸入坐標(biāo)，輸入：458447.6578,3373693.597（數(shù)學(xué)坐標(biāo)與測量坐標(biāo)相反）  4.2、請獲?。ɑ蜉斎耄┣€起點方位角，輸入：152d09'41.68"（字符為

5、英文）  4.3、請輸入曲線長度（m）：260（為第一段緩和曲線長度）  4.4、請輸入曲線起點半徑R（左轉(zhuǎn)為負(fù)，右轉(zhuǎn)為正，直線為0）：0（屬于直線接緩和曲線，由于直線半徑無窮大則輸入0）  4.5、請輸入曲線止點半徑R（左轉(zhuǎn)為負(fù)，右轉(zhuǎn)為正，直線為0）：-2040（緩和曲線接圓曲線，輸入曲線半徑-2040，由于是左轉(zhuǎn)則為負(fù)）  4.6、請輸入計算間距（m）：1（計算步長值，每1m計算一個點）  5、提示：曲線繪制完畢（說明已經(jīng)成功繪制）。   5.1在命令行中輸入Z

6、回車鍵。  5.2在命令行中輸入E回車鍵。  5.3繪制完畢的圖形如下：（第一張為未選中圖形，第二張為選中后的圖形，從圖中可以看出線條點數(shù)不計其數(shù)）。 由于半徑較大，緩和曲線較短，所以繪制出來的曲線看起來不太明顯。 對比：通過qxhz輔助程序成功繪制出了第一段緩和曲線，現(xiàn)在進(jìn)行數(shù)據(jù)對比；1、   獲取數(shù)據(jù)：將曲線選中在命令行輸入li回車鍵F2會彈出“AutoCAD文本窗口"這時會得出下列格式數(shù)據(jù)：        &#

7、160;at point  X=458447.6578 Y=3373693.5970  Z=   0.0000         at point  X=458448.1248 Y=3373692.7127  Z=   0.0000         at point  X=458448.5918 Y=

8、3373691.8285  Z=   0.0000         2、   計算數(shù)據(jù)：通過“曲線坐標(biāo)計算程序VBA4.6"輸入好已知數(shù)據(jù)進(jìn)行坐標(biāo)正算出中樁坐標(biāo)，然后與li命令查詢的坐標(biāo)進(jìn)行對比，圖示如下：曲線坐標(biāo)計算程序VBA4.6下載地址：  兩者差值為0（保留位數(shù)為毫米），說明通過qxhz輔助程序繪制出的緩和曲線正確無誤。3、圖形對比：通過“曲線坐標(biāo)計算程序VBA4.6"計算出的中樁坐標(biāo)進(jìn)行成圖與qxhz輔助程序線形比較，圖示如下：

9、0;第一張：兩條線形差值僅為0.00008（不到0.1毫米），第二張為放大比例進(jìn)行比較，兩條線形幾乎全全匹配，說明qxhz輔助程序計算正確。 qxhz輔助程序下載地址： 測試版本為：AutoCAD 2008（English）。 安裝路徑為：C:Program FilesAutoCAD 2008（默認(rèn)路徑）。AutoCAD 中文版下載地址：  溫馨提示：若常用到qxhz輔助程序你可以把qxhz.dvb復(fù)制到你常用的文件夾（避免誤刪）然后進(jìn)行加載，由于該命令未寫入acad啟動項中所以每次運行的時候則輸入appload即可搜索加載，然后點擊關(guān)閉按鈕在命令行中提示qxhz時說明加載成功