蔣星星++陳義新

摘 要：利用autolisp語言編程能實(shí)現(xiàn)鐵路隧道實(shí)測(cè)斷面輪廓線的自動(dòng)生成，快速并準(zhǔn)確判別斷面超欠挖狀況并及標(biāo)注超欠挖值，這樣極大的提高了隧道斷面超欠挖分析的人工效率同時(shí)有較好的實(shí)用性和推廣性。

關(guān)健詞：autolisp隧道斷面 超欠挖 程序

中圖分類號(hào)： TP391.72 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1674-098X（2014）03（c）-0046-03

AutoLISP是由Autodesk公司開發(fā)的一種作為可嵌入在AutoCAD內(nèi)部的具有智能特點(diǎn)的編程語言，具有很強(qiáng)的數(shù)值圖形交換功能且語法簡(jiǎn)單、易于操作，直接輸入代碼到AUTOCAD autolisp編輯器即可調(diào)用，使用起來極為方便，現(xiàn)已被廣大工程技術(shù)人員運(yùn)用到CAD智能繪圖領(lǐng)域。

在鐵路隧道建設(shè)中，隧斷施工的超欠挖控制作為施工測(cè)量控制重點(diǎn)，關(guān)系的隧道的走向及開挖和襯徹凈尺寸是否滿足設(shè)計(jì)圖紙要求，隨著全站儀免棱鏡測(cè)量技術(shù)的發(fā)展，利用全站儀任意采點(diǎn)的方式來檢測(cè)隧道斷面將更加快捷方便.通過CAD按實(shí)測(cè)數(shù)據(jù)繪制測(cè)量斷面輪廓線比較設(shè)計(jì)斷面輪廓線來判斷斷面的超欠挖狀況，然而由于實(shí)測(cè)斷面線特征點(diǎn)數(shù)目繁多，利用傳統(tǒng)的CAD直接展點(diǎn)及標(biāo)注不僅慢，而且不能直觀的判斷斷面的超欠挖狀況，通過Autolisp語言編程能夠更好更快的解決超欠挖分析并繪制斷面圖的問題。

1 程序的實(shí)現(xiàn)

圖1為鐵路隧道標(biāo)準(zhǔn)斷面，隧道設(shè)計(jì)斷面輪廓線由不同圓心位置且不等長(zhǎng)半徑的四段圓弧構(gòu)成，實(shí)測(cè)斷面線由外業(yè)測(cè)量坐標(biāo)數(shù)據(jù)反算成相對(duì)于設(shè)計(jì)線路中線偏距Xi，高差Yi，通過多段線坐標(biāo)展點(diǎn)后繪制而成，超欠挖值及由設(shè)計(jì)斷面線與實(shí)測(cè)斷面線比較得出，程序需解決的問題就是通過讀取實(shí)測(cè)斷面線數(shù)據(jù)文件，自動(dòng)繪制實(shí)測(cè)斷面線，比較超欠挖值的大小及判斷超欠挖的類型，并沿?cái)嗝鎸?shí)測(cè)斷面線特征點(diǎn)超欠值自動(dòng)標(biāo)注于斷面圖上供后續(xù)施工提供指導(dǎo).

2 程序基本原理

通過read-line命令讀取實(shí)際開挖線文

該文件內(nèi)坐標(biāo)值，調(diào)用pline命令沿坐標(biāo)自動(dòng)繪制實(shí)測(cè)斷面輪廓線，通過assoc函數(shù)提取實(shí)測(cè)斷面輪廓線屬性端點(diǎn)坐標(biāo)元素，利用cond函數(shù)根據(jù)設(shè)計(jì)斷面各弧段連接點(diǎn)（圖1ae，ai，ah，ag點(diǎn)）到隧道中心點(diǎn)（圓心O1）的象限角來判斷開挖線端點(diǎn)相對(duì)于隧道中心點(diǎn)o1的坐標(biāo)方位，選用對(duì)應(yīng)的圓弧圓心位置和半徑比較，得出實(shí)測(cè)斷面線的超欠挖值，并標(biāo)示于開挖線端點(diǎn)上（超挖以正值顯示、欠挖以負(fù)值顯示）.

3 程序流程圖

見圖2。

4 程序源代碼

；判別象限角以原點(diǎn)o1為圓心，沿x軸逆時(shí)針按各個(gè)圓弧段開始分區(qū)，ag，ah，ai，ae分別為圓弧段R1與R4，R4與R3，R3與R2，R2與R1交點(diǎn)坐標(biāo)（如圖1所示）相對(duì)于坐標(biāo)X軸夾度（逆時(shí)針注記按弧度表示）

5 程序應(yīng)用舉例

本例采用鐵路（隧參2008）五類A二襯設(shè)計(jì)內(nèi)輪廓線，將Azo1=0.7788、Ao2= 3.4526、Ao3=1.5708、Ao4=5.9722、Dzo1=3.231、Do2=3.71、Do3=9.24、Do4=3.71、ag=3.4526、ah=3.8439、ai=5.5809、ae=5.9722、R1=6.46、R2=2.75、R3=13.71、R4=2.75以數(shù)值按設(shè)計(jì)圖紙實(shí)際尺寸代入上述原代碼中， 形成該類型斷面lisp原代碼，即可用于判斷該類型斷面超欠挖值，通過讀取如下格式實(shí)測(cè)斷面線文本文件數(shù)據(jù)

6 結(jié)語

通過autolisp語言編程更好的解決了鐵路隧道斷面超欠挖值的自動(dòng)計(jì)算并標(biāo)示的問題，在不借助于設(shè)計(jì)斷面輪廓線的情況下即可精準(zhǔn)的判斷并標(biāo)注超欠挖值.極大的提高了鐵路隧道斷面超欠挖分析的繪圖效率。

叁考文獻(xiàn)

[1] 李朝陽，蘇振輝.AutoLISP在測(cè)繪圖形處理中的應(yīng)用[S].山西建筑，2007（12）.

[2] 魏蘋，張亮，李芬.AutoLISP用于斷面點(diǎn)的采集[J].科技創(chuàng)新導(dǎo)報(bào)，2010（29）.

[3] 馮潔，王國(guó)輝，楊望星，計(jì)算機(jī)輔助測(cè)量在鐵路隧道斷面測(cè)量中的應(yīng)用[J].山巍鐵道建筑，2005（2）.endprint

摘 要：利用autolisp語言編程能實(shí)現(xiàn)鐵路隧道實(shí)測(cè)斷面輪廓線的自動(dòng)生成，快速并準(zhǔn)確判別斷面超欠挖狀況并及標(biāo)注超欠挖值，這樣極大的提高了隧道斷面超欠挖分析的人工效率同時(shí)有較好的實(shí)用性和推廣性。

關(guān)健詞：autolisp隧道斷面 超欠挖 程序

中圖分類號(hào)： TP391.72 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1674-098X（2014）03（c）-0046-03

AutoLISP是由Autodesk公司開發(fā)的一種作為可嵌入在AutoCAD內(nèi)部的具有智能特點(diǎn)的編程語言，具有很強(qiáng)的數(shù)值圖形交換功能且語法簡(jiǎn)單、易于操作，直接輸入代碼到AUTOCAD autolisp編輯器即可調(diào)用，使用起來極為方便，現(xiàn)已被廣大工程技術(shù)人員運(yùn)用到CAD智能繪圖領(lǐng)域。

在鐵路隧道建設(shè)中，隧斷施工的超欠挖控制作為施工測(cè)量控制重點(diǎn)，關(guān)系的隧道的走向及開挖和襯徹凈尺寸是否滿足設(shè)計(jì)圖紙要求，隨著全站儀免棱鏡測(cè)量技術(shù)的發(fā)展，利用全站儀任意采點(diǎn)的方式來檢測(cè)隧道斷面將更加快捷方便.通過CAD按實(shí)測(cè)數(shù)據(jù)繪制測(cè)量斷面輪廓線比較設(shè)計(jì)斷面輪廓線來判斷斷面的超欠挖狀況，然而由于實(shí)測(cè)斷面線特征點(diǎn)數(shù)目繁多，利用傳統(tǒng)的CAD直接展點(diǎn)及標(biāo)注不僅慢，而且不能直觀的判斷斷面的超欠挖狀況，通過Autolisp語言編程能夠更好更快的解決超欠挖分析并繪制斷面圖的問題。

1 程序的實(shí)現(xiàn)

圖1為鐵路隧道標(biāo)準(zhǔn)斷面，隧道設(shè)計(jì)斷面輪廓線由不同圓心位置且不等長(zhǎng)半徑的四段圓弧構(gòu)成，實(shí)測(cè)斷面線由外業(yè)測(cè)量坐標(biāo)數(shù)據(jù)反算成相對(duì)于設(shè)計(jì)線路中線偏距Xi，高差Yi，通過多段線坐標(biāo)展點(diǎn)后繪制而成，超欠挖值及由設(shè)計(jì)斷面線與實(shí)測(cè)斷面線比較得出，程序需解決的問題就是通過讀取實(shí)測(cè)斷面線數(shù)據(jù)文件，自動(dòng)繪制實(shí)測(cè)斷面線，比較超欠挖值的大小及判斷超欠挖的類型，并沿?cái)嗝鎸?shí)測(cè)斷面線特征點(diǎn)超欠值自動(dòng)標(biāo)注于斷面圖上供后續(xù)施工提供指導(dǎo).

2 程序基本原理

通過read-line命令讀取實(shí)際開挖線文

該文件內(nèi)坐標(biāo)值，調(diào)用pline命令沿坐標(biāo)自動(dòng)繪制實(shí)測(cè)斷面輪廓線，通過assoc函數(shù)提取實(shí)測(cè)斷面輪廓線屬性端點(diǎn)坐標(biāo)元素，利用cond函數(shù)根據(jù)設(shè)計(jì)斷面各弧段連接點(diǎn)（圖1ae，ai，ah，ag點(diǎn)）到隧道中心點(diǎn)（圓心O1）的象限角來判斷開挖線端點(diǎn)相對(duì)于隧道中心點(diǎn)o1的坐標(biāo)方位，選用對(duì)應(yīng)的圓弧圓心位置和半徑比較，得出實(shí)測(cè)斷面線的超欠挖值，并標(biāo)示于開挖線端點(diǎn)上（超挖以正值顯示、欠挖以負(fù)值顯示）.

3 程序流程圖

見圖2。

4 程序源代碼

；判別象限角以原點(diǎn)o1為圓心，沿x軸逆時(shí)針按各個(gè)圓弧段開始分區(qū)，ag，ah，ai，ae分別為圓弧段R1與R4，R4與R3，R3與R2，R2與R1交點(diǎn)坐標(biāo)（如圖1所示）相對(duì)于坐標(biāo)X軸夾度（逆時(shí)針注記按弧度表示）

5 程序應(yīng)用舉例

本例采用鐵路（隧參2008）五類A二襯設(shè)計(jì)內(nèi)輪廓線，將Azo1=0.7788、Ao2= 3.4526、Ao3=1.5708、Ao4=5.9722、Dzo1=3.231、Do2=3.71、Do3=9.24、Do4=3.71、ag=3.4526、ah=3.8439、ai=5.5809、ae=5.9722、R1=6.46、R2=2.75、R3=13.71、R4=2.75以數(shù)值按設(shè)計(jì)圖紙實(shí)際尺寸代入上述原代碼中， 形成該類型斷面lisp原代碼，即可用于判斷該類型斷面超欠挖值，通過讀取如下格式實(shí)測(cè)斷面線文本文件數(shù)據(jù)

6 結(jié)語

通過autolisp語言編程更好的解決了鐵路隧道斷面超欠挖值的自動(dòng)計(jì)算并標(biāo)示的問題，在不借助于設(shè)計(jì)斷面輪廓線的情況下即可精準(zhǔn)的判斷并標(biāo)注超欠挖值.極大的提高了鐵路隧道斷面超欠挖分析的繪圖效率。

叁考文獻(xiàn)

[1] 李朝陽，蘇振輝.AutoLISP在測(cè)繪圖形處理中的應(yīng)用[S].山西建筑，2007（12）.

[2] 魏蘋，張亮，李芬.AutoLISP用于斷面點(diǎn)的采集[J].科技創(chuàng)新導(dǎo)報(bào)，2010（29）.

[3] 馮潔，王國(guó)輝，楊望星，計(jì)算機(jī)輔助測(cè)量在鐵路隧道斷面測(cè)量中的應(yīng)用[J].山巍鐵道建筑，2005（2）.endprint

摘 要：利用autolisp語言編程能實(shí)現(xiàn)鐵路隧道實(shí)測(cè)斷面輪廓線的自動(dòng)生成，快速并準(zhǔn)確判別斷面超欠挖狀況并及標(biāo)注超欠挖值，這樣極大的提高了隧道斷面超欠挖分析的人工效率同時(shí)有較好的實(shí)用性和推廣性。

關(guān)健詞：autolisp隧道斷面 超欠挖 程序

中圖分類號(hào)： TP391.72 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1674-098X（2014）03（c）-0046-03

AutoLISP是由Autodesk公司開發(fā)的一種作為可嵌入在AutoCAD內(nèi)部的具有智能特點(diǎn)的編程語言，具有很強(qiáng)的數(shù)值圖形交換功能且語法簡(jiǎn)單、易于操作，直接輸入代碼到AUTOCAD autolisp編輯器即可調(diào)用，使用起來極為方便，現(xiàn)已被廣大工程技術(shù)人員運(yùn)用到CAD智能繪圖領(lǐng)域。

在鐵路隧道建設(shè)中，隧斷施工的超欠挖控制作為施工測(cè)量控制重點(diǎn)，關(guān)系的隧道的走向及開挖和襯徹凈尺寸是否滿足設(shè)計(jì)圖紙要求，隨著全站儀免棱鏡測(cè)量技術(shù)的發(fā)展，利用全站儀任意采點(diǎn)的方式來檢測(cè)隧道斷面將更加快捷方便.通過CAD按實(shí)測(cè)數(shù)據(jù)繪制測(cè)量斷面輪廓線比較設(shè)計(jì)斷面輪廓線來判斷斷面的超欠挖狀況，然而由于實(shí)測(cè)斷面線特征點(diǎn)數(shù)目繁多，利用傳統(tǒng)的CAD直接展點(diǎn)及標(biāo)注不僅慢，而且不能直觀的判斷斷面的超欠挖狀況，通過Autolisp語言編程能夠更好更快的解決超欠挖分析并繪制斷面圖的問題。

1 程序的實(shí)現(xiàn)

圖1為鐵路隧道標(biāo)準(zhǔn)斷面，隧道設(shè)計(jì)斷面輪廓線由不同圓心位置且不等長(zhǎng)半徑的四段圓弧構(gòu)成，實(shí)測(cè)斷面線由外業(yè)測(cè)量坐標(biāo)數(shù)據(jù)反算成相對(duì)于設(shè)計(jì)線路中線偏距Xi，高差Yi，通過多段線坐標(biāo)展點(diǎn)后繪制而成，超欠挖值及由設(shè)計(jì)斷面線與實(shí)測(cè)斷面線比較得出，程序需解決的問題就是通過讀取實(shí)測(cè)斷面線數(shù)據(jù)文件，自動(dòng)繪制實(shí)測(cè)斷面線，比較超欠挖值的大小及判斷超欠挖的類型，并沿?cái)嗝鎸?shí)測(cè)斷面線特征點(diǎn)超欠值自動(dòng)標(biāo)注于斷面圖上供后續(xù)施工提供指導(dǎo).

2 程序基本原理

通過read-line命令讀取實(shí)際開挖線文

該文件內(nèi)坐標(biāo)值，調(diào)用pline命令沿坐標(biāo)自動(dòng)繪制實(shí)測(cè)斷面輪廓線，通過assoc函數(shù)提取實(shí)測(cè)斷面輪廓線屬性端點(diǎn)坐標(biāo)元素，利用cond函數(shù)根據(jù)設(shè)計(jì)斷面各弧段連接點(diǎn)（圖1ae，ai，ah，ag點(diǎn)）到隧道中心點(diǎn)（圓心O1）的象限角來判斷開挖線端點(diǎn)相對(duì)于隧道中心點(diǎn)o1的坐標(biāo)方位，選用對(duì)應(yīng)的圓弧圓心位置和半徑比較，得出實(shí)測(cè)斷面線的超欠挖值，并標(biāo)示于開挖線端點(diǎn)上（超挖以正值顯示、欠挖以負(fù)值顯示）.

3 程序流程圖

見圖2。

4 程序源代碼

；判別象限角以原點(diǎn)o1為圓心，沿x軸逆時(shí)針按各個(gè)圓弧段開始分區(qū)，ag，ah，ai，ae分別為圓弧段R1與R4，R4與R3，R3與R2，R2與R1交點(diǎn)坐標(biāo)（如圖1所示）相對(duì)于坐標(biāo)X軸夾度（逆時(shí)針注記按弧度表示）

5 程序應(yīng)用舉例

本例采用鐵路（隧參2008）五類A二襯設(shè)計(jì)內(nèi)輪廓線，將Azo1=0.7788、Ao2= 3.4526、Ao3=1.5708、Ao4=5.9722、Dzo1=3.231、Do2=3.71、Do3=9.24、Do4=3.71、ag=3.4526、ah=3.8439、ai=5.5809、ae=5.9722、R1=6.46、R2=2.75、R3=13.71、R4=2.75以數(shù)值按設(shè)計(jì)圖紙實(shí)際尺寸代入上述原代碼中， 形成該類型斷面lisp原代碼，即可用于判斷該類型斷面超欠挖值，通過讀取如下格式實(shí)測(cè)斷面線文本文件數(shù)據(jù)

6 結(jié)語

通過autolisp語言編程更好的解決了鐵路隧道斷面超欠挖值的自動(dòng)計(jì)算并標(biāo)示的問題，在不借助于設(shè)計(jì)斷面輪廓線的情況下即可精準(zhǔn)的判斷并標(biāo)注超欠挖值.極大的提高了鐵路隧道斷面超欠挖分析的繪圖效率。

叁考文獻(xiàn)

[1] 李朝陽，蘇振輝.AutoLISP在測(cè)繪圖形處理中的應(yīng)用[S].山西建筑，2007（12）.

[2] 魏蘋，張亮，李芬.AutoLISP用于斷面點(diǎn)的采集[J].科技創(chuàng)新導(dǎo)報(bào)，2010（29）.

[3] 馮潔，王國(guó)輝，楊望星，計(jì)算機(jī)輔助測(cè)量在鐵路隧道斷面測(cè)量中的應(yīng)用[J].山巍鐵道建筑，2005（2）.endprint