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

yu-gn 发表于 2003-10-29 10:22:00

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

zeng29 发表于 2003-10-29 11:04:00

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

yu-gn 发表于 2003-10-29 11:09:00

thanks
页: [1]
查看完整版本: 关于多段线顶点(在线等待)