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

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

'选择图形中的所有实体并使用过滤机制
                       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
提示类型不匹配

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

Polyline的ObjectName是"AcDb3dPolyline"

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

我debug.print elem.ObjectName 显示是AcDbPolyline
但这是小问题，如何从AcadEntity提取点，或者如何转化为AcadPolyline
请各位大侠指导

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

Set poly = elem 不对。
AcadEntity不用转换为相应的实体啊，如果为不同的实体就有相应实体的属性.
页: [1]
查看完整版本: 如何将AcadEntity转换成Polyline之类的实体(