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

kennethxie

选择集里好像默认的是256个对象，如果超过的部分怎么办呢？

雪山飞狐_lzh

？没有这回事吧，我画了4000多个实体（直线和圆），下面的测试代码都选中了呀 Sub df()
Dim ss1 As AcadSelectionSet
Dim ss2 As AcadSelectionSet
Dim ft(0) As Integer, fd(0)
Set ss1 = ThisDrawing.SelectionSets.Add("*Tls1*")
Set ss2 = ThisDrawing.SelectionSets.Add("*Tls2*")
ss1.Select acSelectionSetAll
ft(0) = 0: fd(0) = "Line"
ss2.Select acSelectionSetPrevious, , , ft, fd MsgBox ss2.Count ss1.Delete
ss2.Delete
End Sub

kennethxie

斑竹，我试过了，在监视窗口里面默认只监视256个Item,其实是不限数目的。谢谢你的指导，我已经完成了这部分的开发。但是还有一个性能问题请教一下。


用commondialog控件选取文件时，属性maxfilesize太小的话能选取的文件就很少，但是如果把它设的大的话，又很慢，有时候会死机的。怎么办呢？

ZKSJLL

Sub t6() On Error Resume Next Dim i As AcadEntity Dim ft(0) , fd(0) As Integer Dim ss As AcadSelectionSet ThisDrawing.SelectionSets("CURRENT").Delete Set ss = ThisDrawing.ActiveSelectionSet ft(0) = 0: fd(0) = "BLOCKREF" ss.clear ss.Select acSelectionSetAll, , , ft, fd For Each i In ss i.NAME = "XX" MSGBOX i.NAME Next i ss.Clear ss.Delete End Sub 这样是不是可以把当前图形中的所有图块加入到一个选择集??

ZKSJLL

ft(0) = 8: fd(0) = "blockref"
ss.Select acSelectionSetAll, , , ft, fd
用上面的代码是不是可以得到当前图形中的所有图快???

雪山飞狐_lzh

用


ft(0) = 0: fd(0) = "insert"

palagon

多看看多练习，我是新手，路过抄袭一下，不好意思啊