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

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

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

发表回复

精选推荐