关于多段线顶点(在线等待)

yu-gn · 发表于 2003-10-29 10:03:00

各位大哥,如何将多段线的每一个顶点坐标输出到文本中呢??
如下:
4(顶点数)
148,-40.4238
147.9984,-40.4238
148.4787,-40.4375
148,-50

zeng29 · 发表于 2003-10-29 10:17:00

输出到文本文件可以用:
1, Open "文件名" For Output As #1
Print #1,文字内容
2, 使用FSO对像
  如:
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.CreateTextFile("c:\testfile.txt", True)
  a.WriteLine("This is a test.")
  a.Close