如何删除指定区域内的所有对象？

liuxu042

这个问题没什么难度吧，过滤选择不就行了

liuxu042

测试不行肯定是你的代码有问题，你贴出来让大家看看呀
我是c#方向，也没有现成的代码

sscylh

2. Sub aa()
   
3. Dim ss As AcadSelectionSet
   
4. Set ss = ThisDrawing.SelectionSets.Add("abfdc")
   
5. Dim pt(0 To 14) As Double
   
6. pt(0) = 0
   
7. pt(1) = 0
   
8. pt(2) = 0
   
9. pt(3) = 100
   
10. pt(4) = 0
    
11. pt(5) = 0
    
12. pt(6) = 100
    
13. pt(7) = 100
    
14. pt(8) = 0
    
15. pt(9) = 80
    
16. pt(10) = 80
    
17. pt(11) = 0
    
18. pt(12) = 0
    
19. pt(13) = 100
    
20. pt(14) = 0
    
21. ss.SelectByPolygon acSelectionSetWindowPolygon, pt
    
22. End Sub

Sub aa()<br /> Dim ss As AcadSelectionSet<br /> Set ss = ThisDrawing.SelectionSets.Add("abfdc")<br /> Dim pt(0 To 14) As Double<br /> pt(0) = 0<br /> pt(1) = 0<br /> pt(2) = 0<br /> pt(3) = 100<br /> pt(4) = 0<br /> pt(5) = 0<br /> pt(6) = 100<br /> pt(7) = 100<br /> pt(8) = 0<br /> pt(9) = 80<br /> pt(10) = 80<br /> pt(11) = 0<br /> pt(12) = 0<br /> pt(13) = 100<br /> pt(14) = 0<br /> ss.SelectByPolygon acSelectionSetWindowPolygon, pt<br /> End Sub

sscylh

最后的晨露 发表于 2012-10-22 10:20
上面的代码在 If Not IsNull(ThisDrawing.SelectionSets.Item("zqwu")) Then这句出现“未找到主键”的错误 ...

在前面加一句:on error resume next 即可

liuxu042

最后的晨露 发表于 2012-10-22 13:13
可以了，谢谢！

on error resume next 可以运行并不代表你的程序运行过程中没有错误，只是忽略错误强制运行过去，VBA不建议使用语句on error resume next