• 
    

    
    

      99热精品在线国产_美女午夜性视频免费_国产精品国产高清国产av_av欧美777_自拍偷自拍亚洲精品老妇_亚洲熟女精品中文字幕_www日本黄色视频网_国产精品野战在线观看

      ?

      基于VLISP對地形圖中橫斷面的提取并生成橫斷面圖的研究

      2012-04-29 00:44:03高華峰
      科技資訊 2012年12期
      關(guān)鍵詞:三角網(wǎng)內(nèi)業(yè)橫斷面

      高華峰

      摘要:對已有的1∶1000或者更大比例尺數(shù)字地形圖進行一定的內(nèi)業(yè)處理,將使放線工作中的橫斷面測量得到很大簡化,本文通過AUTOCAD使用自帶程序語言VLISP命令的應(yīng)用,在地形圖的內(nèi)業(yè)工作中,直接提取橫斷面數(shù)據(jù),并生成橫斷面圖。

      關(guān)鍵詞:測量地形圖橫斷面VLISP

      中圖分類號:TP399 文獻標識碼:A 文章編號:1672-3791(2012)04(c)-0016-02

      在實際放線工作中經(jīng)常要測量橫斷面并生成橫斷面圖,在測量橫斷面資料時按照傳統(tǒng)的方法,在線路樁點處沿線路垂直方向進行左右測量,記錄下來,然后在內(nèi)業(yè)中按照各專業(yè)需求生成相應(yīng)格式的橫斷面數(shù)據(jù),繼而生成橫斷面圖。如果在工作中對這種傳統(tǒng)的方法改進,會很大地節(jié)約外業(yè)時間。隨著RTK等數(shù)字化儀器的廣泛使用,其誤差可完全滿足規(guī)范有關(guān)橫斷面的10的限差要求,在測量橫斷面工作過程中,可不用考慮線路的走向,直接按測地形圖的方法沿線路兩側(cè)需要的寬度范圍內(nèi)測量地形,然后內(nèi)業(yè)中進行橫斷面的提取,且可利用程序直接生成橫斷面圖腳本文件。當然如果已有工作區(qū)域內(nèi)的1∶1000或1∶500數(shù)字化大比例地形圖,我們也可直接從數(shù)字化圖上進行橫斷面的內(nèi)業(yè)提取。我們在工作中利用VLISP程序做了個小命令可以直接在內(nèi)業(yè)中實現(xiàn)該需求。下面我們就該命令的實現(xiàn)結(jié)合實際放線工作進行闡述。

      1地形圖中的應(yīng)用

      1.1 關(guān)鍵地形點及特殊地物的處理

      在外業(yè)工作中按地形走勢測取關(guān)鍵地形點,在內(nèi)業(yè)中將外業(yè)散點及縱斷面面數(shù)據(jù)展于AUTOCAD中,然后生成三角網(wǎng)。在實際工作中經(jīng)常遇到路基,堤壩,溝渠等特殊地物,在內(nèi)業(yè)中可根據(jù)地形點單獨生成三角網(wǎng),將其顏色改成不同于普通地形點的三角網(wǎng)。

      1.2 橫斷面提取格式設(shè)定

      在生成的三角網(wǎng)圖上開始橫斷面數(shù)據(jù)的提取,在本文中我們選取的橫斷面面格式如下。

      樁號,高程。

      左側(cè)最遠距離,高程。

      樁位處距離(0),高程。

      右側(cè)最近處距離,高程。

      當然也可根據(jù)各種需要生成不同的格式文件,將生成橫斷面數(shù)據(jù)存儲于所測的地形展點圖形文件的相應(yīng)文件夾中。

      1.3 對該VLISP命令的簡要說明

      在實現(xiàn)該功能中利用AUTOCAD自帶程序語言VLISP進行了命令的編寫。具體命令如下。

      ln(strlen wjm)

      wjm (substr wjm 1 (- ln 4)))

      (setq wjm1 (strcat wjmlj wjm "橫斷面.txt"))

      (setq wjm2 (strcat wjmlj wjm "橫斷面圖.scr"))

      (setq zg (getint " 輸入橫斷圖間隔: "))

      (setq zg1 (rtos zg 2 2))

      (setq zh (cdr (assoc 1 (entget (car (entsel " 拾取里程樁號:"))))))

      (setq pp1 (getpoint " 拾取該里程點位:"))

      (setq y1 (car pp1)

      x1 (cadr pp1)

      h1 (caddr pp1))

      (setq zhgc (rtos h1 2 2))

      (setq zhgc1 (rtos (+ h1 zg)))

      (setqzhgcw1 (rtos (+ h1 zg 2) 2 2)

      zhgcw2 (rtos (+ 0 10) 2 1))

      (command "osnap" "nod,nea,center" "")

      (setq i 1)

      (setq fn1 (open wjm1 "a"))

      (setq fn2 (open wjm2 "a"))

      (setq zhc " ")

      (write-line (strcat zh "," zhgc ) fn1)

      (write-line "layer m 橫斷面左側(cè) " fn2)

      (write-line "layer c 5" fn2)

      (write-line(strcat "text m " "-10" "," zhgcw1 " " "2.5" " " zh ) fn2)

      (write-line(strcat "text m " zhgcw2 "," zhgcw1 " " "2.5" " " zhgc ) fn2)

      (write-line "pline" fn2)

      (command "-layer" "m" "橫斷面左側(cè)" "c" "red" "" "" "")

      (while (and (< rq 20111018) (progn (initget 8 "x")

      (setq pp2 (getpoint " 從最遠點依次指定左側(cè)點:"))

      (command pp2)

      (if (= ''''list (type pp2))

      (progn

      (setq yp1 (car pp2))

      (setq xp1 (cadr pp2))

      (setq hp1 (caddr pp2))

      (setq dys (- y1 yp1)

      dxs (- x1 xp1)

      dhs (- hp1 h1))

      (setq s1 (sqrt (+ (* dys dys) (* dxs dxs))))

      (setq ss1 (rtos s1 2 2)

      gc1 (rtos hp1 2 2))

      (setq sss1 (rtos (+ s1 zg) 2 2)

      gcc1 (rtos (+ hp1 zg) 2 2))

      (setq sjj (strcat ss1 "," gc1))

      (setq zsj (strcat sjj ","))

      (write-line zsj fn1)

      (write-line (strcat "-" ss1 "," gcc1) fn2)

      (setq i (+ i 1))

      ) ) ) ) )

      (write-line (strcat "0" "," zhgc) fn1)

      (write-line (strcat "0" "," zhgc1 " ") fn2)

      (write-line "layer m 橫斷面右側(cè) " fn2)

      (write-line "layer c 3" fn2)

      (write-line "pline" fn2)

      (write-line (strcat "0" "," zhgc1) fn2)

      (setq ii 1)

      (setq zhc "")

      (command "-layer" "m" "橫斷面右側(cè)" "c" "blue" "" "" "")

      (command "pline" pp1 "w" "0""0")

      (while (progn (initget 8 "x")

      (setq pp3 (getpoint " 從第一點依次指定右側(cè)點:"))

      (princ (strcat " ") fn2)

      (setq zjwz (list yp2 xp2))

      (command "-layer" "m" "間隔注記" "c" "red" "" "" "")

      (command "text" "j" "c" zjwz 5 0 zg)

      (CLOSE fn1)

      (close fn2)

      (command "-layer" "s" 0 "" "")

      (setvar "cmdecho" oce)

      (PRINC)

      1.4 橫斷面數(shù)據(jù)及橫斷面圖的生成

      調(diào)試無誤后編譯為shdm.fas文件,在打開AUTOCAD后執(zhí)行APPLOAD命令,將shdm.fas文件加載,在加載完成后,直接輸入shdm。根據(jù)提示先輸入成橫斷面圖的間隔,然后依照提示點取要提取的樁號,再選取樁位對應(yīng)的點位,然后依次從線路左側(cè)最遠處開始提取橫斷面,在左側(cè)數(shù)據(jù)提取完成后,再按鼠標右鍵,開始從線路右側(cè)最近點依次提取線路右側(cè)橫斷面,右側(cè)橫斷面提取完成后,按右鍵,開始下一個樁位的提取。在提取中直接選取垂直于線路的三角網(wǎng)的邊就行了。我們?yōu)榱藚^(qū)分,在每個樁位提取完成后,在右側(cè)用藍色多義線進行了標示。在完成提取后,在AUTOCAD下新建一個橫斷面圖的文件,具體生成橫斷面文件txt格式如下。

      1180+100,1073.25 (樁號,高程)

      32.00,1074.02,(左距離,高程)

      23.73,1073.76,

      10.39,1073.47,

      0,1073.25

      8.57,1073.12, (右距離,高程)

      27.09,1073.25,

      再執(zhí)行“工具-運行腳本”,選取地形展點圖形文件所在路徑文件夾下相應(yīng)的腳本文件*.scr,自動生成橫斷面圖。

      2結(jié)語

      通過在地形圖中直接提取橫斷面及生成橫斷面圖,使地形圖的測量與橫斷面的測量一體完成,自動化程度高,節(jié)約了外業(yè)測量的重復勞動,提高了工作效率。對目前廣泛進行的公路水利放線測量具有一定的實用性。

      參考文獻

      [1] GPS-RTK高效橫斷面測量技術(shù)研究[J].重慶交通大學學報(自然科學版).

      猜你喜歡
      三角網(wǎng)內(nèi)業(yè)橫斷面
      公路施工項目內(nèi)業(yè)資料管理探討
      應(yīng)用地表覆蓋數(shù)據(jù)估算LiDAR內(nèi)業(yè)工作量的方法研究
      城市道路橫斷面設(shè)計研究
      高速公路機電系統(tǒng)內(nèi)業(yè)資料管理思考
      建筑工程內(nèi)業(yè)資料管理探討
      江西建材(2018年4期)2018-04-10 12:37:50
      針對路面建模的Delaunay三角網(wǎng)格分治算法
      廣州市健康體檢人群種植修復情況的橫斷面研究
      2014年某院醫(yī)院感染橫斷面調(diào)查
      中醫(yī)院醫(yī)院感染橫斷面調(diào)查分析
      清華山維在地形圖等高線自動生成中的應(yīng)用
      茂名市| 城口县| 荔浦县| 马山县| 吐鲁番市| 阿合奇县| 佛学| 区。| 勃利县| 文安县| 湟源县| 桂林市| 和田市| 长丰县| 蒲城县| 南丰县| 荃湾区| 潍坊市| 横山县| 乌海市| 商水县| 泽普县| 平湖市| 铜梁县| 武宣县| 历史| 镇江市| 金川县| 英吉沙县| 灵丘县| 云霄县| 宜良县| 温泉县| 巍山| 三明市| 松溪县| 体育| 卓资县| 阿拉善盟| 德化县| 青神县|