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

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

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

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

引用我的选择集增强类TlsSel



<A href="dispbbs.asp?BoardID=4&amp;ID=28869" target="_blank" >dispbbs.asp?BoardID=4&amp;ID=28869</A>





Sub ttttt()<BR>Dim ss As New TlsSel<BR>ss.Init "TlsSel1"<BR>ss.SetFilter 8, "0"<BR>ss.Selectobject acSelectionSetAll<BR>For Each i In ThisDrawing.CopyObjects(ss.ToArray, ThisDrawing.ModelSpace)<BR>i.Layer = "1"<BR>Next i<BR>End Sub

yansike 发表于 2005-6-16 22:46:00

Dim ss As New TlsSel<BR>                       ss.Init<BR>                       ss.SetFilterType 8<BR>                       ss.SetFilterData "居民地类"<BR>                       ss.Selectobject acSelectionSetAll<BR>                       For Each i In ThisDrawing.CopyObjects(ss.ToArray, ThisDrawing.ModelSpace)这一行报错，提示要求对象！！！<BR>                       i.Layer = "0000"<BR>                       Next i



我查了一下，发现ss.count为0
页: [1]
查看完整版本: 关于图层复制，请大家帮忙！！