Lisp routine doesn't work

[boyerd492098]

I am trying to delete a variety of blocks from a large number of drawings. The DELBLK lisp routine is the only one I have found. The problem is that the DELBLK routine doesn't work. I get an error message or "0 blocks deleted".
Does anyone have any experience with this lisp routine or have another which does work?
Thank you

[peter]

I just threw this one together.

It will delete all blocks in a drawing (including inside other blocks) and purge the drawing of the block definition.

P=

... I made a couple modifications and uploaded the revised file ...

;___________________________________________________________________________________________________________ 
;
; Function for deleting blocks from a drawing.
; Syntax: (blockdelete "detailbub*")
; Written By: Peter Jamtgaard 2014 copyright 2014 all rights reserved
;___________________________________________________________________________________________________________


(defun C:BlockDelete ()
 (blockdelete (getstring "\nEnter Block Name: "))
)


(defun BlockDelete (strWCBlockName / objBlock lstBlockDefinitions lstBlockInstances)
 (command "layer" "u" "*" "")
 (setq strWCBlockName (strcase strWCBlockName))
 (vlax-for objBlock (vla-get-blocks
                     (vla-get-activedocument
                      (vlax-get-acad-object)))

  (if (wcmatch (strcase (vla-get-name objBlock)) strWCBlockName)
   (setq lstBlockDefinitions (cons objBlock lstBlockDefintions))
   (vlax-for objItem objBlock
    (and 
     (wcmatch (vla-get-objectname objItem) "AcDbBlockReference,AcdbMInsertBlock")     
     (wcmatch (strcase (vla-get-name objItem)) strWCBlockName)
     (setq lstBlockInstances (cons objItem lstBlockInstances)) 
    )
   ) 
  )
 )
 (apply 'and
  lstBlockObjects
  (apply 'and (mapcar 'ObjectDelete lstBlockInstances))
  (regen)
  lstBlockDefinitions
  (apply 'and (mapcar 'ObjectDelete lstBlockDefinitions))
 )
)


(defun ObjectDelete (objItem)
 (errortrap (quote (vla-delete objItem)))
)

(defun Regen ()
 (errortrap (quote (vla-regen (vla-get-activedocument (vlax-get-acad-object)) 0)))
)


; Standardized Error Trap
(defun ErrorTrap (symFunction / objError result)
 (if (vl-catch-all-error-p
      (setq objError (vl-catch-all-apply
                     '(lambda (X123)(set X123 (eval symFunction)))
                      (list 'result))))
  nil
  (if result result 'T)
 )
)

(vl-load-com)

[boyerd492098]

As they say out on the east coast "beauty, eh". Thanks for the help

[tedg]

As they say out on the east coast "beauty, eh". Thanks for the help

I thought that was a Canadian thing?
#Bob&DougMckenzie

[boyerd492098]

It most certainly is! Nothing like partying with a 2-4 of beer!
Peter,
Do you mind if I pass your lisp routine on to others?

[Opie]

Instead of passing it on to others, why not pass them a link to the code?

[Tom Beauford]

Instead of passing it on to others, why not pass them a link to the code?

+1 Save the complete file and add the link http://forums.augi.com/showthread.ph...doesn-t-work#2 to the comments section.
That way if you have a problem with the code or would like an added feature later on you know where to ask for it. Knowing where to get code would be more useful to them than just one routine.

Passing a link is easier than passing a file anyway.

[boyerd492098]

Good morning Peter,
I have set up blocks for the Engineers Seal, the companys Permit to Practice and an Issued for Construction stamp. I named them ifc_stamp, permit_stamp, rbh_stamp, jk_stamp. You will notice that they have "_stamp" in common. I tried using a wild card "*_stamp" and it does remove all the visible blocks in the file. But if I open the Insert Block dialogue box I see that not all the blocks have been deleted/purged from the file. Is there some way to enhance your lisp routine to pressure wash all references from the file?
Thank you

[peter]

I revised the program once, did you try the second version?

Try the one posted above and see if it does it better.

That is why I revised it. I noticed that the part where it purges the block definition only deleted one of the definitions.

The new version should delete all of them

P=

[boyerd492098]

Posted above? Where above? I dun't see it.
Don