+ Reply to Thread
Page 2 of 2 FirstFirst 1 2
Results 11 to 12 of 12
  1. #11
    Forum Newbie
    Using
    AutoCAD 2013
    Join Date
    May 2015
    Posts
    1

    Default

    Registered forum members do not see this ad.

    If your unpurgeable block names begin with *A, then try this...

    Sub deleteUnpurgableBlks()
    Dim blk As acadBlock
    Dim blks As AcadBlocks

    Set blks = ThisDrawing.Blocks
    For Each blk In blks
    If LEFT(UCase$(blk.name), 2) = "*A" Then
    blk.Delete
    End If
    Next

    End Sub

  2. #12
    Forum Newbie
    Using
    Map 3D 2015
    Join Date
    May 2015
    Posts
    1

    Default WBlock

    Registered forum members do not see this ad.

    I had the same issue and ran across this fix. I did just what they said. I typed in -wblock, found a place and new name to save my drawing, typed *, opened the new drawing and all of my blocks were gone. I also had a lot of layers that were nested within the blocks that I had been trying to get rid of and they were all gone too.
    Hopefully, this will be helpful to you. I can't take credit for it if it works though.

Similar Threads

  1. Delete blocks
    By mtunick62683 in forum AutoCAD General
    Replies: 4
    Last Post: 8th Jan 2014, 03:24 pm
  2. how to delete the blocks?
    By zainuddin in forum AutoCAD General
    Replies: 3
    Last Post: 12th May 2009, 12:48 pm
  3. delete unused window style
    By blatz.boy in forum AutoCAD General
    Replies: 7
    Last Post: 27th Oct 2008, 03:36 pm
  4. about deleting unwanted and unused blocks and layers
    By alijahed in forum AutoCAD General
    Replies: 12
    Last Post: 7th Jul 2008, 09:40 am
  5. Delete blocks in VBA
    By TroutKing in forum AutoLISP, Visual LISP & DCL
    Replies: 4
    Last Post: 1st Dec 2007, 05:16 pm

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts