删除指定名称的块

baneit319

图形中插入了名为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

ivde

这是什么语言？

zzyong00

你没搞清楚块和块参照的区别，你插入图形里的是块参照