Public Sub GetText_控制點() ‘提取AutoCAD中測量點坐標

Const PLayer As String = “GCD” ‘定義測量點所在圖層,”“代表所有

Const FileName As String = “d:\ds_pointsets_GCD.dat” ‘定義保存測量點路徑

Dim adText As AcadText

Dim adSS As AcadSelectionSet

Dim fType(0 To 1) As Integer, fData(0 To 1)

‘On Error Resume Next

Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)

If Err Then Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)

adSS.Clear

fType(0) = 0: fData(0) = “TEXT”: fType(1) = 8: fData(1) = PLayer ‘過濾條件

adSS.Select acSelectionSetAll, , , fType, fData

Open FileName For Append As #1

For Each adText In adSS

Print #1, Format(adText.InsertionPoint(0) – 1, “0.00”), Format(adText.InsertionPoint(1) + 2, “0.00”), adText.TextString

Next adText

Close #1

adSS.Delete ‘選擇集刪除

MsgBox “提取成功!”

End Sub

Public Sub GetLWPOLYLINE_等高線() ‘提取AutoCAD中多段線段點坐標

Const PLayer As String = “DGX” ‘定義測量點所在圖層,”“代表所有

Const FileName As String = “d:\ds_pointsets_DGX.dat” ‘定義保存測量點路徑

Dim Lwpl As AcadLWPolyline

Dim adSS As AcadSelectionSet

Dim i As Integer

Dim Pt As Variant

Dim fType(0 To 1) As Integer, fData(0 To 1)

Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)

If Err Then Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)

adSS.Clear

fType(0) = 0: fData(0) = “LWPOLYLINE”: fType(1) = 8: fData(1) = PLayer ‘過濾條件

adSS.Select acSelectionSetAll, , , fType, fData

Open FileName For Append As #1

For Each Lwpl In adSS

Pt = Lwpl.Coordinates

Dim xdataOut As Variant

Dim xtypeOut As Variant

For i = 0 To UBound(Pt) Step 2

Print #1, Format(Pt(i), “0.00”), Format(Pt(i + 1), “0.00”), Lwpl.Elevation

Next i

Next Lwpl

Close #1

adSS.Delete ‘選擇集刪除

MsgBox “提取成功!”

End Sub

Public Sub GetPOLYLINE_等高線() ‘提取AutoCAD中多段線段點坐標

Const PLayer As String = “DGX” ‘定義測量點所在圖層,”“代表所有

Const FileName As String = “d:\ds_pointsets_DGX.dat” ‘定義保存測量點路徑

Dim Lwpl As AcadPolyline

Dim adSS As AcadSelectionSet

Dim i As Integer

Dim Pt As Variant

Dim fType(0 To 1) As Integer, fData(0 To 1)

Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)

If Err Then Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)

adSS.Clear

fType(0) = 0: fData(0) = “POLYLINE”: fType(1) = 8: fData(1) = PLayer ‘過濾條件

adSS.Select acSelectionSetAll, , , fType, fData

Open FileName For Append As #1

For Each Lwpl In adSS

Pt = Lwpl.Coordinates

Dim xdataOut As Variant

Dim xtypeOut As Variant

For i = 0 To UBound(Pt) Step 3

Print #1, Format(Pt(i), “0.00”), Format(Pt(i + 1), “0.00”), Format(Pt(i + 2), “0.00”)

Next i

Next Lwpl

Close #1

adSS.Delete ‘選擇集刪除

MsgBox “提取成功!”

End Sub

Public Sub GetBLANK_白化() ‘提取AutoCAD中多段線段白化范圍

Const PLayer As String = “圈定” ‘定義測量點所在圖層,”“代表所有

Const FileName As String = “d:\d.bln” ‘定義保存測量點路徑

Dim Lwpl As AcadLWPolyline

Dim adSS As AcadSelectionSet

Dim i As Integer

Dim Pt As Variant

Dim fType(0 To 1) As Integer, fData(0 To 1)

Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)

If Err Then Set adSS = ThisDrawing.SelectionSets.Add(“adSS”)

adSS.Clear

fType(0) = 0: fData(0) = “LWPOLYLINE”: fType(1) = 8: fData(1) = PLayer ‘過濾條件

adSS.Select acSelectionSetAll, , , fType, fData

Open FileName For Append As #1

For Each Lwpl In adSS

Pt = Lwpl.Coordinates

Dim xdataOut As Variant

Dim xtypeOut As Variant

Print #1, (UBound(Pt) + 1) / 2 & “,0”

For i = 0 To UBound(Pt) Step 2

Print #1, Format(Pt(i), “0.00”) & “,” & Format(Pt(i + 1), “0.00”)

Next i

Next Lwpl

Close #1

adSS.Delete ‘選擇集刪除

MsgBox “提取成功!”

End Sub

5、 施測要求

儀器、設備的操作方法與觀測程序要熟悉、正確。在首次觀測前要對所用儀器的各項指標進行檢測校正，必要時經計量單位予以鑒定。連續使用3–6個月重新對所用儀器、設備進行檢校。

在觀測過程中，操作人員要相互配合，工作協調一致，認真仔細，做到步步有校核。

6、 沉降觀測精度的要求

根據建筑物的特性和建設、設計單位的要求選擇沉降觀測精度的等級。再未有特除要求情況下，一般性的高層建構筑物施工過程中，采用二等水準測量的觀測方法就能滿足沉降觀測的要求。我們在河北省交通培訓中心工程施工過程中就采用二等水測量的觀測方法。

各項觀測指標要求如下：

(1)往返較差 、附和或環線閉合差： △h＝∑a-∑b≤l√n-，表示測站數。(或△h＝∑a-∑b≤1.0√L-， L表示觀測路線距離)

(2)前后視距 ： ≤30m

(3)前后視距差 ： ≤1.0m

(4)前后視距累積差 ≤3.0m

(5)沉降觀測點相對于后視點的高差容差 ：≤1.0mm

(6)水準儀的精度不低于N2級別

7、 沉降觀測成果整理及計算要求

原始數據要真實可靠，記錄計算要符合施工測量規范的要求，依據正確，嚴謹有序，步步校核，結果有效的原則進行成果整理及計算。

二、 具體施測程序及步驟

1、建立水準控制網

根據工程的特點布局、現場的環境條件制訂測量施測方案，由建設單位提供的水準控制點(或城市精密導線點)根據工程的測量施測方案和布網原則的要求建立水準控制網。要求： (1)一般高層建筑物周圍要布置三個以上水準點，水準點的間距不大于100米。

(2)在場區內任何地方架設儀器至少后視到兩個水準點，并且場區內各水準點構成閉合圖形，以便閉合檢校。

(3)各水準點要設在建筑物開挖、地面沉降和震動區范圍之外，水準點的埋深要符合二等水準測量的要求(大于1.5米)

根據工程特點，建立合理的水準控制網，與基準點聯測，平差計算出各水準點的高程。2、建立固定的觀測路線

由場區水準控制網，依據沉降觀測點的埋設要求或圖紙設計的沉降觀測點布點圖，確定沉降觀測點的位置。在控制點與沉降觀測點之間建立固定的觀測路線，并在架設儀器站點與轉點處作好標記樁，保證各次觀測均沿統一路線。

3、沉降觀測

根據編制的工程施測方案及確定的觀測周期，首次觀測應在觀測點安穩固后及時進行。一般高層建筑物有一或數層地下結構，首次觀測應自基礎開始，在基礎的縱橫軸線上(基礎局邊)按設計好的位置埋設沉降觀測點(臨時的)，等臨時觀測點穩固好，進行首次觀測。

首次觀測的沉降觀測點高程值是以后各次觀測用以比較的基礎，其精度要求非常高，施測時一般用N2或N3級精密水準儀。并且要求每個觀測點首次高程應在同期觀測兩次后決定。

隨著結構每升高一層，臨時觀測點移上一層并進行觀測直到十0．00再按規定埋設永久觀測點(為便于觀測可將永久觀測點設于十500mm)。然后每施工一層就復測一次，直至竣工。

4、將各次觀測記錄整理檢查無誤后，進行平差計算，求出各次每個觀測點的高程值。從而確定出沉降量。

某個觀測點的每周期沉降量： △c＝Hh，I-Hn，I -1 ．

N表示某個觀測點，I表示觀測周期數(I＝1，2，3……)且 H1＝H0

累計沉降量： △C＝∑△ c (n)，n表示觀測點號。

5、統計表匯總

(1)、根據各觀測周期平差計算的沉降量，列統計表，進行匯總。

(2)、繪制各觀測點的下沉曲線

首先建立下沉曲線坐標，橫坐標為時間坐標，縱坐標上半部為荷載值，下半部為各沉降觀測周期的沉降量。

將統計表中各觀測點對應的觀測周期所測得沉降量畫于坐標中，并將相應的荷載值也畫于坐標中，連線，就得到對應于荷載值的沉降曲線。

(3) 根據沉降量統計表和沉降曲線圖，我們可以預測建筑物的沉降趨勢，將建筑物的沉降情況及時的反饋到有關主管部門，正確地指導施工。特別座在沉陷性較大的地基上重要建筑物的不均勻沉降的觀測顯得更為重要。

利用沉降曲線還可計算出因地基不均勻沉降引起的建筑物傾斜度：q=│△Cm-△Cn│/Lmn，△Cm,△Cn分別為m，n點的總沉降量，Lmn為m，n點的距離。

對沉降觀測的成果分析，我們還可以找出同一地區類似結構形式建筑物影響其沉降的主要因素，指導施工單位編好施工組織設計正確指導施工大有裨益，同樣也為勘察設計單位提供寶貴的一手資料，設計出更完善的施工圖紙。

6．觀測中的注意事項：

(1)嚴格按測量規范的要求施測。

(2)前后視觀測最好用同一水平尺。

(3)各次觀測必須按照固定的觀測路線進行。

(4)觀測時要避免陽光直射，且各觀測環境基本一致。

(5)成像清晰、穩定時再讀數。

(6)隨時觀測，隨時檢核計算，觀測時要-氣阿成。

(7)在雨季前后要聯測，檢查水準點的標高是否有變動。

(8)將各次所觀測沉降情況及時反饋有關部門，當建筑物每天(24h)連續沉降量超過1mm時應停止施工，會同有關部門采取應急措施。

三、 探討的兩個問題

(1)確定建筑物沉降觀測精度的合理性。由于現行規范對施工單位施工過程的沉降觀測要求不明朗，這對施工單位在建筑物沉降觀測精度選擇隨意性較大，但是精度的高低直接關系到沉降觀測成敗。對沉降觀測精度選擇既不能太高也不能太低，要合理適宜，適合工程特性的需要。既不造成無謂的浪費也要保證觀測結果的準確性。這樣，本人認為一般高層及重要的建(構)筑物在首次觀測過程中適用精密儀器的設備(高級水準儀、銦 合金尺等)在±0．00以上部分按二等以上水準測量方法，采用放大率倍數較大的S2或S3水準儀進行觀測，也可以測出較理想的結果。

(2)在沉降觀測過程中，沉降量與時問關系曲線不是單邊下行光滑曲線，而是起伏狀現象。這就分析原因，進行修正。

①第二次觀測出現回升，而以后各次觀測又逐漸下降。可能是首次觀測精過低，若回升超過5mm時，第一次觀測作廢，若回升5mm內，第二次與第一次調整標高一致。 ②曲線在某點突然回升。

原因：水準點或觀測點被碰動所致且水準點碰動后標高低于碰前標高，觀測點碰后高于碰前。

處理措施：取相鄰另一觀測點的相同期間沉降量作為被碰觀測點之沉降量。

③曲線自某點起漸漸回升

原因：一般是水準點下沉所致。

措施：確定水準點下沉值，與高級水準點符合測量，確定下沉重。

總結

以上是生活随笔為你收集整理的python提取cad坐标_cad中坐标提取方法（一）的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。