topic Re: AutoLisp in Visual LISP, AutoLISP and General Customization Forum

AutoLisp

abel_henok — Mon, 23 Sep 2024 18:14:05 GMT

I have two lisp files.

1) layfrzdwgdir

- This Lisp freezes specified layers throughout an entire set of drawings.

Can someone please take a look at the layfrzdwgdir lisp file and create a separate lisp file that can UNfreeze specified layers throughout an entire set of drawings?

2) zoome

- This Lisp performs zoom extent within multiple viewports on a single drawing.

Can someone please take a look at the zoome lisp and create a separate lisp that can perform the function throughout an entire set of drawings?

I hope you someone is able to help me reach a resolution.

Thank you!

Re: AutoLisp

becca_chesmore — Mon, 23 Sep 2024 18:31:52 GMT

(defun zoomedwgdir ()
(foreach dwgname (dir "*.dwg") ; Loop through drawing files
(command "open" dwgname) ; Open the current drawing
(c:zeavp) ; Call the existing zoom extents function
(command "save" "yes") ; Save the drawing
(command "quit")) ; Close the drawing
(princ "\nZoom extents completed for all drawings."))

(defun c:zeavp ( / c) ; Existing function from zoome.lsp (unchanged)
(setq c (getvar "CTAB"))
(foreach l (layoutlist)
(setvar "CTAB" l)
(c:zoome))
(setvar "CTAB" c)
(princ))

(princ "\nType zoomedwgdir or (zoomedwgdir) to run")

Re: AutoLisp

paullimapa — Mon, 23 Sep 2024 21:11:49 GMT

for your layfrzdwgdir.lsp to change to unfreeze then change this line:

:vlax-true ;; the value you want each listed layer to be set to

to this line:

:vlax-false ;; the value you want each listed layer to be set to

Re: AutoLisp

abel_henok — Mon, 23 Sep 2024 22:33:18 GMT

This solution did not work. Please view the attached code per your recommendations and let me know if we can come up with a different solution. Thank you!

Re: AutoLisp

paullimapa — Mon, 23 Sep 2024 22:49:07 GMT

There was actually another location where :vlax-true had to be replaced with :vlax-false

Also you don't need to replace 'freeze with 'unfreeze

Use the attached revised code.

Re: AutoLisp

abel_henok — Mon, 23 Sep 2024 23:16:03 GMT

Paul, that worked! Thank you so much sir! Now, do you think we can customize the zoome lisp so that it applies to the entire set of drawings in a directory? (similar to the layunfrzdwgdir lisp) Please let me know. Thanks!

Re: AutoLisp

paullimapa — Mon, 23 Sep 2024 23:41:07 GMT

Does @becca_chesmore solution not work for you?

Re: AutoLisp

abel_henok — Mon, 23 Sep 2024 23:50:56 GMT

Below is the error I received when entering "zoomedwgdir: or "(zoomedwgdir)" in the command line:

; error: no function definition: DIR

Re: AutoLisp

abel_henok — Mon, 23 Sep 2024 23:51:44 GMT

Below is the error I received when entering "zoomedwgdir: or "(zoomedwgdir)" in the command line:

; error: no function definition: DIR

Re: AutoLisp

paullimapa — Tue, 24 Sep 2024 00:16:29 GMT

let's see if @becca_chesmore can reply to that

Re: AutoLisp

becca_chesmore — Tue, 24 Sep 2024 00:21:09 GMT

@paullimapa I'm pretty new to Lisp and I thought that would work. Sorry, I couldn't be more help 😞

Re: AutoLisp

abel_henok — Tue, 24 Sep 2024 00:55:27 GMT

No worries. Thank you for your effort.

Re: AutoLisp

paullimapa — Tue, 24 Sep 2024 04:24:03 GMT

Here's one method to run Zoome.lsp on a set of dwgs in a folder:

Script Writer | Lee Mac Programming (lee-mac.com)

Download & install and then fill out the Script Line on Lee Mac's program like this (assume your Zoome.lsp is in a AutoCAD's File Support Search Path location):

_.Open *file* (load"zoome") ZoomE _.Qsave _.Close

Re: AutoLisp

paullimapa — Tue, 24 Sep 2024 06:46:18 GMT

Here's another method to apply zoome.lsp to all dwgs in a selected folder.

Save attached DwgAccPikScr.lsp , Zoome.lsp & unzip Zoome.scr in a folder under one of AutoCAD> Options> Support File Search Path & Trusted Locations

Then at AutoCAD command prompt load DwgAccPikScr.lsp by typing following:

(load"DwgAccPikScr")

Then run by entering at command prompt:

DwgAccPikScr

Select the folder where the dwgs are and then select Zoome.scr

Re: AutoLisp

abel_henok — Tue, 24 Sep 2024 14:04:35 GMT

Hey Paul, I like your thought process.

During testing, I realized there's an IT restriction on running script files in batch. Though, we have more flexibility with lisp files.

The DWGACCPIKSCR is a lisp file but only allows the user to select a script file to run in a directory. Is there a way we can modify DWGACCPIKSCR to allow the user to select a script file?

Please let me know.

Thank you!

Re: AutoLisp

paullimapa — Tue, 24 Sep 2024 14:38:08 GMT

I’m surprised script files in a batch file is not allowed at your office. This is a major advantage that allows for automation without a need to open drawings in AutoCAD. Since DWGACCPIKSCR lisp is purposely designed to take advantage of batch processing dwgs without opening them, then this method cannot be used in your office.

Re: AutoLisp

paullimapa — Tue, 24 Sep 2024 20:13:34 GMT

Here's a modified version I call DwgAccPikScrA.lsp

This version does NOT create a batch file to apply the selected script file to all the dwgs in the selected folder.

But instead it runs the entire process within AutoCAD.

Let me know if this version bypasses the batch Script restrictions in your office.