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

雪山飞狐_lzh

Set poly = elem 没有错，是没有必要 Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("TT").Delete
Set ss = ThisDrawing.SelectionSets.Add("TT")
ss.Select acSelectionSetAll
Dim poly As AcadPolyline
For Each elem In ss '对每一条折线提取顶点坐标
If (elem.ObjectName = "AcDb3dPolyline") Then
pnts = elem.Coordinates
MsgBox pnts(0)
End If Next elem

zfbj

这样可以吗？ Sub aa()
On Error Resume Next
Dim SSet As AcadSelectionSet
If Not IsNull(ThisDrawing.SelectionSets.Item("Example")) Then
Set SSet = ThisDrawing.SelectionSets.Item("Example")
SSet.Delete '及时删除不用的选择集非常重要
End If
Set SSet = ThisDrawing.SelectionSets.Add("Example") SSet.SelectOnScreen

Dim ent As AcadEntity
Dim objPline As AcadLWPolyline
For Each ent In SSet
If TypeOf ent Is AcadLWPolyline Then
Set objPline = ent
Debug.Print objPline.ObjectName
End If
Next ent SSet.Delete
End Sub
实际上，AutoCAD中使用PLINE命令绘制的是轻量多段线。

wyj7485

如果有Set poly = elem 语句则会提示: 《类型不匹配》 没有该语句则不会，那是怎么回事呢？

efan2000

If (elem.ObjectName = "AcDb3dPolyline") Then
先判断elem的类型是不是polyline，然后才能使用 Set poly = elem。

wyj7485

Dim elem As AcadEntity
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("TT").Delete
Set ss = ThisDrawing.SelectionSets.Add("TT")

ss.Select acSelectionSetAll
Dim poly As AcadPolyline
For Each elem In ss '对每一条折线提取顶点坐标
If (elem.ObjectName = "AcDbPolyline") Then
Set poly = elem ' 就是如此啊
End If Next elem 还是提示错

efan2000

Dim elem As AcadEntity
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("TT").Delete
Set ss = ThisDrawing.SelectionSets.Add("TT")
ss.Select acSelectionSetAll

Dim poly As AcadPolyline
For Each elem In ss '对每一条折线提取顶点坐标
If (elem.ObjectName = "AcDbPolyline") Then
Set poly = elem ' 就是如此啊
pnts = poly.Coordinates
MsgBox pnts(0)
End If
Next elem Dim poly As AcadPolyline，那elem.ObjectName应该要为AcDb2DPolyline吧，没有安装ACAD，先自己试试它的对象名称。

jsliuyun

我怎么不能访问elem.Coordinates，好象没有这个属性，我试了2000，2002，2004都没有，你们的怎么有这个属性呢，奇怪？

mary_99w

Set poly = elem ,这句不对吧，老是提示类型不匹配。如何解决

wubohan84

12楼正解

spursand

转为相应的实体就有相应的属性咯