删除指定名称的块

baneit319 · 发表于 2015-11-22 18:39:00

图形中插入了名为unit1,unit2,unit3,,,,这样的块，有些还做了复制，移动等操作。我想删除其中指定的一些块，试了一下下面这段，不起作用，求指点。
sub kk
dim blockunit as acadblock
for i= 1 to 8
      for each blockunit in thisdrawing.blocks
            if blockunit.name="unit" & i then
               blockunit.delete
         endif
      next
next i
end sub