Multiple DXF Import

[prajputZ23VK]

Hello,

I am using below lisp code to import multiple DXF files into my drawing. But the issue is when I import all the DXF files, those gets overlapped. Is there any possibility to move the each DXF files in horizontal direction during import, so that they don’t overlap?

(defun c:PR (/ directory files)

 (setq directory "C:\\Temp\\Automation")

 (if (setq files (vl-directory-files directory "*.dxf" 1))

   (foreach dxf files

     (command "_.-insert"

              (strcat directory "\\" dxf)

              '(0. 0. 0.)

              ""

              ""

              ""

     )

   )

   (princ "\n No DXF files found into that folder !")

 )

 (princ)

)

Thanks in advance for help.

[hak_vz · Accepted solution]

(defun c:PR (/ directory files)
 (setq origin '(-1000  0 0) step '(1000 0 0))
 (setq directory "C:\\Temp\\Automation")
 (if (setq files (vl-directory-files directory "*.dxf" 1))
   (foreach dxf files
     (setq origin (mapcar '+ origin step))
     (command "_.-insert"
              (strcat directory "\\" dxf)
              origin
              ""
              ""
              ""
     )
   )
   (princ "\n No DXF files found into that folder !")
 )
 (princ)
)

Each next origin for a block insert is translated 1000 in x direction starting from '(0 0 0).

[maratovich]

Maybe this will help you - AutoImportCAD 

[prajputZ23VK]

Hello hak_vz, 

Thank you for your quick help. Your code helped me achieving what I was looking for.

Thanks again.

Regards,
PR