blkredef.lsp/scr not working in Acade 2010/2012

Hello,

I found a lisp on the web to update blocks with a lisp en it is running via a script file.

If the scrip is running, it searches for a new version of that block. If Autocad can`t find the file he going to the next block in the script. As Autocad find that block, he updates the block. Now comes the problem: after updating that block the script should go to the next block in the script but it stops. So if it`s founds nothing, it goes to to the next one, if it founds one and update that block.it stops.

Has this lisp/script problem with this versions of Acad or is it an system varaible ore something else. Please help.

Thanks,

PmxCAD

blkredef.scr

blkredef.lsp

(command "._-insert" (strcat blkname "=") "_y" nil "_regen") ;

You noticed when the block is not found, blkredef will not evaluate the line above thus it continues to the next one. Until such time it does find the block then it cancels the script

Alternative:

(defun BLKREDEF ( blkname / bn blkname cmde)
(vl-load-com)      
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))      
(if (and (tblsearch "block" [color=blue][b](vl-filename-base blkname)[/b][color=black])[/color]
[/color]         (setq bn (findfile [color=blue][b]blkname[/b][/color])))

 (progn
       (vlax-invoke  (vlax-get
                           (vla-get-ActiveLayout adoc)
                                             'Block)
                                       'InsertBlock
                                       '(0.0 0.0 0.0)
                                       bn ;<---full path name 
                                       1 1 1 0)
       (entdel (entlast))
       (vla-regen aDoc acActiveViewport)
(princ (strcat "\nBlock " (strcase [color=blue][b](vl-filename-base blkname)[/b][/color]) " redefined."))
 )
 (princ "Block not found.")
)
(prin1)
)

(load "D:\\lisp\\blkredef.lsp")
(BlkRedef [color=blue][b]"D:\\ThisFolder\\Blocks\\TEST.dwg"[/b])[/color]
(BlkRedef [b][color=blue]"D:\\OtherFolder\\Blocks\\ELEMENT.dwg"[/color][/b])
(BlkRedef "[color=blue][b]D:\\AnotherFolder\\Blocks\\BMELDER.dwg"[/b][/color])
qsave

UPDATE CODE:

to include path...

Note the syntax ... ".dwg" and "\\"

Works.....super.

Tanks,

PmxCAD

Works.....super.

 

Tanks,

 

PmxCAD

Good for you, Glad i could help

Hello again.

It`s working perfect, but................a`m working with diffrent projects and diffrent blokcs map/directory, same blocks (names) but with other atributes so the first one in the search-pad is not always ok.

Question, is it also possible to rebild the lisp so i can put the pad to the blocks directory/map, in the script file?

Thanks

Pmxcad

Check UPDATED CODE

HTH

Works super....again.

Thanks,

PmxCAD