如何将AcadEntity转换成Polyline之类的实体(

jsliuyun · 发表于 2004-10-8 16:13:00

'选择图形中的所有实体并使用过滤机制
SelectSetObj.Select acSelectionSetAll, , , FilterType, FilterData
Dim elem As AcadEntity
For Each elem In SelectSetObj
我不知道如何将elem 转换成Polyline之类的实体
Next elem

jsliuyun · 发表于 2004-10-8 18:27:00

各位大侠，帮帮忙啊

雪山飞狐_lzh · 发表于 2004-10-8 19:17:00

为什么要转换？不用转换的

jsliuyun · 发表于 2004-10-8 21:04:00

我是遍历所有的Polyline
我想提取Polyline中的所有点的坐标，但是我不知道如何通过AcadEntity获得点的坐标，所以想转换成Polyline再提取
如果能从AcadEntity提取所有点，请大侠指导

mccad · 发表于 2004-10-8 21:12:00

如果对象是多段线，不管定义成AcadEntity，都可以获得其点坐标。

jsliuyun · 发表于 2004-10-8 21:41:00

因为提取的是等高线，有Polyline,LwPolyline,spline，我不知道如何从AcadEntity提取点，最好能转换成相应的对象，这样方便，请指导，最好能提供一下代码，谢谢

jsliuyun · 发表于 2004-10-8 22:31:00

Dim poly As AcadPolyline
   For Each elem In SelectSetObj    '对每一条折线提取顶点坐标
        If (elem.ObjectName = "AcDbPolyline") Then
   Set poly = elem
   End If
Next elem
提示类型不匹配