这里有一个lisp用于设置所有路径，但更好的方法是从配置文件创建ARG。
快速回答将ARG复制到新电脑，使新图标指向此ARG，启动默认AutoCAD图标加载ARG，然后关闭。将自定义菜单复制到“主自定义菜单”路径设置中的位置，启动新图标
应该有用！12台电脑是这样做的
- ; resets the paths usefull for update versions of Autocad
- ; by BGAL 2011
- ; This sets a reference to the install path of your product
- ; the gets are their for info maybe other use
- ; use this to find other settings
- ;(vlax-dump-object (vla-get-files (vla-get-preferences (vlax-get-Acad-object))) T)
- (vl-load-com)
- ; make temp directory
- ;(vl-mkdir "c:\\AcadTEMP")
- (setq *files* (vla-get-files (vla-get-preferences (vlax-get-Acad-object))))
- ; savepath
- ;(vla-get-AutoSavepath *files*)
- (vla-put-AutoSavepath *files* "C:\\AcadTemp")
- ; custom icons
- ;(vla-get-CustomIconPath *files*))
- (vla-put-CustomIconPath *files* "P:\\Autodesk\\ICONS")
- ; custom menu
- ;(vla-get-Menufile *files*))
- ;(vla-put-Menufile *files* "C:\\Users\\2013BIGAL")
- ; printers config
- ;(vla-get-PrinterConfigPath *files*)
- (vla-put-PrinterConfigPath *files* "P:\\AutoDESK\\Plotting\\Plot Styles 2011")
- ; printers style sheet
- ;(vla-get-PrinterStyleSheetPath *files*)
- (vla-put-PrinterStyleSheetPath *files* "P:\\AutoDESK\\Plotting\\Plot Styles")
- ; printer drv's
- ;(vla-get-PrinterDescPath *files*)
- (vla-put-PrinterDescPath *files* "P:\\AutoDESK\\Plotting\\Drv")
- ; print spooler
- ;(vla-get-PrintSpoolerPath *files*)
- (vla-put-PrintSpoolerPath *files* "C:\\AcadTemp\")
- ; template path
- ;(vla-get-TemplateDwgPath *files*)
- (vla-put-TemplateDwgPath *files* "P:\\Autodesk\\c3d Templates")
- ; template location
- ;(vla-get-QnewTemplateFile *files*)
- (vla-put-QnewTemplateFile *files* "P:\\Autodesk\\c3d Templates\\BIGAL.dwt")
- ;make new support paths exist + new
- (setq paths (vla-get-SupportPath *files*))
- (setq BIGALpaths
- "P:\\autodesk\\supportfiles;
- P:\\autodesk\\lisp;
- P:\\autodesk\\fonts;
- P:\\autodesk\\hfs fonts;"
- )
- (setq newpath (strcat BIGALpaths paths))
- (vla-put-SupportPath *files* newpath)
- ; Tempdirectory
- ;(vla-get-TempFilePath *files*))
- (vla-put-TempFilePath *files* "C:\\AcadTemp\")
- (vla-put-PlotLogFilePath *files* "C:\\AcadTemp\")
- (vla-put-LogFilePath *files* "C:\\AcadTemp\")
- ; xref temp path
- ;(vla-get-TempXrefPath *files*))
- (vla-put-TempXrefPath *files* "C:\\AcadTemp\")
- ; end use of *files*
- (vlax-release-object *files*)
- ; exit quitely
- (princ "All Done")
| 
置顶卡
