Blocktoxref in multi file ?

[Anonymous]

Hi all,

I have a problem with a thousand dwg binded (not my draw). Now i mean use command "Blocktoxref". Do anyone have the way with multi file in multi folder Categories than one by one open dwg and use Blocktoxref" in express ?

Thanks for solution.

[danglar]

Hi

pony.chubby

Try this one.. it can halp you for binded xrefs

[Anonymous]

HI apelbaum2014,

Thanks for repply.

your list not exactly what i mean.

I thinhk i need script or DBX for delete blk "test" in dwg then attach xref "test" to dwg.

If use script then file large size open long time. So i mean use DBX.

Can show me some example for DBX for xref attach ?

[Anonymous]

Okey,

i like this "silence". So i must Thinking.

Then i found some code del_block and attachXref of Lee Macto fill lisp.

Here code attachxref:

;xref is str "D:\\Desktop\\Temp\\Xref.dwg"

;list_obj is (list X Y Z rotate) of blk

(defun attachxref_PS (doc xref list_obj / )
(vla-attachexternalreference (vla-get-paperspace doc) master
(vl-filename-base xref)
(vlax-3d-point '(0 0 0))
(car list_obj);1.
(cadr list_obj);1.
(caddr list_obj);1.
(cadddr list_obj);0.
:vlax-true
)
)

So i have a question: how can attach xref to PS when drawing active model space ? although i get PS to attach xref.

Thanks in advance.

[Anonymous]

Ahhh,

fixed done. 

^_^

[danglar]

Hi

pony.chubby

The first part of your problem can solve attached lisp (I mean to delete block from dwg and also from database of drawing)

I hope it's help you

[danglar]

.. and for second part of your problem you can use this function (see attached dll)

^P^C(command "netload" "AutoWblock.dll") AutoWblock

[Anonymous]

Hi apelbaum2014

you right,

so i change code to:

(LM:odbx '(lambda ( doc ) (LM:deleteblocks doc (list name))) lst t)

Thank you.

^_^

[Anonymous]

Okey, but

Can your code call via ODBX ? because i mean write to multi drawing and i remember can not call command.

^P^C(command "netload" "AutoWblock.dll") AutoWblock

[danglar]

.. in order to  write  it to multi drawing  use this code:

(defun C:exv ( / COUNT DIR FILENAME FILES SCRIPTNAME) ;works only with igal.lsp
 (if (setq dir (getfiled "Select the drawing directory:" "" "dwg" 0))
 (setq dir (vl-filename-directory dir))
 )
 (if dir
 (setq files (vl-directory-files dir "*.dwg" 1))
 )
 (if files
 (progn
 (setq scriptname (open "C:\\batch.scr" "w")
 count 0
 )
 (while (setq filename (nth count files))
 (setq filename (strcat dir "\\" filename))
 (write-line (strcat "_open \"" filename "\"") scriptname)
 ;(write-line "_zoom extents" scriptname)

 ;(write-line "_DWG-PURGE" scriptname)

 (write-line "zx" scriptname) ;;; HERE YOU CAN ATTACH YOUR FUNCTION!

 (write-line "_qsave" scriptname)
 (write-line "_close" scriptname)
 (setq count (1+ count))
 )
 (close scriptname)
 )
 )
 (princ)
 )
(c:exv)
(command "script" "C:\\batch.scr")

[Anonymous]

Okey
I knew use script. But sometime error open file readonly and i checked have not anyone or other pc open it in server. Only my pc open. Can u point me ? Or fix this.

Thank u so much.

[danglar]

it's curious, but this code working perfect for me..

anyway try to load your function to starup suite and than use only alias of it whithout loading lisp function at all

[Anonymous]

Yep, i must use 2 way: script and DBX to know.

In some case use script faster, and some case lower DBX then i custome it. ^_^

Anyway, thank you so much for share. 😄

Heizzzz, okey, pause lisp, time-out. 

Now time for thesis of Master.

[Anonymous]

Hello Pony,

Can you please share the working version of the lisp routine that unbound xrefs and can run on multiple drawings.

Thank you,

Nasr