TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: MSTG007 on April 11, 2015, 09:07:16 AM

Title: Redefining a block in multiple files via OBJECTDBX Wrapper
Post by: MSTG007 on April 11, 2015, 09:07:16 AM

Lee ad awhile ago showed me an awesome way to do some layer management stuff via this.

http://www.theswamp.org/index.php?topic=47376.msg524151#msg524151

I was wondering using his same setup how to change it to redefine 1 block name in mulitple dwgs.

Thanks!

Title: Re: Redefining a block in multiple files via OBJECTDBX Wrapper
Post by: ttray33y on June 14, 2015, 11:26:33 PM

in my own understanding. ObjectDBX wrapper cannot do that.

Code: [Select]

http://lee-mac.com/odbxbase.html

Title: Re: Redefining a block in multiple files via OBJECTDBX Wrapper
Post by: Lee Mac on June 15, 2015, 04:10:10 AM

You could try the following (untested!):

Code - Auto/Visual Lisp: [Select]

(defun c:batchredef ( / blk dwg )
    (while
        (not
            (or 
                (= "" (setq blk (getstring t "\nSpecify block name to redefine: ")))
                (setq dwg (findfile (strcat blk ".dwg")))
            )
        )
        (princ (strcat "\nFile \"" blk ".dwg\" not found."))
    )
    (if dwg
        (LM:odbx
            (function
                (lambda ( doc )
                    (if 
                        (not
                            (vl-catch-all-error-p 
                                (vl-catch-all-apply 'vla-item  (list (vla-get-blocks doc) blk))
                            )
                        )
                        (vla-delete
                            (vla-insertblock 
                                (vla-get-modelspace doc) 
                                (vlax-3D-point 0 0) dwg 1.0 1.0 1.0 0.0
                            )
                        )
                    )
                )
            )
            nil t
        )
    )
    (princ)
)

EDIT: On testing the above, this method does not appear to be successful.