Vlisp在管道彎管參數計算中的應用

安萌

摘 要：本文介紹了輸氣管道轉角的計算方法，并探討了利用AutoCAD二次開發中的Vlisp語言在管道彎管參數計算中的應用。

關鍵詞：Vlisp；角度計算；彎管參數；二次開發

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

1 概述

輸氣管道設計過程中，需要設置不同類型的管道彎管，這就要確定管道轉角的空間角度，然后根據相關規范確定某空間角度下管道轉角的類型及相關參數。再采用Vlisp語言進行編程，可實現管道空間角度及彎管參數的自動計算。

2 管道轉角計算原理

2.1 空間角度的計算

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

當空間角度為水平轉角或縱向轉角時可直接量取，當轉角為迭加角時需根據三角函數關系進行換算。

①當空間轉角坡向相同時α=arccos（cosα1*cosα2*cosθ+sinα1*sinα2）

②當空間轉角坡向相反時α=arccos（cosα1*cosα2*cosθ-sinα1*sinα2）

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

2.2 管道彎管參數的計算

根據法律規范及以往項目經驗，可約定彎管的曲率半徑、角度范圍及角度系列差。在空間轉角α、曲率半徑R已知情況下，通過空間轉角計算公式及曲線要素計算公式，即可獲得管道轉角的各項參數。

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

3 采用Vlisp計算方法

通過分別獲取管道平面圖及斷面圖中某轉角始邊上的點、轉點坐標及終邊上的點，可取得2.1節計算公式中的α1、α2、θ三個參數進而計算出管道的空間轉角α，再結合選取的管道曲率半徑R，通過曲線要素計算公式可確定彎管的各項參數。

空間轉角為迭加角時：

坡向相同：（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）））））））

空間轉角為縱向轉角時：

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

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

空間轉角為水平轉角時：（setq texθ （radtorad texθ））

根據空間轉角及管道曲率半徑規定，計算各彎管參數：

彈性敷曲率半徑：（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））

運行以上代碼即可計算出管道彎管參數。

4 應用實例

根據AutoCAD二次開發界面語言DCL可制作基本參數輸入界面，根據項目規定的設計參數及上節計算過程代碼，可將計算出管道彎管參數結果并再次反饋至界面，進而實現了管道彎管參數的自動化計算及顯示，節省了工作量，從而大大提高了工作效率。

5 結束語

本文采用Vlisp語言對AutoCAD進行了二次開發，實現了管道轉角及彎管參數的自動化計算，在實際項目中得到了較好的應用，提高了管道轉角設計的效率及質量，減少了大量的工作量。

參考文獻：

[1]吳永進，林美櫻.AUTOCAD完全應用指南[M].北京：科學出版社，

2009.

[2]GB 50251-2015 輸氣管道工程設計規范[S].

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