Custom Toolbar

I just received a laptop to help me out when I have work to do in the field. My desktop in the office is running AutoCad 2011 and I went ahead and installed it on the laptop as well. I have a custom toolbar on my dektop that I would like to copy to the laptop but am unsure as to how that can be done. I'd appreciate input about the appropriate steps needed to accomplish this.

Thanks

Find the acad.cui or acad.cuix file and copy it to the new computer.

eg.

Command: (findfile "acad.cui")
"C:\\Documents and Settings\\athompson\\Application Data\\Autodesk\\Civil09\\enu\\support\\acad.cui"

If you know the Windows path (directory and folder location) of your cui file that contains your toolbar you can just copy it to a usb drive and then copy it to your laptop with the same name, in the same precise location there.

I guess "Deity" means yer faaaasssssst.

Here's a little backup program.

(defun c:BackUP (/ str)
 (vl-load-com)
 (vl-mkdir "c:\\BackUP")
 (setq str "")
 (foreach file '("acad" "civil" "land")
   (foreach ext '(".cui" ".cuix" ".mnu" ".pgp")
     (and (findfile (strcat file ext))
          (setq str (strcat str file ext "\n"))
          (vl-file-copy (findfile (strcat file ext)) (strcat "c:\\BackUP\\" file ext))
     )
   )
 )
 (or (eq str "") (alert (strcat "File(s) backed up to c:\BackUP\n\n" str)))
 (princ)
)

I guess "Deity" means yer faaaasssssst.

Nah, just not working hard enough.

BTW, the above routine will backup:

acad.mnu

acad.pgp

acad.cui

acad.cuix

land.mnu

land.cui

land.cuix

civil.mnu

civil.cui

civil.cuix

Nah, just not working hard enough.

 

 

BTW, the above routine will backup:

acad.mnu

acad.pgp

acad.cui

acad.cuix

 

land.mnu

land.cui

land.cuix

 

civil.mnu

civil.cui

civil.cuix

Cool, maybe the OP can use it. My 2009 LT has no lips, er uh lisp.:wink:

I save a lot of lisp routines I find on here anyway, just in case I hit the lottery for enough moola to go full house. I am going to try and figure the coding out too, but I have not looked for a tutorial source on it yet since I have no testing environment for now. I can read it enough to understand how it works since I spent 23 years programming in other similar languages. It should be a snap to learn.

Here's a little backup program.

 

(defun c:BackUP (/ str)
 (vl-load-com)
 (vl-mkdir "c:\\BackUP")
 (setq str "")
 (foreach file '("acad" "civil" "land")
   (foreach ext '(".cui" ".cuix" ".mnu" ".pgp")
     (and (findfile (strcat file ext))
          (setq str (strcat str file ext "\n"))
          (vl-file-copy (findfile (strcat file ext)) (strcat "c:\\BackUP\\" file ext))
     )
   )
 )
 (or (eq str "") (alert (strcat "File(s) backed up to c:\BackUP\n\n" str)))
 (princ)
)

I like this program. Is there any way to add workspaces as well?

I like this program. Is there any way to add workspaces as well?

Workspaces are stored in the CUI.

Actually, this is probably a better option...

(defun c:BackUp (/ str)
 (vl-load-com)
 ;; Alan J. Thompson, 04.28.10
 (vl-mkdir "c:\\BackUp")
 (setq str "")
 (foreach file (vl-directory-files (vl-filename-directory (findfile "acad.pgp")))
   (and (wcmatch (strcase file) "*.CUI*,*.MNU,*.MNL,*.MNS,*.PGP")
        (not (wcmatch (strcase file) "*BAK*"))
        (setq str (strcat str file "\n"))
        (vl-file-copy (findfile file) (strcat "c:\\BackUp\\" file))
   )
 )
 (or (eq "" str) (alert (strcat "Files backed up to c:\\BackUp\n\n" str)))
 (princ)
)