请教：在VBA中如何使对象改变图层（补充一下）

kennethxie

谢谢斑竹大人刚才给我的回答，可能我的问题问得不是很清楚。


        我要做的是：把layer1中的所有对象都变成layer3的对象,但layer2中的不变。但是我不知道到底有多少对象，所以没办法改变对象属性啦，只能改变图层属性。类似于AutoCAD脚本：


layer                 


lock


layer2


unlock


layer1





select


all


change


p


la


layer3


谢谢！

雪山飞狐_lzh

选择集＋过滤器，选择一层所有对象 Sub t6()
On Error Resume Next
Dim i As AcadEntity
Dim ft(0) As Integer, fd(0)
Dim ss As AcadSelectionSet
ThisDrawing.SelectionSets("CURRENT").Delete
Set ss = ThisDrawing.ActiveSelectionSet
ft(0) = 8: fd(0) = "Layer1"
ss.Select acSelectionSetAll, , , ft, fd
For Each i In ss
i.Layer = "Layer3"
Next i
ss.Clear
ss.Delete
End Sub

subtlation

如果块引用的图层是layer4，但块引用中包含有layer1的物体，


用选择集选择时块引用内layer1的物体不能被选中。

kennethxie

再请问一下，如果要选择两个图层里的对象，并使之加入另一个图层呢？


该怎么写代码？

雪山飞狐_lzh

fd(0) = "Layer1,Layer2"


过滤器中用逗号隔开

kennethxie

Sub layer500()
On Error Resume Next
Dim i As AcadEntity
Dim j As Integer
Dim ft(0) As Integer
Dim fd1(0 To 1) As String
Dim fd(0)
Dim ss As AcadSelectionSet

ft(0) = 8
fd1(0) = "24,10"
fd1(1) = "W"
For j = 0 To 1
fd(0) = fd1(j)
ThisDrawing.SelectionSets("CURRENT").Delete
Set ss = ThisDrawing.ActiveSelectionSet
ss.Select acSelectionSetAll, , , ft, fd For Each i In ss
i.Layer = j + 2
Next i
ss.Clear
ss.Delete
Next j
End Sub 我想用这个循环来做到10,24层的对象改变到第2层,W层的对象改变到第3层,结果发现10,24层的也变成第3层的了.调试的时候发现当j=1时,选择集把原来已经改为第二层的对象又选择到ss中去了.不知是为什么?谢谢帮我解答!

雪山飞狐_lzh

ss.Select acSelectionSetAll, , , ft, fd               


前加入


ss.Clear

efan2000

ThisDrawing.SelectionSets("CURRENT").Delete
Set ss = ThisDrawing.ActiveSelectionSet
ss.Select acSelectionSetAll, , , ft, fd
ss.Clear
ss.Delete
应该是这些选择集的操作产生的，删除之后，又设为当前选择集，可能是引用了以前创建的了。 Set ss = ThisDrawing.ActiveSelectionSet ss.Clear
ss.Select acSelectionSetAll, , , ft, fd

直接这样试试。

kennethxie

斑竹能向我介绍一下选择集的方法的用法和作用吗?


能不能介绍一本介绍autocad vba的好书或者好的网站

雪山飞狐_lzh

选择集的方法的用法帮助里够明白了