topic Re: Am I able to change/revise the Zoom All keyin? in AutoCAD Forum

Am I able to change/revise the Zoom All keyin?

Anonymous — Thu, 05 Apr 2018 15:56:21 GMT

I am using Civil 3D 2016 although I am just using "Drafting and Annotation"

I'm not sure if this is silly or maybe dumb.

But I would like to change/revise/add to whatever runs the ZOOM command.

Right now I have to use ZA to Zoom All. I would like to change that to something else, for me ZZ is what I'm looking for which would help me to not keep looking at the keyboard.

I have already added CC for copy rather than CP in ACAD.PGP

I also see Z for ZOOM but I don't see ZA for ZOOM ALL.

Thank you

Re: Am I able to change/revise the Zoom All keyin?

imadHabash — Thu, 05 Apr 2018 16:26:29 GMT

Hi,

you can redefine Zoom options commands by adding such below lines to your Acaddoc.lsp .

(defun C:ZE () (command "._Zoom" "_Extents") (princ))
(defun C:ZA () (command "._Zoom" "_All") (princ))

Re: Am I able to change/revise the Zoom All keyin?

gotphish001 — Thu, 05 Apr 2018 16:27:03 GMT

Double clicking the mouse wheel zooms extents too. That is the easiest way.

Re: Am I able to change/revise the Zoom All keyin?

Anonymous — Thu, 05 Apr 2018 17:08:57 GMT

Thank you imadHabash,

I can't find Acaddoc.lsp, all I can find is acad2016.lsp or acad2016doc.lsp and I am truly lost when I open the 2016doc file.

Would I add the lines BEFORE the -----BEGIN-SIGNATURE----- ?

Also, are the lines of text saying that ZE is Zoom Extents and ZA is Zoom All? Because I want Zoom All to be ZZ and maybe Zoom Extents to be ZZZ.

Thanks again

Re: Am I able to change/revise the Zoom All keyin?

Anonymous — Thu, 05 Apr 2018 17:11:16 GMT

Thanks to you gotphish001,

I don't really like using wheel other than for scrolling in and out.

Your input is appreciated

Re: Am I able to change/revise the Zoom All keyin?

ВeekeeCZ — Thu, 05 Apr 2018 17:17:03 GMT

Don't change that file. Create new txt name it acaddoc.lsp
Save at same place.

Re: Am I able to change/revise the Zoom All keyin?

Kent1Cooper — Thu, 05 Apr 2018 17:58:45 GMT

@Anonymous wrote:

... I want Zoom All to be ZZ and maybe Zoom Extents to be ZZZ.

....

The part immediately following the C: is the command name that you would type in to use it. You can call a command anything you want --

(defun C:SpongeBobSquarePants () (command "._Zoom" "_All") (princ))

[except it can't have spaces or certain punctuation characters, and if you duplicate some already-existing command name or alias you would have problems].

Re: Am I able to change/revise the Zoom All keyin?

ВeekeeCZ — Thu, 05 Apr 2018 18:39:03 GMT

@Anonymouswrote:
I am using Civil 3D 2016 although I am just using "Drafting and Annotation"

I'm not sure if this is silly or maybe dumb.

But I would like to change/revise/add to whatever runs the ZOOM command.
Right now I have to use ZA to Zoom All. I would like to change that to something else, for me ZZ is what I'm looking for which would help me to not keep looking at the keyboard.

I have already added CC for copy rather than CP in ACAD.PGP
I also see Z for ZOOM but I don't see ZA for ZOOM ALL.

Thank you

I've tried to locate where is this ZA command defined and coundn't find it. But it behaves like a LISP command somewhere defined similar way as @imadHabash showed you.

That means it can't be changed. Most simple thing you can do is add into pgp file new alias at the end:

ZZ, *ZA

then ZA will keep working and ZZ will call ZA.

If you ever want to change ZA for something else, the only way is to redefine the lisp commadn the way as @imadHabash show you and make sure that it is always loaded (eg. using acaddoc.lsp) If two lisp commands have same name, the last-one loaded (yours in acaddoc) will beat (re-defines) the previous (which you cannot change).

Re: Am I able to change/revise the Zoom All keyin?

cwr-pae — Thu, 05 Apr 2018 22:57:03 GMT

Open note pad, paste the code below and save as zoom.lsp in your support folder. Change the red text only to the short cut keys you want for the commands that follow. Make sure your acad. pgp does not contain any of the short cuts in the zoom lisp. Type the command appload and add the zoom.lsp to the contents of the startup suite (briefcase icon in lower right). Test the short cuts.

(DEFUN C:ZP ()
(princ " Zoom P ")
(COMMAND "ZOOM" "P")
(PRINC))

(DEFUN C:ZW ()
(princ " Zoom Win ")
(COMMAND "ZOOM" "W")
(PRINC))

(DEFUN C:ZE ()
(princ " Zoom Extents ")
(COMMAND "ZOOM" "E")
(PRINC))

(DEFUN C:ZO ()
(princ " Zoom Object ")
(COMMAND "ZOOM" "O")
(PRINC))