关于图层复制，请大家帮忙！！

yansike

我想实现的功能是：将一个图层的所以对象复制到新的图层（当然，新的图层和原始图层名字不同的）！我查看了CopyObjects 方法，发现里面第二个参数不支持图层！！我该怎么办！！！

雪山飞狐_lzh

引用我的选择集增强类TlsSel dispbbs.asp?BoardID=4&ID=28869 Sub ttttt()
Dim ss As New TlsSel
ss.Init "TlsSel1"
ss.SetFilter 8, "0"
ss.Selectobject acSelectionSetAll
For Each i In ThisDrawing.CopyObjects(ss.ToArray, ThisDrawing.ModelSpace)
i.Layer = "1"
Next i
End Sub

yansike

Dim ss As New TlsSel
ss.Init
ss.SetFilterType 8
ss.SetFilterData "居民地类"
ss.Selectobject acSelectionSetAll
For Each i In ThisDrawing.CopyObjects(ss.ToArray, ThisDrawing.ModelSpace)这一行报错，提示要求对象！！！
i.Layer = "0000"
Next i 我查了一下，发现ss.count为0