Leaderboard

VIEWSTD command will provide means for upping the view quality (Shaded view quality). I maxed it out to produce the attached. Formato_valvula_300DPI.pdf

You are missing a closing bracket for the command expression - I would suggest: (defun c:xra ( / dwg ) (if (setq dwg (findfile "a3sheet.dwg")) (command "_.-xref" "_A" dwg "_S" 1 "_R" 0 "_non" '(0 0)) ) (princ) ) As for batch processing, you could look to run the above program across multiple drawing from an AutoCAD Script file (.scr). You may wish to refer to the following resources: An Introduction to Script Writing Script Writer Run AutoLISP Program on Batch of Drawings Batch Processing Explanation

I just moved into this thread because I need to audit a big bunch of drawings because of my "entire web autocad block compilation task" ;;;CADALYST 03/05 Tip2023: PurgeFiles.lsp Directory Clean Up (c) Andrzej Gumula ;;; [c]2004 Andrzej Gumula, Katowice, Poland ;;; e-mail: [email="a.gumula@wp.pl"]a.gumula@wp.pl[/email] ;;; This routine purge dwg files from selected folder (vl-load-com) (defun c:PurgeAuditFiles (/ FilesList DwgPath SubDir Files File) (defun GetFolder (/ Dir Item Path) (cond ((setq Dir (vlax-invoke (vlax-get-or-create-object "Shell.Application") 'browseforfolder 0 "Select folder with DWG files:" 1 "")) (cond ((not (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke-method (list Dir 'Items)))) (setq Item (vlax-invoke-method (vlax-invoke-method Dir 'Items) 'Item)) (setq Path (vla-get-path Item)) (if (not (member (substr Path (strlen Path) 1) (list "/" "\\"))) (setq Path (strcat Path "\\")) );end if ) );end cond ) );end cond Path );end GetFolder (defun vl-findfile (Location / DirList Path AllPath) (MakeDirList Location) (setq DirList (cons Location DirList)) (foreach Elem DirList (if (setq Path (vl-directory-files Elem "*.dwg")) (foreach Item Path (setq AllPath (cons (strcat Elem "/" Item) AllPath))) );end if ) (reverse AllPath) );end vl-findfile (defun MakeDirList (Arg / TmpList) (setq TmpList (cddr (vl-directory-files Arg nil -1))) (cond (TmpList (setq DirList (append DirList (mapcar '(lambda (z) (strcat Arg "/" z)) TmpList))) (foreach Item TmpList (MakeDirList (strcat Arg "/" Item))) ) );end cond );end MakeDirList (if (not FileSystemObject) (setq FileSystemObject (vla-getInterfaceObject (vlax-get-acad-object) "Scripting.FileSystemObject")) );end if (cond ((= (getvar "SDI") 0) (cond ((setq DwgPath (GetFolder)) (initget "Yes No") (setq Subdir (cond ((getkword "\nLooking for subfolders? No,[Yes]: ")) (T "Yes"))) (if (equal SubDir "Yes") (setq Files (vl-findfile (substr DwgPath 1 (1- (strlen DwgPath))))) (setq Files (mapcar '(lambda (x) (strcat dwgpath x))(vl-directory-files DwgPath "*.dwg" 1))) );end if (setq Files (mapcar 'strcase Files)) (cond (Files (vlax-for & (vla-get-documents (vlax-get-acad-object )) (setq FilesList (cons (strcase (vla-get-fullname &)) FilesList))) (foreach & Files (cond ((not (member & FilesList )) (cond ((/= (logand (vlax-get-property (vlax-invoke-method FileSystemObject 'getfile &) 'Attributes) 1) 1) (cond ((setq File (vla-open (vla-get-documents (vlax-get-acad-object)) &)) (prompt (strcat "\nPurge " & ". Please wait...")) (vla-purgeall File) (vla-AuditInfo File T) (prompt (strcat "\nSave and close " &)) (vla-save File) (vla-close File) (vlax-release-object File) ) (T (prompt (strcat "\nCannot open " & "\nDrawing file was created by an incompatible version. "))) );end cond ) (T (prompt (strcat & " is read-only. Purge canceled. "))) );end cond ) (T (prompt (strcat & " is open now. Purge canceled. "))) );end cond );end foreach ) (T (prompt "\nNothing files found to purge. ")) );end cond ) (T (prompt "\nNothing selected. ")) );end cond ) (T (prompt "\nThe routine is not available in SDI mode. ")) );end cond (princ) );end c:PurgeFile (prompt "\nLoaded new command PurgeFiles. ") (prompt "\n[c]2004 Andrzej Gumula. ") (princ) I added the (vla-AuditInfo File T) to audit all files. This post is not a question, just Sharing the info. I think I will try to use this lisp for Batch plotting... I still don´t know if its possible, but I'll try it.