[求助]：如何合并图层？

zkycds

我需要编程将几个图层上的物体合并到一个图层，我现在是通过循环语句设置每个物体的层属性，但是速度非常慢，有没有批量改变一个选择集中所有物体的层属性的方法？



问题已经解决！
下面是一高人给我的解答，思路是用SendCommand 发送命令来模拟手工改变图层，速度快很多。

2. 
   
3. Sub ChangeLayer(LayerName As String)
   
4. 'C:tt
   
5. On Error Resume Next
   
6. ThisDrawing.SelectionSets("tlstest").Delete
   
7. Set ss = ThisDrawing.SelectionSets.Add("tlstest")
   
8. ss.SelectOnScreen
   
9. ThisDrawing.SendCommand "change" & vbCr & "p" & vbCr & vbCr & "p" & vbCr & "la" & vbCr & LayerName & vbCr & vbCr
   
10. End Sub
    

<br /> Sub ChangeLayer(LayerName As String)<br /> 'C:tt<br /> On Error Resume Next<br /> ThisDrawing.SelectionSets("tlstest").Delete<br /> Set ss = ThisDrawing.SelectionSets.Add("tlstest")<br /> ss.SelectOnScreen<br /> ThisDrawing.SendCommand "change" & vbCr & "p" & vbCr & vbCr & "p" & vbCr & "la" & vbCr & LayerName & vbCr & vbCr<br /> End Sub<br />

junemarker

试一试 希望管用