Zoom Shortcuts

[imacad]

In previous releases I have added some lines to the ACAD(release#).lsp to define some shortcut commands for the various zoom functions. Had issues with the "Ribbon" panels not showing the other day and various other issues which I eventually fixed with a reinstall of ACAD Architecture 2011. Attempted to add the lines of code to get custom commands and keeps saying unknown command when enter the shortcut on keyboard. I finally attempted to save as a separate lisp file and "Appload". Still no custom commands.

I am posting the zoom.lsp to see if anyone can make suggestions as to why the appload won't work. I even loaded in startup suite and get no error and says the app loads successfully. Still can't get my "ZA" for zoom all and other shortcuts. Any suggestions or assistance is greatly appreciated. Oh yes, I have loaded downed the session and even tried rebooting, still nothing.

[RobertB]

In previous releases I have added some lines to the ACAD(release#).lsp to define some shortcut commands for the various zoom functions. Had issues with the "Ribbon" panels not showing the other day and various other issues which I eventually fixed with a reinstall of ACAD Architecture 2011. Attempted to add the lines of code to get custom commands and keeps saying unknown command when enter the shortcut on keyboard. I finally attempted to save as a separate lisp file and "Appload". Still no custom commands.

I am posting the zoom.lsp to see if anyone can make suggestions as to why the appload won't work. I even loaded in startup suite and get no error and says the app loads successfully. Still can't get my "ZA" for zoom all and other shortcuts. Any suggestions or assistance is greatly appreciated. Oh yes, I have loaded downed the session and even tried rebooting, still nothing.

First, do not modify the ACAD2011.lsp file. This is Autodesk's file for their use. They provide for two user files that will load automatically just like Acad2011.lsp and Acad2011Doc.lsp: Acad.lsp and AcadDoc.lsp. You simply create those two files if they don't exist.

This is documented in TS21336.

Here is the revised code (simply save it to AcadDoc.lsp):

;;;  This is to setup shortcuts to zoom commands.
(defun C:ZX () (command "._VIEW" "_R" "ALL") (princ))
(defun C:ZA () (command "._ZOOM" "_A") (princ))
(defun C:ZZ () (command "._ZOOM" "_E") (princ))
(defun C:ZL () (command "._ZOOM" "_L") (princ))
(defun C:ZC () (command "._ZOOM" "_C") (princ))
(defun C:ZD () (command "._ZOOM" "_D") (princ))
(defun C:ZP () (command "._ZOOM" "_P") (princ))
(defun C:ZW () (command "._ZOOM" "_W") (princ))
;;; Silent load.
(princ)

The biggest issue was that the function command was misspelled on one line.

[imacad]

Thanks for the info. I have been on a deadline and hadn't had an opportunity to check back.