[求助]如何合并图层？

cqszgs

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

雪山飞狐_lzh

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

cqszgs

谢谢版主！
我是觉得手工修改的速度很快，当时怎么就没有想到用SendCommand发送命令来模拟手工修改，谢谢版主给了我新的思路！