如何取得等高线上所有控制点的坐标？

hapland · 发表于 2004-9-20 20:48:00

各位大侠，我对这个不是很熟悉。我想得到所有等高线上的控制点，不知道用什么方法。刚学vba。另外，不知到一般的地形图中那些才是真正的有效点呢？

雪山飞狐_lzh · 发表于 2004-9-20 21:17:00

等高线是什么？多段线还是样条曲线？

hapland · 发表于 2004-9-20 22:59:00

spline线，斑竹可否给个简单的例子

雪山飞狐_lzh · 发表于 2004-9-20 23:06:00

Public Sub test()
Dim obj As AcadSpline
ThisDrawing.Utility.GetEntity obj, pnt
MsgBox UBound(obj.ControlPoints)
End Sub

hapland · 发表于 2004-9-20 23:19:00

多谢，我希望是先得到整个图层的等高线实体，接着是所有控制点，然后输出

hapland · 发表于 2004-9-20 23:31:00

如果是LWPOLYLINE线型呢？

雪山飞狐_lzh · 发表于 2004-9-21 12:19:00

到底是Spl还是LWPOLYLINE？
整个图层的等高线实体用选择集加过滤器

hapland · 发表于 2004-9-21 18:58:00

好像两种线型都有的，vba用的不熟悉，有想法写不出，郁闷

雪山飞狐_lzh · 发表于 2004-9-21 22:27:00

LWPOLYLINE是Coordinates属性

hapland · 发表于 2004-9-21 22:45:00

roger that, thank u lzh741206