VBA能批量输出等高线坐标数据么？？

PAPA8399 · 发表于 2006-6-16 15:52:00

想批量输出等高线数据，vba 能做到么？？

数据输出到txt 或 excel access....等，能做到么，

请各位大虾指教，

站内或email : lw8399@126.com

peicong · 发表于 2006-6-16 20:06:00

可以的，只是三言两语讲不清楚

PAPA8399 · 发表于 2006-6-18 09:29:00

我查过vba的属性说明，好像很难输出？

反正我没有太大的办法，还请大虾执教。。。。。

saga · 发表于 2006-6-18 10:05:00

当然可以

PAPA8399 · 发表于 2006-6-18 16:10:00

还请各位大虾点拨一下。。。。

cad中有list功能，能查到所有控制点的坐标，但如何实现并输出。。。小生不会，，，请高手点点。。。

W8399@126.COM" target="_blank" >LW8399@126.COM

68651521 · 发表于 2006-6-18 21:42:00

这么跟你说吧

新开一个CAD 在里面随便画一条多段线

再新建一个图层名字叫"等高线" 把刚画的这条线放到"等高线"图层中

然后运行下面的代码

Sub OutputCoords()

    Dim Entry As AcadEntity
    Dim Coords As Variant
    Open "c:\test.txt" For Output As #1
    For Each Entry In ThisDrawing.ModelSpace
        If TypeName(Entry) = "IAcadLWPolyline" And Entry.Layer = "等高线" Then
            Coords = Entry.Coordinates
            For i = 0 To UBound(Coords) - 1 Step 2
                Print #1, "X="; Trim(Str(Coords(i))); ","; "Y="; Trim(Str(Coords(i + 1)))
            Next i
        End If
    Next Entry
    Close #1

End Sub

再打开 C:\test.txt 文件里面就是坐标信息.

PAPA8399 · 发表于 2006-6-21 11:31:00

谢谢。。。

不过，最终要实现在cad中输入一个命令，然后选取选定的等高线，回车，来完成等高线坐标点的输出，

大侠说的是，等高线还得取出等高线上的高程坐标才行？？？还请游侠指教。。

坐标点能存在excel access 中么？

68651521 · 发表于 2006-6-22 16:34:00

貌似你完全没学过VB 或者 VBA

PAPA8399 · 发表于 2006-6-29 17:36:00

呵呵，

新手，努力学习中，谢谢楼上的指点

z坐标值又怎么输出呢？还请游侠看看。。。

68651521 · 发表于 2006-7-1 10:37:00

Print #1, "X="; Trim(Str(Coords(i))); ","; "Y="; Trim(Str(Coords(i + 1)))
改成

Print #1, "X="; Trim(Str(Coords(i))); ","; "Y="; Trim(Str(Coords(i + 1)));","; "Z="; Trim(Str(Coords(i + 2)))

账号		自动登录	找回密码
密码			注册