topic Re: Batch Processing on all open drawings with LISP in Visual LISP, AutoLISP and General Customization Forum

Batch Processing on all open drawings with LISP

Anonymous — Thu, 19 Sep 2019 22:44:19 GMT

Hi,

I have a LISP routine that I am trying to implement batch processing on. It takes a job and applies company standards to a drawing, then prints it with a specific naming format, and saves it in the related place. The naming changes according to drawing-specific attributes.

I have it set-up in an OOP format. The command must be executed on each drawing, and there could be 100+. Using a foreach loop would surely be my best approach at this point in time, but how can I iterate my process through every drawing the user has open? (In other words, foreach drawing open, perform the main routine)

I've considered converting my code to publish instead of plot for efficiency and did a pro/cons list. I don't think its the best decision right now.

Also, how could I retrieve all of the open drawing names with another foreach loop, and have them listed in a dialog box with a Confirm / Cancel option before processing my script?

Re: Batch Processing on all open drawings with LISP

Moshe-A — Fri, 20 Sep 2019 03:47:12 GMT

@Anonymous hi,

the best way to run lisp through list of dwg is ScriptPro 2.0

>> download ScriptPro 2.0 from here <<

if you can not get ScriptPro then create a script (scr) file. you can write a small lisp to create a script for specific folder.

to retrieve the opened documents (files) you need to use ActiveX:

; get the pointer to opened documents

(setq docs (vla-get-documents (vlax-get-acad-object)))

enjoy

moshe

Re: Batch Processing on all open drawings with LISP

Sea-Haven — Fri, 20 Sep 2019 03:51:10 GMT

This little snippit may help you can get via vl what dwgs are currently open.

[code]

(defun openblk (blkname / adocs)
(setq acDocs (vla-get-documents (vlax-get-acad-object)))
(vla-open acDocs blkname)
(vla-activate (vla-item acdocs 1))
;(vla-put-activedocument (vlax-get-acad-object) (vla-item acdocs 1))
)

[/code]

Re: Batch Processing on all open drawings with LISP

maratovich — Fri, 20 Sep 2019 04:13:20 GMT

For batch printing use this (no problem): Revers

For batch Lisp use this: AutoViewport

Re: Batch Processing on all open drawings with LISP

Jonathan3891 — Fri, 20 Sep 2019 12:51:55 GMT

You could give this a try. It doesn't work on all open drawings, but all drawings in a folder.

(defun c:BatchJob (/ dwgs file dwgName scrFile folderName)
  (setq folderName
  (browsefolder "Select folder to perform batch job: ")
  )
  (setq dwgs (vl-directory-files folderName "*.dwg"))
  (setq scrFile (open (strcat folderName "\\batchJob.scr") "w"))
  (foreach file dwgs
	(setq dwgName (strcat "\"" folderName "\\" file "\""))
	(write-line ".Open" scrFile) 
	(write-line dwgName scrFile)
	(write-line "SomeCommand" scrFile)
	(write-line ".Qsave" scrFile)
	(write-line ".close" scrFile)

  )	 
  (close scrFile)  
  (command ".script" (strcat folderName "\\batchJob.scr"))
  (princ)
)	
;;; Function to browse folder
;;; This code was originally posted by kpblc2000 in AUGI AutoLisp Forum
;;;
(defun browsefolder (title / shlobj folder fldobj)
  (vl-load-com)
  (setq
	shlobj (vla-getinterfaceobject
	  (vlax-get-acad-object)
	  "Shell.Application"
	)
	folder (vlax-invoke-method shlobj 'browseforfolder 0 title 0)
  )
  (vlax-release-object shlobj)
  (if folder
	(progn
	  (setq
 fldobj	(vlax-get-property folder 'self)
 folderName (vlax-get-property fldobj 'path)
	  )
	  (vlax-release-object folder)
	  (vlax-release-object fldobj)
	  folderName
	)
  )
)
(princ)

Re: Batch Processing on all open drawings with LISP

Anonymous — Wed, 25 Sep 2019 17:51:01 GMT

My LISP script applies certain styles to a set of open drawings, and plots them with company standard naming, while saving a copy in two locations relative to some attributes in the block of a drawing.

Currently our process is to open each drawing, and type the command which executes these functions. The issue is we must perform the command on each drawing individually.

So, if there are 100 drawings, we must type the command 100 times. My hopes is to have all 100 drawings open, and have the lisp function be able to iterate through every open drawing.

Here is my current main function:

(defun batchissue_main ()
(textpage)
(princ "\n ")
(princ)
(princ "\n ")
(princ)
    (progn (setting)
	    (border)
	    (gather)
	    (type_issue)
	    (pset)
	    (checkexistissue)
	    (deleteoldpdf)
      	    (pdfissue)
    )
  (princ)
)					;defun
(princ)

I'm hoping to turn it into something like this:

(defun C:batchissue_main ()
(textpage)
(princ "\n ")
(princ)
(princ "\n ")
(princ)
~FOR EACH DRAWING OPEN~
    (progn (setting)
	    (border)
	    (gather)
	    (type_issue)
	    (pset)
	    (checkexistissue)
	    (deleteoldpdf)
      	    (pdfissue)
    )
  (princ)
~~END FOR EACH DRAWING OPEN
)					;defun
(princ)

Any ideas related to approaching this situation?

Re: Batch Processing on all open drawings with LISP

dbhunia — Wed, 25 Sep 2019 19:57:57 GMT

If so Try this in SDI Mode....... (only one drawing will be in opened condition in that AutoCAD session)

Run the LISP and Select the Folder of Drawings you want to Process.

This program is a sample which will place a text "SAMPLE TEXT" at "0,0,0" in Model space of each drawing of the target folder...

(defun C:Batch_Run ( / *error* sh folder SDI_Val LISPI_Val folderobject result Files_Folder n)
	(vl-load-com)
	(defun *error* ( msg )
		(setvar 'SDI SDI_Val)(setvar 'LISPINIT LISPI_Val)
		(if (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*"))
			(princ (strcat "\nOops an Error : " msg " occurred."))
		)
		(princ)
	)  
	(setq SDI_Val (getvar 'SDI))
	(setq LISPI_Val (getvar 'LISPINIT))
	(setq sh (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application" ))
	(setq folder (vlax-invoke-method sh 'BrowseForFolder 0 "Select Folder of Drawings to Process" 512 ))
	(vlax-release-object sh)
	(setvar 'cmdecho 0)(setvar 'SDI 1)(setvar 'LISPINIT 0)
	(if folder
		(progn
			(setq folderobject (vlax-get-property folder 'Self))
			(setq result (vlax-get-property FolderObject 'Path))
			(vlax-release-object folder)
			(vlax-release-object FolderObject)
			(setq Files_Folder (vl-directory-files result "*.dwg"))
			(command "save" (strcat (getvar "dwgprefix") (getvar "dwgname")) "Y")
			(setq n 0)
			(while (< n (length Files_Folder))
				(command "fileopen" (strcat result "\\" (nth n Files_Folder)));;;Open Each Drawing
				;;;;;;; commands to run on each drawig starts here ;;;;;;;
				
				(setvar 'TILEMODE 1);For texting - Changing to Model Space ;;; Remove this line
				(command "_.text" "0,0,0" "10" "" "SAMPLE TEXT");For texting - Placing Text at 0,0,0 ;;; Remove this line
				
				;;;;;;; commands to run on each drawig ends here ;;;;;;;
				(vl-cmdf "save" (strcat result "\\" (nth n Files_Folder)));;;Save & Close opened Drawing
				(setq n (+ 1 n))
			)
		)
	)
	(setvar 'SDI SDI_Val)(setvar 'LISPINIT LISPI_Val)(setvar 'cmdecho 1)
	(princ)
)

You remove the Blue lines and place your commands there, those will run in each Drawing of the target folder... (still every thing depends on your functions behavior).

For more talk in morning.

Re: Batch Processing on all open drawings with LISP

Sea-Haven — Thu, 26 Sep 2019 02:36:34 GMT

You want to process a 100 dwgs I would look at using scripts they can run lisp on a open dwg. So as posted else where you could do stuff like what layouts to plot in a dwg using say excel to pick the layouts printer etc. A tick boxes approach you will be surprised how fast a dwg can open plot and then close with no user interaction.

Re: Batch Processing on all open drawings with LISP

Crstiano — Mon, 26 Sep 2022 17:24:42 GMT

Hi @Jonathan3891 and guys,

Lisp is not my best language 🙂 , So:

using this code:

I just try change the line

(write-line "SomeCommand" scrFile)

For some like this:

"(sssetfirst nil (ssget "_x" '((0 . "point"))))"

(write-line "Erase" scrFile)

My idea is open all files, select all points and delete all.

Can you help me ?

Re: Batch Processing on all open drawings with LISP

Jonathan3891 — Tue, 27 Sep 2022 11:44:00 GMT

In order for that to work in the lisp I provided, the delete point code will need to be added to the lisp somewhere and then call the command from the script.

I've tested and this works.

(defun c:BatchJob (/ dwgs file dwgName scrFile folderName) (setq folderName (browsefolder "Select folder to perform batch job: ") ) (setq dwgs (vl-directory-files folderName "*.dwg")) (setq scrFile (open (strcat folderName "\\batchJob.scr") "w")) (foreach file dwgs (setq dwgName (strcat "\"" folderName "\\" file "\"")) (write-line ".Open" scrFile) (write-line dwgName scrFile) (write-line "DPNT" scrFile) (write-line ".Qsave" scrFile) (write-line ".close" scrFile) ) (close scrFile) (command ".script" (strcat folderName "\\batchJob.scr")) (princ) ) ;;; Function to browse folder ;;; This code was originally posted by kpblc2000 in AUGI AutoLisp Forum ;;; (defun browsefolder (title / shlobj folder fldobj) (vl-load-com) (setq shlobj (vla-getinterfaceobject (vlax-get-acad-object) "Shell.Application" ) folder (vlax-invoke-method shlobj 'browseforfolder 0 title 0) ) (vlax-release-object shlobj) (if folder (progn (setq fldobj (vlax-get-property folder 'self) folderName (vlax-get-property fldobj 'path) ) (vlax-release-object folder) (vlax-release-object fldobj) folderName ) ) (princ) ) ;; Delete Point (defun C:DPNT (/ SS1) (setq SS1 (ssget "x" '((0 . "point")))) (if SS1 (progn (command "erase" SS1 "") (princ "\nAll Points Erased!") ) (princ "\nNo Points Found!") ) (princ) )

Re: Batch Processing on all open drawings with LISP

Crstiano — Tue, 27 Sep 2022 14:44:44 GMT

Your code is similar I tried yestarday. But found the same problem.

Explain:

After LoadApplication. It´s load successful. Commands Batchjob and NPNT loaded.

Executing Bachtjob:

It asked folder, create the script, but when try execute the NPNT .. it don't recognition the command..

There's something wrong ??

Re: Batch Processing on all open drawings with LISP

Sea-Haven — Wed, 28 Sep 2022 00:39:22 GMT

Its a 2 step process make the lisp that does all the work and save it, 2nd step is using a lisp make the script file, you would then just load the pre-saved lisp, it can have a defun so call that as well.

Open dwg1 (load "mylisp") (mydefun) Close Y open dwg2 ................