蔣星星++陳義新
摘 要:利用autolisp語言編程能實現(xiàn)鐵路隧道實測斷面輪廓線的自動生成,快速并準(zhǔn)確判別斷面超欠挖狀況并及標(biāo)注超欠挖值,這樣極大的提高了隧道斷面超欠挖分析的人工效率同時有較好的實用性和推廣性。
關(guān)健詞:autolisp隧道斷面 超欠挖 程序
中圖分類號: TP391.72 文獻(xiàn)標(biāo)識碼:A 文章編號:1674-098X(2014)03(c)-0046-03
AutoLISP是由Autodesk公司開發(fā)的一種作為可嵌入在AutoCAD內(nèi)部的具有智能特點的編程語言,具有很強的數(shù)值圖形交換功能且語法簡單、易于操作,直接輸入代碼到AUTOCAD autolisp編輯器即可調(diào)用,使用起來極為方便,現(xiàn)已被廣大工程技術(shù)人員運用到CAD智能繪圖領(lǐng)域。
在鐵路隧道建設(shè)中,隧斷施工的超欠挖控制作為施工測量控制重點,關(guān)系的隧道的走向及開挖和襯徹凈尺寸是否滿足設(shè)計圖紙要求,隨著全站儀免棱鏡測量技術(shù)的發(fā)展,利用全站儀任意采點的方式來檢測隧道斷面將更加快捷方便.通過CAD按實測數(shù)據(jù)繪制測量斷面輪廓線比較設(shè)計斷面輪廓線來判斷斷面的超欠挖狀況,然而由于實測斷面線特征點數(shù)目繁多,利用傳統(tǒng)的CAD直接展點及標(biāo)注不僅慢,而且不能直觀的判斷斷面的超欠挖狀況,通過Autolisp語言編程能夠更好更快的解決超欠挖分析并繪制斷面圖的問題。
1 程序的實現(xiàn)
圖1為鐵路隧道標(biāo)準(zhǔn)斷面,隧道設(shè)計斷面輪廓線由不同圓心位置且不等長半徑的四段圓弧構(gòu)成,實測斷面線由外業(yè)測量坐標(biāo)數(shù)據(jù)反算成相對于設(shè)計線路中線偏距Xi,高差Yi,通過多段線坐標(biāo)展點后繪制而成,超欠挖值及由設(shè)計斷面線與實測斷面線比較得出,程序需解決的問題就是通過讀取實測斷面線數(shù)據(jù)文件,自動繪制實測斷面線,比較超欠挖值的大小及判斷超欠挖的類型,并沿斷面實測斷面線特征點超欠值自動標(biāo)注于斷面圖上供后續(xù)施工提供指導(dǎo).
2 程序基本原理
通過read-line命令讀取實際開挖線文
該文件內(nèi)坐標(biāo)值,調(diào)用pline命令沿坐標(biāo)自動繪制實測斷面輪廓線,通過assoc函數(shù)提取實測斷面輪廓線屬性端點坐標(biāo)元素,利用cond函數(shù)根據(jù)設(shè)計斷面各弧段連接點(圖1ae,ai,ah,ag點)到隧道中心點(圓心O1)的象限角來判斷開挖線端點相對于隧道中心點o1的坐標(biāo)方位,選用對應(yīng)的圓弧圓心位置和半徑比較,得出實測斷面線的超欠挖值,并標(biāo)示于開挖線端點上(超挖以正值顯示、欠挖以負(fù)值顯示).
3 程序流程圖
見圖2。
4 程序源代碼
;判別象限角以原點o1為圓心,沿x軸逆時針按各個圓弧段開始分區(qū),ag,ah,ai,ae分別為圓弧段R1與R4,R4與R3,R3與R2,R2與R1交點坐標(biāo)(如圖1所示)相對于坐標(biāo)X軸夾度(逆時針注記按弧度表示)
5 程序應(yīng)用舉例
本例采用鐵路(隧參2008)五類A二襯設(shè)計內(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è)計圖紙實際尺寸代入上述原代碼中, 形成該類型斷面lisp原代碼,即可用于判斷該類型斷面超欠挖值,通過讀取如下格式實測斷面線文本文件數(shù)據(jù)
6 結(jié)語
通過autolisp語言編程更好的解決了鐵路隧道斷面超欠挖值的自動計算并標(biāo)示的問題,在不借助于設(shè)計斷面輪廓線的情況下即可精準(zhǔn)的判斷并標(biāo)注超欠挖值.極大的提高了鐵路隧道斷面超欠挖分析的繪圖效率。
叁考文獻(xiàn)
[1] 李朝陽,蘇振輝.AutoLISP在測繪圖形處理中的應(yīng)用[S].山西建筑,2007(12).
[2] 魏蘋,張亮,李芬.AutoLISP用于斷面點的采集[J].科技創(chuàng)新導(dǎo)報,2010(29).
[3] 馮潔,王國輝,楊望星,計算機輔助測量在鐵路隧道斷面測量中的應(yīng)用[J].山巍鐵道建筑,2005(2).endprint
摘 要:利用autolisp語言編程能實現(xiàn)鐵路隧道實測斷面輪廓線的自動生成,快速并準(zhǔn)確判別斷面超欠挖狀況并及標(biāo)注超欠挖值,這樣極大的提高了隧道斷面超欠挖分析的人工效率同時有較好的實用性和推廣性。
關(guān)健詞:autolisp隧道斷面 超欠挖 程序
中圖分類號: TP391.72 文獻(xiàn)標(biāo)識碼:A 文章編號:1674-098X(2014)03(c)-0046-03
AutoLISP是由Autodesk公司開發(fā)的一種作為可嵌入在AutoCAD內(nèi)部的具有智能特點的編程語言,具有很強的數(shù)值圖形交換功能且語法簡單、易于操作,直接輸入代碼到AUTOCAD autolisp編輯器即可調(diào)用,使用起來極為方便,現(xiàn)已被廣大工程技術(shù)人員運用到CAD智能繪圖領(lǐng)域。
在鐵路隧道建設(shè)中,隧斷施工的超欠挖控制作為施工測量控制重點,關(guān)系的隧道的走向及開挖和襯徹凈尺寸是否滿足設(shè)計圖紙要求,隨著全站儀免棱鏡測量技術(shù)的發(fā)展,利用全站儀任意采點的方式來檢測隧道斷面將更加快捷方便.通過CAD按實測數(shù)據(jù)繪制測量斷面輪廓線比較設(shè)計斷面輪廓線來判斷斷面的超欠挖狀況,然而由于實測斷面線特征點數(shù)目繁多,利用傳統(tǒng)的CAD直接展點及標(biāo)注不僅慢,而且不能直觀的判斷斷面的超欠挖狀況,通過Autolisp語言編程能夠更好更快的解決超欠挖分析并繪制斷面圖的問題。
1 程序的實現(xiàn)
圖1為鐵路隧道標(biāo)準(zhǔn)斷面,隧道設(shè)計斷面輪廓線由不同圓心位置且不等長半徑的四段圓弧構(gòu)成,實測斷面線由外業(yè)測量坐標(biāo)數(shù)據(jù)反算成相對于設(shè)計線路中線偏距Xi,高差Yi,通過多段線坐標(biāo)展點后繪制而成,超欠挖值及由設(shè)計斷面線與實測斷面線比較得出,程序需解決的問題就是通過讀取實測斷面線數(shù)據(jù)文件,自動繪制實測斷面線,比較超欠挖值的大小及判斷超欠挖的類型,并沿斷面實測斷面線特征點超欠值自動標(biāo)注于斷面圖上供后續(xù)施工提供指導(dǎo).
2 程序基本原理
通過read-line命令讀取實際開挖線文
該文件內(nèi)坐標(biāo)值,調(diào)用pline命令沿坐標(biāo)自動繪制實測斷面輪廓線,通過assoc函數(shù)提取實測斷面輪廓線屬性端點坐標(biāo)元素,利用cond函數(shù)根據(jù)設(shè)計斷面各弧段連接點(圖1ae,ai,ah,ag點)到隧道中心點(圓心O1)的象限角來判斷開挖線端點相對于隧道中心點o1的坐標(biāo)方位,選用對應(yīng)的圓弧圓心位置和半徑比較,得出實測斷面線的超欠挖值,并標(biāo)示于開挖線端點上(超挖以正值顯示、欠挖以負(fù)值顯示).
3 程序流程圖
見圖2。
4 程序源代碼
;判別象限角以原點o1為圓心,沿x軸逆時針按各個圓弧段開始分區(qū),ag,ah,ai,ae分別為圓弧段R1與R4,R4與R3,R3與R2,R2與R1交點坐標(biāo)(如圖1所示)相對于坐標(biāo)X軸夾度(逆時針注記按弧度表示)
5 程序應(yīng)用舉例
本例采用鐵路(隧參2008)五類A二襯設(shè)計內(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è)計圖紙實際尺寸代入上述原代碼中, 形成該類型斷面lisp原代碼,即可用于判斷該類型斷面超欠挖值,通過讀取如下格式實測斷面線文本文件數(shù)據(jù)
6 結(jié)語
通過autolisp語言編程更好的解決了鐵路隧道斷面超欠挖值的自動計算并標(biāo)示的問題,在不借助于設(shè)計斷面輪廓線的情況下即可精準(zhǔn)的判斷并標(biāo)注超欠挖值.極大的提高了鐵路隧道斷面超欠挖分析的繪圖效率。
叁考文獻(xiàn)
[1] 李朝陽,蘇振輝.AutoLISP在測繪圖形處理中的應(yīng)用[S].山西建筑,2007(12).
[2] 魏蘋,張亮,李芬.AutoLISP用于斷面點的采集[J].科技創(chuàng)新導(dǎo)報,2010(29).
[3] 馮潔,王國輝,楊望星,計算機輔助測量在鐵路隧道斷面測量中的應(yīng)用[J].山巍鐵道建筑,2005(2).endprint
摘 要:利用autolisp語言編程能實現(xiàn)鐵路隧道實測斷面輪廓線的自動生成,快速并準(zhǔn)確判別斷面超欠挖狀況并及標(biāo)注超欠挖值,這樣極大的提高了隧道斷面超欠挖分析的人工效率同時有較好的實用性和推廣性。
關(guān)健詞:autolisp隧道斷面 超欠挖 程序
中圖分類號: TP391.72 文獻(xiàn)標(biāo)識碼:A 文章編號:1674-098X(2014)03(c)-0046-03
AutoLISP是由Autodesk公司開發(fā)的一種作為可嵌入在AutoCAD內(nèi)部的具有智能特點的編程語言,具有很強的數(shù)值圖形交換功能且語法簡單、易于操作,直接輸入代碼到AUTOCAD autolisp編輯器即可調(diào)用,使用起來極為方便,現(xiàn)已被廣大工程技術(shù)人員運用到CAD智能繪圖領(lǐng)域。
在鐵路隧道建設(shè)中,隧斷施工的超欠挖控制作為施工測量控制重點,關(guān)系的隧道的走向及開挖和襯徹凈尺寸是否滿足設(shè)計圖紙要求,隨著全站儀免棱鏡測量技術(shù)的發(fā)展,利用全站儀任意采點的方式來檢測隧道斷面將更加快捷方便.通過CAD按實測數(shù)據(jù)繪制測量斷面輪廓線比較設(shè)計斷面輪廓線來判斷斷面的超欠挖狀況,然而由于實測斷面線特征點數(shù)目繁多,利用傳統(tǒng)的CAD直接展點及標(biāo)注不僅慢,而且不能直觀的判斷斷面的超欠挖狀況,通過Autolisp語言編程能夠更好更快的解決超欠挖分析并繪制斷面圖的問題。
1 程序的實現(xiàn)
圖1為鐵路隧道標(biāo)準(zhǔn)斷面,隧道設(shè)計斷面輪廓線由不同圓心位置且不等長半徑的四段圓弧構(gòu)成,實測斷面線由外業(yè)測量坐標(biāo)數(shù)據(jù)反算成相對于設(shè)計線路中線偏距Xi,高差Yi,通過多段線坐標(biāo)展點后繪制而成,超欠挖值及由設(shè)計斷面線與實測斷面線比較得出,程序需解決的問題就是通過讀取實測斷面線數(shù)據(jù)文件,自動繪制實測斷面線,比較超欠挖值的大小及判斷超欠挖的類型,并沿斷面實測斷面線特征點超欠值自動標(biāo)注于斷面圖上供后續(xù)施工提供指導(dǎo).
2 程序基本原理
通過read-line命令讀取實際開挖線文
該文件內(nèi)坐標(biāo)值,調(diào)用pline命令沿坐標(biāo)自動繪制實測斷面輪廓線,通過assoc函數(shù)提取實測斷面輪廓線屬性端點坐標(biāo)元素,利用cond函數(shù)根據(jù)設(shè)計斷面各弧段連接點(圖1ae,ai,ah,ag點)到隧道中心點(圓心O1)的象限角來判斷開挖線端點相對于隧道中心點o1的坐標(biāo)方位,選用對應(yīng)的圓弧圓心位置和半徑比較,得出實測斷面線的超欠挖值,并標(biāo)示于開挖線端點上(超挖以正值顯示、欠挖以負(fù)值顯示).
3 程序流程圖
見圖2。
4 程序源代碼
;判別象限角以原點o1為圓心,沿x軸逆時針按各個圓弧段開始分區(qū),ag,ah,ai,ae分別為圓弧段R1與R4,R4與R3,R3與R2,R2與R1交點坐標(biāo)(如圖1所示)相對于坐標(biāo)X軸夾度(逆時針注記按弧度表示)
5 程序應(yīng)用舉例
本例采用鐵路(隧參2008)五類A二襯設(shè)計內(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è)計圖紙實際尺寸代入上述原代碼中, 形成該類型斷面lisp原代碼,即可用于判斷該類型斷面超欠挖值,通過讀取如下格式實測斷面線文本文件數(shù)據(jù)
6 結(jié)語
通過autolisp語言編程更好的解決了鐵路隧道斷面超欠挖值的自動計算并標(biāo)示的問題,在不借助于設(shè)計斷面輪廓線的情況下即可精準(zhǔn)的判斷并標(biāo)注超欠挖值.極大的提高了鐵路隧道斷面超欠挖分析的繪圖效率。
叁考文獻(xiàn)
[1] 李朝陽,蘇振輝.AutoLISP在測繪圖形處理中的應(yīng)用[S].山西建筑,2007(12).
[2] 魏蘋,張亮,李芬.AutoLISP用于斷面點的采集[J].科技創(chuàng)新導(dǎo)報,2010(29).
[3] 馮潔,王國輝,楊望星,計算機輔助測量在鐵路隧道斷面測量中的應(yīng)用[J].山巍鐵道建筑,2005(2).endprint