Loading profile(*.arg) using L
1. May I know how to load a profile (*.arg) like Importing it using LISP routine?2. and/or loading cui using script or lisp?
thanks! Consider the ImportProfile Method to load Profiles. If you want to just change a few things such as the file paths etc under CONFIG FILES you can make these cahnges directly from a lisp rather than load a ARG
; resets the paths usefull for update versions of Autocad; by A Houston 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\\2013xxx"); 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\\"); templatepath;(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\\xxxxx.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\\ahxxxx\\local settings\\application data\\autodesk\\c3d 2011\\enu\\"(vla-put-PlotLogFilePath *files* "C:\\AcadTemp\\"); LogFilePath = "C:\\Documents and Settings\\ahxxxx\\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")
页:
[1]