请问高手怎样提取地形图中无高程属性的地形点高程？

ljw2009

如果电子地形图上的高程点没有高程属性，即只有X\Y值，没有Z值，也就是Z值是在图面上用文本表示的，那怎样将地形点提出X\Y\Z值呢？请问高手 ，谢谢

wmz

发个图来看看，或许有办法！

hhuyyh

期待解决

水清平

我也想知道这个  不知道有人可以解决吗 

 

gzxl

获取CAD中图元的坐标软件（提供源代码C#）  

水清平

gzxl发表于2010-7-22 0:07:00获取CAD中图元的坐标软件（提供源代码C#）  

不懂 。。。。。。。。

李龙山

xy值直接提取，z值选取数值附加到xy后面

xiewawa

期待解决！

gzxl

  提取无属性小数点的高程点

 

Set acadApp = GetObject(, "AutoCAD.Application")
    If Err Then
       Err.Clear
         Set acadApp = CreateObject("AutoCAD.Application")
    If Err Then End
    End If
    acadApp.Visible = True
    Dim acadDoc As AcadDocument
    acadApp.WindowState = acMax
    Set acadDoc = acadApp.ActiveDocument
    Set Excel = GetObject(, "Excel.Application")
    Set xlSheet = Excel.ActiveWorkbook.Sheets("sheet1")
 
  Dim sjx  As AcadSelectionSet
     Set sjx = acadDoc.SelectionSets.Add("ss10")
     sjx.SelectOnScreen
  h = sjx.Count
  h = 0
  For i = 0 To h - 1  '删除所有的选择集
     Set ssetObj = acadDoc.SelectionSets.Item(0)
     ssetObj.Delete
  Next i
 
  Dim FilterType(1) As Integer
  Dim FilterData(1) As Variant
  FilterType(0) = 0
  FilterData(0) = "text"  '是圆
  FilterType(1) = 8
  FilterData(1) = "shuju"  '图层是0
  Dim mode As Integer
  mode = acSelectionSetAll
  sjx.Select mode, , , FilterType, FilterData
 
  k = 1
  Dim entry As AcadEntity
  Dim point As Variant
  Dim hjx As String
 
  For Each entry In sjx
     If entry.ObjectName = "AcDbText" Or entry.ObjectName = "AcDbMText" Then
     point = entry.InsertionPoint
     hjx = entry.TextString
    
     xlSheet.Cells(k, 1) = Format(point(0), "##0.000")
     xlSheet.Cells(k, 2) = Format(point(1), "##0.000")
     xlSheet.Cells(k, 3) = Format(hjx, "##0.0")
     k = k + 1
     End If
  Next entry

njcknfy

先计算高程注记的矩形框,求矩形框的中心点,查找离矩形框中心点最近的高程点匹配,此方法可以匹配出大部分的高程点的Z值,其余的就只能手工匹配了