yansike 发表于 2005-6-16 18:44:00

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

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

雪山飞狐_lzh 发表于 2005-6-16 21:06:00

引用我的选择集增强类TlsSel dispbbs.asp?BoardID=4&ID=28869Sub 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 发表于 2005-6-16 22:46:00

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
页: [1]
查看完整版本: 关于图层复制，请大家帮忙！！