您可以通过lisp和其他许多东西更改支持路径。
- ; resets the paths usefull for update versions of Autocad
- ; by Alan H 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\\2013xxxx")
- ; 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\\xxxx.dwt")
- ;make new support paths exist + new
- (setq paths (vla-get-SupportPath *files*))
- (setq xxxxpaths
- "P:\\autodesk\\supportfiles;
- P:\\autodesk\\lisp;
- P:\\autodesk\\fonts;
- P:\\autodesk\\hfs fonts;"
- )
- (setq newpath (strcat xxxxpaths paths))
- (vla-put-SupportPath *files* newpath)
- ; Tempdirectory
- ;(vla-get-TempFilePath *files*))
- (vla-put-TempFilePath *files* "C:\\AcadTemp\")
- ; PlotLogFilePath = "C:\\Documents and Settings\\ah02490.xxxx-AD\\local
- settings\\application data\\autodesk\\c3d 2011\\enu\"
- (vla-put-PlotLogFilePath *files* "C:\\AcadTemp\")
- ; LogFilePath = "C:\\Documents and Settings\\ah02490.xxxx-AD\\local
- settings\\application data\\autodesk\\c3d 2011\\enu\"
- (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")
| 
置顶卡
