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

yu-gn

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

zeng29

输出到文本文件可以用:
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

yu-gn

我会用vb,但不太懂vba for cad,输出到文本我知道,但不知道怎样选择多段线,并得到顶点坐标数据,还望帮忙,谢谢

zeng29

选择多段线可以用AcadSelectionSet建立过滤器或通过obj.ObjectName来判断是否plyline.
多段线的顶点坐标可以用obj.Coordinate(index)来获取.

yu-gn

thanks