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

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

'选择图形中的所有实体并使用过滤机制<BR>                       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<BR>                       For Each elem In SelectSetObj                                                                                                       '对每一条折线提取顶点坐标<BR>                                                                                                              If (elem.ObjectName = "AcDbPolyline") Then<BR>                                                                                                                                                                               Set poly = elem<BR>                                                                                                                       End If


                                        Next elem


提示类型不匹配

雪山飞狐_lzh 发表于 2004-10-9 08:53:00

Polyline的ObjectName是"AcDb3dPolyline"

jsliuyun 发表于 2004-10-9 09:10:00

我debug.print elem.ObjectName 显示是AcDbPolyline


但这是小问题，如何从AcadEntity提取点，或者如何转化为AcadPolyline<BR>


请各位大侠指导

wyj7485 发表于 2004-10-9 10:40:00

<b>
Set poly = elem 不对。

</b>
<b>AcadEntity不用转换为相应的实体啊，如果为不同的实体就有相应实体的属性.</b>
页: [1] 2
查看完整版本: 如何将AcadEntity转换成Polyline之类的实体(