Topic: Batch insert reference(Xref)

[andy_lee]

Hi ,friends
Select a folder and insert all DWG file to drawing from the folder.
 I think need a Dcl file to enter the Rows and columns, Line spacing and the column spacing.

Thans for help!

[Matt__W]

If I recall, you can select multiple DWGs when using the XREF command.  No need for a custom app.

[jbuzbee]

xref or insert?  OpenDCL provides a grid control that can assist in placing the referenced drawings

jb

[andy_lee]

Re:M@yhem
xref command can't select multiple DWGs.

[kruuger]

Re:M@yhem
xref command can't select multiple DWGs.

yes we can.
k.

[V-Man]

I honestly can't remember where I got this but it works for me...

Code: [Select]

(defun c:BatchXref ()
(setvar "tilemode" 1)
(princ "\n\nPick any drawing in the set.")
(setq pickfile (getfiled "Pick any drawing in the set" "g:/" "dwg" 2)) ;;; type in your preferred path...
;
;extract just the path
(setq filelen (strlen pickfile))
(setq letter "")
(while (/= letter "\\")
  (setq letter (substr pickfile filelen 1))
  (setq filelen (- filelen 1))
)
(setq filelen (+ filelen 1))
(setq path (substr pickfile 1 filelen))
;
;list all floor plan drawings in that directory
(vl-load-com)
(setq filelist (vl-directory-files path "Arch*.dwg" 1)) ;;; type in the naming of your files etc...
;
;xref all floor plans into current drawing
(setq counter 0)
(setvar "filedia" 0)
(repeat (length filelist)
  (setq currentfile (strcat path (nth counter filelist)))
  (command "-xref" "a" currentfile "0,0,0" "1" "" "0")
  (setq counter (+ counter 1))
)
(setvar "filedia" 1)
)

[andy_lee]

I honestly can't remember where I got this but it works for me...

Code: [Select]

(defun c:BatchXref ()
(setvar "tilemode" 1)
(princ "\n\nPick any drawing in the set.")
(setq pickfile (getfiled "Pick any drawing in the set" "g:/" "dwg" 2)) ;;; type in your preferred path...
;
;extract just the path
(setq filelen (strlen pickfile))
(setq letter "")
(while (/= letter "\\")
  (setq letter (substr pickfile filelen 1))
  (setq filelen (- filelen 1))
)
(setq filelen (+ filelen 1))
(setq path (substr pickfile 1 filelen))
;
;list all floor plan drawings in that directory
(vl-load-com)
(setq filelist (vl-directory-files path "Arch*.dwg" 1)) ;;; type in the naming of your files etc...
;
;xref all floor plans into current drawing
(setq counter 0)
(setvar "filedia" 0)
(repeat (length filelist)
  (setq currentfile (strcat path (nth counter filelist)))
  (command "-xref" "a" currentfile "0,0,0" "1" "" "0")
  (setq counter (+ counter 1))
)
(setvar "filedia" 1)
)

Thank you ,V-Man , I test it ,Nothing is inserted.

[kruuger]

ah just remembered that i wrote this:
http://forum.cad.pl/lisp-wczytanie-ciag-dalszy-t75832.html
http://forum.cad.pl/download/file.php?id=751&mode=view
few years ago when i have more time to play with lisp
k.

[hanhphuc]

Thank you ,V-Man , I test it ,Nothing is inserted.

Be careful: variables not localized yet

hi emk2012, Try to replace, this line

Code: [Select]

(setq filelist (vl-directory-files path "Arch*.dwg" 1)) ;;; type in the naming of your files etc...
to this..

Code: [Select]

(setq filelist (vl-directory-files path "*.dwg"))
warning: This will insert all drawings in that specific directory!

[andy_lee]

ah just remembered that i wrote this:
http://forum.cad.pl/lisp-wczytanie-ciag-dalszy-t75832.html
http://forum.cad.pl/download/file.php?id=751&mode=view
few years ago when i have more time to play with lisp
k.

kruuger, Nice! great routine.
About different drawing of the frame. This may be a little bit better.

[andy_lee]

Thank you ,V-Man , I test it ,Nothing is inserted.

Be careful: variables not localized yet

hi emk2012, Try to replace, this line

Code: [Select]

(setq filelist (vl-directory-files path "Arch*.dwg" 1)) ;;; type in the naming of your files etc...
to this..

Code: [Select]

(setq filelist (vl-directory-files path "*.dwg"))
warning: This will insert all drawings in that specific directory!

hanhphuc, Thank you for the modified. Now ,It's Ok!

[kruuger]

ah just remembered that i wrote this:
http://forum.cad.pl/lisp-wczytanie-ciag-dalszy-t75832.html
http://forum.cad.pl/download/file.php?id=751&mode=view
few years ago when i have more time to play with lisp
k.

kruuger, Nice! great routine.
About different drawing of the frame. This may be a little bit better.

yes. there was idea to make an addition option to generate bounding box of xref and make constant dist between them but because of time...never happens
k.

[andy_lee]

ah just remembered that i wrote this:
http://forum.cad.pl/lisp-wczytanie-ciag-dalszy-t75832.html
http://forum.cad.pl/download/file.php?id=751&mode=view
few years ago when i have more time to play with lisp
k.

kruuger, Nice! great routine.
About different drawing of the frame. This may be a little bit better.

yes. there was idea to make an addition option to generate bounding box of xref and make constant dist between them but because of time...never happens
k.

I can understand you, Thanks.

[Matt__W]

Re:M@yhem
xref command can't select multiple DWGs.

It has been able to do so for a few years now.  What version are you using??

[andy_lee]

Re:M@yhem
xref command can't select multiple DWGs.

It has been able to do so for a few years now.  What version are you using??

ACad 2010