topic Re: Batch process dxf files. in Visual LISP, AutoLISP and General Customization Forum

Batch process dxf files.

aurel_e — Thu, 21 Mar 2024 10:50:31 GMT

Hi all

I have got more than 100 dxf files - rectangular plates with some holes.

I would need to 1.delete the layer "YELLOW" elements. 2. Change all 8mm holes to 6mm holes.

Is there any way to do it with a script.

I am using Autocad 2024.

Thanks.

Re: Batch process dxf files.

Sea-Haven — Fri, 22 Mar 2024 04:10:32 GMT

Yes

The script is to do a dxfin or an insert into current dwg or just open the dxf.

get all objects on layer "yellow " and delete or if acad "Laydel".

Then do a simple lisp to change all 6mm Circles to 8 mm use ssget with filter correct rad=6

Save new dwg with a name. Depending on 1st step method do new dxf.

Do you understand how to make a SCRipt.

Re: Batch process dxf files.

aurel_e — Fri, 22 Mar 2024 07:33:28 GMT

No I don't.

With help from IA I have made the code below that works when you have the dxf file open, but I don't know how to make it work in automatic, looking for all the dxf files in a directory, open them, apply the lisp, save close them.

Thank you.

(defun c:modifyDrawing (/ ss ent lay rad) (setq ss (ssget "X" '((8 . "yellow")))) (if ss (progn (command "_.erase" ss "") (princ "\nDeleted all entities in layer 'yellow'.") ) (princ "\nNo entities found in layer 'yellow'.") ) (setq ss (ssget "X" '((0 . "CIRCLE")))) (if ss (progn (repeat (setq i (sslength ss)) (setq ent (ssname ss (setq i (1- i)))) (setq rad (cdr (assoc 40 (entget ent)))) (if (and (>= rad 3.9) (<= rad 4.1)) ; check for radius within tolerance (entmod (subst (cons 40 3) (assoc 40 (entget ent)) (entget ent))) ) ) (princ "\nChanged all 8mm holes to 6mm.") ) (princ "\nNo 8mm holes found.") ) (princ) )

Re: Batch process dxf files.

Sea-Haven — Sat, 23 Mar 2024 03:30:41 GMT

In simple terms a script is just a sequence of command including lisp.

It would look something like this so do manually and write down all steps including enter's which are spaces in a script or a new blak line.

dxfin "dxf1" (load "mydxffixer") (c:modifyDrawing) save "DXF1" close Y dxfin "dxf2" (load "mydxffixer") (c:modifyDrawing) save "DXF2" Close y

There are various ways to get a list of dxf file names. I would look at Lee-mac script writer.