SEI1940 Posted April 28, 2010 Share Posted April 28, 2010 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 Quote Link to comment Share on other sites More sharing options...
alanjt Posted April 28, 2010 Share Posted April 28, 2010 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" Quote Link to comment Share on other sites More sharing options...
Dana W Posted April 28, 2010 Share Posted April 28, 2010 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. Quote Link to comment Share on other sites More sharing options...
alanjt Posted April 28, 2010 Share Posted April 28, 2010 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) ) Quote Link to comment Share on other sites More sharing options...
alanjt Posted April 28, 2010 Share Posted April 28, 2010 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 Quote Link to comment Share on other sites More sharing options...
Dana W Posted April 28, 2010 Share Posted April 28, 2010 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. Quote Link to comment Share on other sites More sharing options...
BILL WILLIAMS Posted April 28, 2010 Share Posted April 28, 2010 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? Quote Link to comment Share on other sites More sharing options...
alanjt Posted April 28, 2010 Share Posted April 28, 2010 I like this program. Is there any way to add workspaces as well? Workspaces are stored in the CUI. Quote Link to comment Share on other sites More sharing options...
alanjt Posted April 29, 2010 Share Posted April 29, 2010 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) ) Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.