安萌

摘 要：本文介紹了輸氣管道轉(zhuǎn)角的計(jì)算方法，并探討了利用AutoCAD二次開發(fā)中的Vlisp語言在管道彎管參數(shù)計(jì)算中的應(yīng)用。

關(guān)鍵詞：Vlisp；角度計(jì)算；彎管參數(shù)；二次開發(fā)

DOI：10.16640/j.cnki.37-1222/t.2019.12.187

1 概述

輸氣管道設(shè)計(jì)過程中，需要設(shè)置不同類型的管道彎管，這就要確定管道轉(zhuǎn)角的空間角度，然后根據(jù)相關(guān)規(guī)范確定某空間角度下管道轉(zhuǎn)角的類型及相關(guān)參數(shù)。再采用Vlisp語言進(jìn)行編程，可實(shí)現(xiàn)管道空間角度及彎管參數(shù)的自動(dòng)計(jì)算。

2 管道轉(zhuǎn)角計(jì)算原理

2.1 空間角度的計(jì)算

將空間角度在水平、縱向兩個(gè)平面投影后，可將空間角α拆分為α1、α2、θ三個(gè)角度，不同類型轉(zhuǎn)角的α、α1、α2、θ相互關(guān)系見圖1。

當(dāng)空間角度為水平轉(zhuǎn)角或縱向轉(zhuǎn)角時(shí)可直接量取，當(dāng)轉(zhuǎn)角為迭加角時(shí)需根據(jù)三角函數(shù)關(guān)系進(jìn)行換算。

①當(dāng)空間轉(zhuǎn)角坡向相同時(shí)α=arccos（cosα1*cosα2*cosθ+sinα1*sinα2）

②當(dāng)空間轉(zhuǎn)角坡向相反時(shí)α=arccos（cosα1*cosα2*cosθ-sinα1*sinα2）

根據(jù)上述公式，可計(jì)算出彎管的空間角度α。

2.2 管道彎管參數(shù)的計(jì)算

根據(jù)法律規(guī)范及以往項(xiàng)目經(jīng)驗(yàn)，可約定彎管的曲率半徑、角度范圍及角度系列差。在空間轉(zhuǎn)角α、曲率半徑R已知情況下，通過空間轉(zhuǎn)角計(jì)算公式及曲線要素計(jì)算公式，即可獲得管道轉(zhuǎn)角的各項(xiàng)參數(shù)。

切線長：T=R*tan（α/2） 曲線長：L=R*α*（π/180） 外失距：E=（R/cosα）-R

3 采用Vlisp計(jì)算方法

通過分別獲取管道平面圖及斷面圖中某轉(zhuǎn)角始邊上的點(diǎn)、轉(zhuǎn)點(diǎn)坐標(biāo)及終邊上的點(diǎn)，可取得2.1節(jié)計(jì)算公式中的α1、α2、θ三個(gè)參數(shù)進(jìn)而計(jì)算出管道的空間轉(zhuǎn)角α，再結(jié)合選取的管道曲率半徑R，通過曲線要素計(jì)算公式可確定彎管的各項(xiàng)參數(shù)。

空間轉(zhuǎn)角為迭加角時(shí)：

坡向相同：（setq jsjd （radtorad （abs （acos （+ （* （cos texa1） （cos texa2） （cos texθ）） （* （sin texa1） （sin texa2）））））））

坡向相反：（setq jsjd （radtorad （abs （acos （- （* （cos texa1） （cos texa2） （cos texθ）） （* （sin texa1） （sin texa2）））））））

空間轉(zhuǎn)角為縱向轉(zhuǎn)角時(shí)：

坡向相反：（setq tmpzj （atof （angtos （radtorad （+ texa1 texa2）） 0 4）））

坡向相同：（setq tmpzj （atof （angtos （radtorad （abs （- texa1 texa2））） 0 4）））

空間轉(zhuǎn)角為水平轉(zhuǎn)角時(shí)：（setq texθ （radtorad texθ））

根據(jù)空間轉(zhuǎn)角及管道曲率半徑規(guī)定，計(jì)算各彎管參數(shù)：

彈性敷曲率半徑：（setq qlbj （* 3600.0 （expt （* （expt （/ gdwj 10） 2） （/ （- 1 （cos （/ jsjd 2））） （expt （/ （* jsjd 180） pi） 4））） （/ 1 3.0））））

冷彎彎管、熱煨彎管曲率半徑：（setq qlbj （/ （* lwql gdwj） 1000））

彈敷、冷彎、熱煨切線長度：（setq qxcd （* qlbj （/ （sin （/ jsjd 2）） （cos （/ jsjd 2）））））

彈敷、冷彎、熱煨弧長：（setq hc （* jsjd qlbj））

彈敷、冷彎、熱煨外失距：（setq wsj （- （/ qlbj （cos （/ jsjd 2））） qlbj））

運(yùn)行以上代碼即可計(jì)算出管道彎管參數(shù)。

4 應(yīng)用實(shí)例

根據(jù)AutoCAD二次開發(fā)界面語言DCL可制作基本參數(shù)輸入界面，根據(jù)項(xiàng)目規(guī)定的設(shè)計(jì)參數(shù)及上節(jié)計(jì)算過程代碼，可將計(jì)算出管道彎管參數(shù)結(jié)果并再次反饋至界面，進(jìn)而實(shí)現(xiàn)了管道彎管參數(shù)的自動(dòng)化計(jì)算及顯示，節(jié)省了工作量，從而大大提高了工作效率。

5 結(jié)束語

本文采用Vlisp語言對(duì)AutoCAD進(jìn)行了二次開發(fā)，實(shí)現(xiàn)了管道轉(zhuǎn)角及彎管參數(shù)的自動(dòng)化計(jì)算，在實(shí)際項(xiàng)目中得到了較好的應(yīng)用，提高了管道轉(zhuǎn)角設(shè)計(jì)的效率及質(zhì)量，減少了大量的工作量。

參考文獻(xiàn)：

[1]吳永進(jìn)，林美櫻.AUTOCAD完全應(yīng)用指南[M].北京：科學(xué)出版社，

2009.

[2]GB 50251-2015 輸氣管道工程設(shè)計(jì)規(guī)范[S].

[3]SY/T 5257-2004 油氣輸送用鋼制彎管[S].