如何将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 提示类型不匹配

雪山飞狐_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不用转换为相应的实体啊，如果为不同的实体就有相应实体的属性.

账号		自动登录	找回密码
密码			注册