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()<BR>Dim obj As AcadSpline<BR>ThisDrawing.Utility.GetEntity obj, pnt<BR>MsgBox UBound(obj.ControlPoints)<BR>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
页: [1] 2
查看完整版本: 如何取得等高线上所有控制点的坐标？