求助，急！

cityhunter

请问怎么将autocad里的水深数据导出成文本文件阿
只要水深点的x，y坐标和水深值
请高人们指点我一下阿!

wxg40007

可以吗？你听说过这种事吗？真行的话还真得学习学习了。：）

seast

可以用vba或lisp程序很方便的实现，如果还不了解vba、lisp，还有一个简单方法：
选中某一条水深等值线，运用CAD软件内置的命令LIST可以方便的列出沿一条等高线上的一系列点的平面坐标和高程。
如果用VBA、AUTOLISP等程序语言对CAD进行二次开发的话就不用一条一条等高线选了，可以一次全部导出到为文本文件。

wxg40007

哦……长见识了！呵呵！

cityhunter

谢谢！
我也在用vba做，但是还没找到很好的方法。
你有好的建议吗？

cityhunter

附件里有个dwg文件
怎么样把里面GCD层里的水深值和坐标读出来呢？
请指教。

seast

我先试试

seast

我看到了图，GCD里有两部分内容：点和文字。
现在容易做的是读取文字的坐标和文字值。
如果你要求得到点的坐标和文字的值，估计需要做 离点最近的文字 这么一个判断，类似于相关分析。
附件是文字的坐标和值。（x,y,z）

seast

关于程序设计思路，人民邮电出的那本vba说的很清楚，那本输封面上好像画着一只老虎，先建立一个选择集对象，然后把当前层上的所有对象选进去，再逐一过滤，如果是text对象获取它的坐标和值，然后输出到文本。

cityhunter

阿，太好了。
我还有其他图，你能把你写的vba程序给我吗？
求求你了

seast

仅供参考
Sub OUT_DAT(FileName As String)
    Dim myStr As String        
    Dim sSetObj As AcadSelectionSet
   
    Set sSetObj = ActiveDocument.SelectionSets.Add("TEST_SSET1")
   
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 8
    dataValue(0) = ActiveDocument.ActiveLayer.Name
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
   
    sSetObj.Select acSelectionSetAll, , , groupCode, dataCode
   
    Open FileName For Output As #1
    For iii = 0 To sSetObj.Count - 1
      With sSetObj.Item(iii)
        If StrComp(.ObjectName, "AcDbText", vbTextCompare) = 0 Then
            x =.InsertionPoint
            myStr = .TextString
            If IsNumeric(myStr) Then
                Print #1, x(0), x(1), Val(myStr)
            End If
        End If
      End With
    Next iii
    Close #1
End Sub

cityhunter

真是感激涕零啊，太谢谢海东了。。。。。
555，好感动啊。。。

seast

不要客气，互相帮助。