cqszgs 发表于 2004-8-25 10:45:00

[求助]如何合并图层？

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

雪山飞狐_lzh 发表于 2004-8-25 13:53:00

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" &amp; vbCr &amp; "p" &amp; vbCr &amp; vbCr &amp; "p" &amp; vbCr &amp; "la" &amp; vbCr &amp; LayerName &amp; vbCr &amp; vbCr<BR>End Sub<BR>

cqszgs 发表于 2004-8-25 15:20:00

谢谢版主！<BR>我是觉得手工修改的速度很快，当时怎么就没有想到用SendCommand发送命令来模拟手工修改，谢谢版主给了我新的思路！
页: [1]
查看完整版本: [求助]如何合并图层？