做一些家庭作业，阅读保存工作区和ARG文件和配置文件，（检查这里的帖子）你可以去任何我们有13+的计算机，通过网络加载一个ARG文件，它与其他电脑相同。有一些小的个人定制“让人们高兴”，所以我们把每个用户作为一个ARG，但从一个整体的公司设置开始。
随着20102即将加载，自动设置可以节省时间。通过lsp自动设置首选项和菜单，然后保存参数。
Stykface不确定如果使用ARG，为什么会丢失目录路径？
首选项的副本。lsp
- ; This sets a reference to the install path of your product
- ; the gets are their for info maybe other use
- (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-CustomIcons *files*))
- (vla-put-CustomIcons *files* "S:\\Autodesk\\ICONS")
- ; printers config
- ;(vla-get-PrinterConfigPath *files*)
- (vla-put-PrinterConfigPath *files* "S:\\AutoDESK\\Plotting\\Plot Styles 2011")
- ; printer drv's
- ;(vla-get-PrinterDescPath *files*)
- (vla-put-PrinterDescPath *files* "S:\\AutoDESK\\Plotting\\Drv")
- ; print spooler
- ;(vla-get-PrinterSpoolerPath *files*)
- (vla-put-PrinterSpoolerPath *files* "C:\\ACADTemp\")
- ; template location
- ;(vla-get-QnewTemplateFile *files*)
- (vla-put-QnewTemplateFile *files* "S:\\Autodesk\\c3d Templates\\cogg.dwt")
- ;make new support paths exist + new
- (setq paths (vla-get-SupportPath *files*))
- (setq coggpaths
- "S:\\autodesk\\supportfiles;
- S:\\autodesk\\lisp;
- S:\\autodesk\\fonts;
- S:\\autodesk\\hfs fonts;"
- )
- (setq newpath (strcat coggpaths paths))
- (vla-put-SupportPath *files* newpath)
- ; Tempdirectory
- ;(vla-get-TempFilePath *files*))
- (vla-put-TempFilePath *files* "C:\\ACADTemp\")
- ; template path
- ;(vla-get-TemplateDwgPath *files*)
- (vla-put-TemplateDwgPath *files* "S:\\Autodesk\\c3d Templates")
- ; 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")
| 
置顶卡
