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内，第二次与第一次调整标高一致。 ②曲线在某点突然回升。
原因：水准点或观测点被碰动所致且水准点碰动后标高低于碰前标高，观测点碰后高于碰前。
处理措施：取相邻另一观测点的相同期间沉降量作为被碰观测点之沉降量。
③曲线自某点起渐渐回升
原因：一般是水准点下沉所致。
措施：确定水准点下沉值，与高级水准点符合测量，确定下沉重。
