CASS軟件在交叉口豎向設計高程放樣中的運用

楊雙富

(云南省一九八煤田地質勘探隊,云南昆明 650208)

CASS軟件在交叉口豎向設計高程放樣中的運用

楊雙富?

(云南省一九八煤田地質勘探隊,云南昆明 650208)

針對道路交叉口豎向設計施工放樣網格點高程手工獲取過程煩瑣、效率及精度低下、容易出錯等問題,在目前較為流行的地形地籍成圖軟件南方CASS環境中,利用Visual LISP語言編程進行二次開發,調用CASS軟件“查詢指定點高程”的命令,實現了交叉口豎向設計施工放樣網格點高程值的快速計算,達到了化繁為簡、降低工作強度的目的,提高了獲取數據的精度和效率。

CASS軟件;交叉口豎向設計;Visual LISP;查詢指定點高程

1 概 述

交叉口豎向設計施工放樣網格點高程值的獲取是城市道路工程設計和施工中常遇到的問題,其處理效率和精度將直接影響工程的進度和工程量的計算。目前,施工單位一般是根據交叉口豎向設計控制性高程點,在CASS軟件中以較小的等高距繪出等高線圖,再將施工放樣網格疊加上面,然后根據網格點所在最近的等高線手工內插出豎向設計高程值。針對道路交叉口豎向設計施工放樣網格點高程獲取的煩瑣、效率及精度低下、容易出錯等問題,在CASS軟件環境中,利用Visual LISP編程調用其“查詢指定點高程”命令,快速計算出交叉口豎向設計網格點的高程值,提高了施工放樣數據獲取的精度和工作效率。

2 高程點計算方法和程序實現

2.1 高程值計算公式

在道路交叉口豎向設計中,通常是先根據交叉口范圍內路中線上、邊界線上的各控制性高程點組成Delaunay三角網,然后根據施工放樣網格點所在的三角形進行雙線性內插求出其高程值。設三角形的三個頂點的坐標為A(xa,ya,ha)、B(xb,yb,hb)、C(xc,yc, hc),網格點P的坐標為(x,y,h),則P點的高程內插計算公式為式(1):

2.2 程序實現

在CASS軟件環境中,其“查詢指定點高程height”命令恰好能完成Delaunay三角網組成、內插計算指定點高程的功能,并且能夠被Visual LISP的command函數調用,因此采用Visual LISP編程調用該命令可快速計算出交叉口豎向設計施工放樣網格點的高程值。交叉口豎向設計施工放樣網格點高程值計算程序保存于名為“SxSGc.lsp”文件中,它由一個主控函數“c:sxsjgc”,三個子函數“tqkzxgc”、“ckfwntyqjd”、“lczhzbpx”組成,限于篇幅,以下僅給出主控函數。其中函數“tqkzxgc”用于提取"JCK-KZXGC"圖層上所有控制性高程點的平面坐標及高程值,并存入與當前圖形文件相同路徑且名為“交叉口豎向設計控制性高程.dat”的文件中;函數“ckfwntyqjd”用于求取窗口范圍內圖層" JCK-Wgx"上直線、圓弧、二維多線相互間的所有交點;函數“lczhzbpx”用于將計算結果按指定的起點及方向排序、注記高程值及編號,并將豎向設計網格點的編號、平面坐標和高程寫入到與當前圖形文件相同路徑且名為“交叉口豎向設計網格點高程值表.csv”的文件中,方便用Excel軟件打開后編輯、排版和打印,然后交付外業交叉口豎設計高程放樣。

(defun c:sxsjgc()

(vl-load-com)

(setq xtblm'("cmdecho""osmode")

xtblz(mapcar'getvar xtblm);獲取系統變量的原始值

)

(mapcar'setvar xtblm'(0 33));對系統變量初始化

(command"_undo""be");設置撤銷命令的起點

(if(=(tblsearch"style""stz0.7")nil)

(command"style""stz0.7""宋體"""0.7"""""")

)

(if(setq p1(getpoint" 范圍左上角點:"))

(if(setq p2(getcorner p1" 范圍右下角點:"))

(if(setq p3(getpoint" 排序起點:"))

(if(setq p4(getpoint p3" 排序方向點:"))

(if(tqkzxgc p1 p2);提取控制性高程點坐標及高程值,并存入指定文件中

(if(setq wgjdb(ckfwntyqjd p1 p2));求得豎向設計網格線的所有交點

(progn

(setq jgb nil)

(mapcar'setvar xtblm'(1 0))

;調用CASS的查詢指定點高程命令,取得交叉口網格線所有交點的高程值

(command"_height"pause)

(foreach pt wgjdb

(command pt)

(setq dxf(entget(entlast))

pt (cdr(assoc 10 dxf))

jgb(cons pt jgb);提取坐標及高程值

)

(entdel(entlast));刪除新生成的高程點圖元

)

(command"");結束命令

(mapcar'setvar xtblm'(0 0))

(if jgb(lczhzbpx p3 p4 jgb));計算結果排序、注記和寫入指定文件中

)

)

)

)

)

)

)

(command"_undo""e");設置撤銷命令的止點

(mapcar'setvar xtblm xtblz);恢復系統變量的原始值

(princ)

)

3 工程實例

某市政道路主路行車道半幅寬9 m,與之相交叉的支路行車道半幅寬7 m,兩道路中線交點的設計高程為311.50 m,主路由西向東在交叉點兩側的縱坡分別為1.013%、0.798%,支路由北向南的縱坡為-2.138%,兩條道路的橫坡均為1.5%,以不大于5 m的間距劃分出交叉口施工放樣網格,以路中設計高程及道路縱、橫坡計算出中線上、邊線上施工放樣網格點的高程作為該交叉口豎向設計的控制性高程點如圖1,其他各網格點的高程如下所述。

3.1 計算圖準備

(1)在CASS軟件中新建一圖形文件;

(2)分別建立名為“JCK-Wgx”、“JCK-KZXGC”的兩個圖層,圖層的顏色以自己的習慣設置;

(3)在圖層JCK-Wgx上,根據設計文件的平面參數,用直線段、圓弧、二維多段線畫出交叉口的邊界線和網格線,其中邊界線有圓弧部分的線用二維多段線畫為一根線,或者用直線段+圓弧+直線段畫出后再合并一根線,畫線時用設計文件中給出的絕對坐標輸入,且要將X坐標、Y坐標互換后輸入,網格線可以超出邊界線1個單位長,這樣做是為了避免因Visual LISP的“intersectwith”方法有Bug而致使個別交點不能求出的問題出現。

(4)在圖層JCK-KZXGC上,根據設計文件的縱、橫斷面設計參數,以單行文本左對齊方式注記出控制性高程點各點的高程值。

(5)在上面(3)、(4)步完成,經檢查無誤后存盤,完成后的圖形如圖1所示。

圖1 交叉口豎向設計網格線圖

3.2 交叉口豎向設計網格點的高程值計算與輸出

交叉口豎向設計網格點的高程值計算與輸出步驟如下:

(1)啟動CASS軟件,打開準備好的交叉口豎向設計網格線圖;

(2)將SxSjGc.lsp加載;

(3)在命令行鍵入SxSjGc并回車,按照提示指定能夠包含交叉豎向設計網格線的左上角點、右下角點,排序起點及排序方向點,當出現輸入高程點數據文件對話框時選取“交叉口豎向設計控制性高程.dat”,其他則用“Enter”來回應即完成交叉口豎向設計高程注的計算、注記和數據寫入到文件中。

圖2、圖3給出了交叉口豎向設計高程注記圖和部分計算結果圖。

圖2 交叉口豎向設計高程注記圖

圖3 交叉口豎向設計網格點高程值表

4 結 語

這種充分利用安裝于AutoCAD 2006平臺上的CASS 7.0軟件現有的功能,以Visual LISP編程調用方式實現了道路交叉口豎向設計施工放樣網格點高程值的快速計算出,已在多個市政道路工程進行了實際應用,提高了施工放樣數據獲取精度和工作效率,具有一定的參考價值。值得注意是:由于CASS軟件只提供了命令行方式功能調用,而沒給出相應函數接口,兩者的銜接和操作上都略顯生硬。而當點不在由交叉口豎向設計控制性高程點組成的最小凸多邊形內時,CASS軟會給出相應提示信息并中斷,不能得到所有點的高程,應在程序中增加點在多邊形中的判斷來避免這種情況的發生。

[1] 孫江宏,丁立偉,米潔.Visual LISP R14～2000編程與應用[M].北京:科學出版社,1999.

[2] 吳永進,林美櫻.AutoLISP&DCL基礎篇[M].北京:中國鐵道出版社,2002.

[3] 陳伯雄,馮偉.Visual LISP程序設計—技巧與范例[M].北京:人民郵電出版社,2002.

[4] 劉偉,徐慶元.交叉口立面計算機輔助設計[J].山西建筑,2004(9):200～200.

[5] 謝剛生,范軸,倪曉東.數字化地形地籍成圖系統CASS 7.0用戶手冊.廣州:南方測繪儀器有限公司.2006.

[6] 張國權,孫全黨,徐久成.AutoCAD 2006應用教程[M].北京:電子工業出版社,2007.

AutoCAD Drawing for the New Arc Three Kinds of Ways

Yang Shuangfu
(198 Coal Geological Exploration Teams in Yunnan,Kunming 650208,China)

The vertical design of road construction layout grid intersection point elevation tedious manual process for obtaining,efficiency and accuracy is low,prone to error and other issues,more popular in the current cadastral mapping software terrain south CASS environment,using Visual LISP programming language secondary development,calling CASS software“query specified point elevation”order to achieve a quick calculation of vertical design and construction stakeout grid intersection point elevation values,reaching to simplify and reduce the work intensity of purpose to improve the Get the accuracy and efficiency of the data.

CASS software;intersection vertical design;visual LISP;queries specified point elevation

2014—05—09

楊雙富(1967—),男,高級工程師,主要從事工程測量工作。