Just adding my two cents. Working through the Options tabs to consolidate a stock configuration for our office. A few differences in setting various paths.
<CommandMethod("setconfig")> _
Public Sub setconfig()
Dim acpref As AcadPreferences = Application.Preferences
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Try
'Misc Variables
Application.SetSystemVariable("filedia", 1)
Application.SetSystemVariable("gridmode", 0)
Application.SetSystemVariable("copymode", 0)
acDoc.Window.WindowState = Window.State.Maximized
acpref.System.BeepOnError = False
Application.SetSystemVariable("trustedpaths", ";C:\Forum_ACAD\2014\;" & ";R:\2014\;")
'Files
acpref.Files.SupportPath = ";C:\Forum_ACAD\2014\" & ";R:\2014\;" & acpref.Files.SupportPath
'acpref.Files.EnterpriseMenuFile = "R:\2014\Menus\Forum-2014.cuix"
acpref.Files.PrinterConfigPath = "R:\2014\Plotters\"
acpref.Files.PrinterDescPath = "R:\2014\Plotters\"
acpref.Files.PrintSpoolerPath = "C:\Temp\"
acpref.Files.PrinterStyleSheetPath = "R:\2014\Plotters\"
acpref.Files.TemplateDwgPath = "R:\2014\Templates\"
acpref.Files.QNewTemplateFile = "R:\2014\Templates\file-types.dwt"
acpref.Files.TempFilePath = "C:\Temp\"
'Display
acpref.Display.DisplayScrollBars = False
acpref.Display.XRefFadeIntensity = 50
acpref.Display.GraphicsWinModelBackgrndColor = 0
acpref.Display.CursorSize = 100
acpref.Display.LayoutDisplayPaperShadow = False
'acpref.Display.ModelCrosshairColor = "Color 42"
'Open Save
acpref.OpenSave.SaveAsType = Autodesk.AutoCAD.Interop.Common.AcSaveAsType.ac2013_dwg
acpref.OpenSave.SavePreviewThumbnail = False
acpref.OpenSave.AutoSaveInterval = False
acpref.OpenSave.IncrementalSavePercent = 0
acpref.OpenSave.CreateBackup = False
acpref.OpenSave.FullCRCValidation = True
acpref.OpenSave.LogFileOn = False
acpref.OpenSave.MRUNumber.Equals("10")
acpref.OpenSave.DemandLoadARXApp = Autodesk.AutoCAD.Interop.Common.AcARXDemandLoad.acDemandLoadOnObjectDetect
acpref.OpenSave.AutoAudit = True
acpref.OpenSave.ShowProxyDialogBox = False
acpref.OpenSave.TempFileExtension = "ac$"
acpref.OpenSave.XrefDemandLoad = Autodesk.AutoCAD.Interop.Common.AcXRefDemandLoad.acDemandLoadEnabled
acpref.OpenSave.ProxyImage = False
''Plot and Publish
acpref.Output.AutomaticPlotLog = False
acpref.Output.ContinuousPlotLog = False
acpref.Output.DefaultOutputDevice = "Adobe PDF"
Application.SetSystemVariable("BackGroundPlot", 0)
Application.SetSystemVariable("AutomaticPub", 0)
''Drafting
acpref.Drafting.AutoTrackTooltip = False
acpref.Drafting.AutoSnapTooltip = False
acpref.Drafting.AlignmentPointAcquisition = 0
Catch ex As Exception
End Try
End Sub