[求助]关于清空块定义中所有实体的问题

clement

Sub SetBlockEmpty(ByRef Doc As AutoCAD.AcadDocument, ByVal strBlockName As String)
Dim objBlock As AutoCAD.AcadBlock
Dim n As Integer
Dim i As Integer

Set objBlock = Doc.Blocks(strBlockName)

If Err Then
Err.Clear
Exit Sub
End If

n = objBlock.Count '问题在这里,循环运行了若干次以后提示"无效的过程或调用参数"后终止. Regen后块引用中实体有所减少但未清空
For i = 0 To n - 1
objBlock.Item(i).Delete
Next
'-----------
Set objBlock = Nothing
End Sub 看来是遍历有问题,请问现在想把块定义中的所有实体清空应该如何修改?谢谢.

clement

已经解决了! Do Until objBlock.Count = 0
objBlock.Item(objBlock.Count - 1).Delete
Loop

雪山飞狐_lzh

直接 for i= 0 to objBlock.count-1
objBlock(0).Delete
next i

clement

多谢赐复!

efan2000

虽然块中没有包含实体，但插入到图纸中的该块的块引用对象依然存在。

clement

我的目的是对块的定义进行更新,清空原先的定义只是第一步.