关于AUTOCAD选择集问题

[胖子不是我]

为什么只能运行到修改“电杆”图层，下个图层就不行并且报错

Sub test()
Dim sSet As AcadSelectionSet, Pnt As AcadPoint, blk As AcadBlockReference, Ent As AcadEntity
' On Error Resume Next
Set sSet = ThisDrawing.SelectionSets.Add("TEST")
sSet.Clear
sSet.SelectOnScreen
For Each Ent In sSet
Select Case Ent.Layer
Case "电杆"
Set Pnt = Ent
Set blk = ThisDrawing.Application.ActiveDocument.ModelSpace.InsertBlock(Pnt.Coordinates, "gc170", 1, 1, 1, 0)
blk.Layer = "GXYZ"
Case "路灯"
Set Pnt = Ent
Set blk = ThisDrawing.Application.ActiveDocument.ModelSpace.InsertBlock(Pnt.Coordinates, "097", 1, 1, 1, 0)
blk.Layer = "DLDW"
Case Else
End Select
Next
sSet.Delete
' MsgBox "OK"
End Sub

[比过盖茨]

现在都不流行逛论坛了吗？

[脆皮大雪糕]

主要是这个问题要结合CAD，没环境 而且也不说啥错 个人经验：问问题汉字部分都触发不到自动换行的，大概率没法解决。

[胖子不是我]

这个问题我自己解决了

[JC30年的业余程序员]

select case 如果满足第一个条件 ，它就不会检测第二个条件，也许你的实体集中根本没有“路灯”这个图层