Batching

hi everyone,

can anyone please help me with a lisp program, that can bind, purge, audit and convert to pdf.I have very little knowledge on how to create a lisp to carry out the function that i have mentioned earlier. Looking forward for replys and advise....

thanks:)

You can use the following lisp to purge all unneeded items from your current drawing.

(defun c:qp ()
 (command "-purge" "all" "" "n")
(princ " CADTutor Forum.")
(princ))

Regards,

Tharwat

To ensure that you get purged the cross-linked items (i.e. a line type become not used only after a particular block definition was removed) also, it is recommended to run purge for 3 times.

Regards,

Morning Gents,

thank you for responding, just another question, if i have to bind, purge, audit than convert all to pdf, eg.30 sheets of drawing,..is it possible to run a lisp that will do this automatically or does it have to be setup in our system. i normally use the batch plotting after i have purged, bind, and audit the cad drawings individually, it takes alot of time tho, but if there is any, lisp that would do that. i hope am making sense....

Thanks.

You could try using the Batch Engine in my signature.

Thank you Freerefill, that is a huge help. i'd also request if you know how or do you have a lisp that actually binds the xrefs in a drawing...

Actually AeroCAD, that's an option already programmed into Final Blitz. If you do decide to use it, just type "bind" when it prompts you to select an option (it should be the first prompt). The code it actually runs is this:

(vl-cmdf "-xref" "bind" "*")

if you wanted to do it manually.

Hi Freerefill,

thanks again for the update,...

Freerefill,......Just another question,....say for example i wana save drawings as drawingname_suffix. How can i save a separate bound drawing with the same drawing name followed by a specified suffix.

Quick and dirty, but it does the job. If you want to include this in your batch process, then select "CMD" as your option then, when it prompts you for visual LISP code, simply input "(C:FSAVEAS)" (without the quotes, of course). Remember you can do multiple batch processes (just type "M" at the option prompt to toggle the multiple option on and off).

Saving it to a specified directory might take some tweaking.

(defun c:fsaveas( / a b)
 (vl-load-com)
 (setq a "_suffix"
   b (getvar "dwgprefix")
   c (vl-filename-base (getvar "dwgname"))
   )
 (setvar "cmdecho" 0)
 (setvar "filedia" 0)
 (vl-cmdf "saveas" "" (strcat b c a))
 (setvar "filedia" 1)
 )

Sorry Guys for the late reply, will get back to you when am up and running or need help.....