Importing Setting LISP

[Sambuddy]

Below is BIGAL`s wonder from 2011. All of which are amazing and never knew could be done! Imagine a 2020 BIGAL!!!

 

Basically what I was trying to accomplish was to setup or configure my computer to then save the setting for any other but some tasks are proven impossible or not done efficiently. I did use to import workspace and get some of the task done but if there is a way to combine all the features with a lisp, I would be more satisfied.

 

That is to be able to change a certain controls within "Options" settings as well as adding search path for lisp, trusted path, printed path and other controls.

 

Does anyone have a hand into this or a way of instructions as to how my tasks can be done? 

presently, I have to add each item on the list manually, CUI settings, control other settings and set some criteria one by one. Is there any genius that can help me achieve this?

Also due to variety in autocad version, I have to constantly save my workspace, then use a "Hotfix" by Autodesk to suit the version blah blah blah... 

Thanks 

 

; 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\\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\\")

;   PlotLogFilePath = "C:\\Documents and Settings\\ah02490.BIGAL-AD\\local 
settings\\application data\\autodesk\\c3d 2011\\enu\\"
(vla-put-PlotLogFilePath *files* "C:\\AcadTemp\\")

;   LogFilePath = "C:\\Documents and Settings\\ah02490.BIGAL-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")

 

;;; LOCAL MODE:				---> C:\Cad config
;;; NETWORK MODE customization setting	---> T:\SALLE A DESSIN\Outils CAD\Outils configuration
;;; NETWORK MODE CTD SLIDES		---> T:\SALLE A DESSIN\Outils CAD\Slides

; UNLOAD "ACA.CUIX"

; LOAD "ACA 20##"
; LOAD ACA FROM "C:\Users\[User]\AppData\Roaming\Autodesk\ACA 20##\enu\Support\ACAD.cuix"
; LOAD 	ACAD.cuix 
;	CUSTOM.cuix
;	Appmanager.cuix
;	acetmain.cuix
;	Featuredapps.cuix
;	Modeldoc.cuix
;	RadicalPurge.cuix

; CHANGE VARIABLES
;			Menubar		1
;			Startup		1
;			StartMode	1


; CLOSE/ TERMINATE ALL PALETTES EXCEPT "Properties" & "External Reference"
; DOCK  "Properties" PALETT TO LEFT
; DOCK  "External Reference" PALETT TO RIGHT

; SET SELECT TEMPLATE *.dwt: NEW TEMPLATE
; PATH: T:\SALLE A DESSIN\Outils CAD\Template





; SUPPORTED FILE SEARCH PATH (LOCAL):
;	C:\Cad Config\LISP
;	C:\Cad Config\Slides
;	C:\Transfer

; TRUSTED LOCATIONS (LOCAL):
;	C:\Cad Config\LISP

; PRINTER SUPPORT FILE PATH (LOCAL)
;	PRINTER CONFIGURATION SEARTH PATH:
;	C:\Cad Config\Plotters

;	PRINTER DESCRIPTION FILE SEARCH FILE:
;	C:\Cad Config\Plotters\PMP Files

;	PLOT STYLE TABLE SEARCH FILE:
;	C:\Cad Config\Plotters\Plot Styles

;	AUTOMATIC SAVE FILE LOCATION:
;	C:\AcadTemp
;	C:\Users\[User]\desktop\autosavecad

;	TEMPLATE SETTINGS/DRAWING TEMPLATE FILE LOCATION:
;	C:\Cad Config\Template





; SUPPORTED FILE SEARCH PATH (NETWORK):
;	T:\SALLE A DESSIN\Outils CAD\Outils configuration\Plotters
;	T:\SALLE A DESSIN\Outils CAD\Outils configuration\Lisp
;	T:\SALLE A DESSIN\Outils CAD\Outils configuration\Slides

; TRUSTED LOCATIONS (NETWORK):
;	T:\SALLE A DESSIN\Outils CAD\Outils configuration\Lisp

; PRINTER SUPPORT FILE PATH (NETWORK)
;	PRINTER CONFIGURATION SEARTH PATH:
;	T:\SALLE A DESSIN\Outils CAD\Outils configuration\Plotters

;	PRINTER DESCRIPTION FILE SEARCH FILE:
;	T:\SALLE A DESSIN\Outils CAD\Outils configuration\Plotters\PMP Files

;	PLOT STYLE TABLE SEARCH FILE:
;	T:\SALLE A DESSIN\Outils CAD\Outils configuration\Plotters\Plot Styles

;	AUTOMATIC SAVE FILE LOCATION:
;	C:\AcadTemp
;	C:\Users\[User]\desktop\autosavecad

;	TEMPLATE SETTINGS/DRAWING TEMPLATE FILE LOCATION:
;	T:\SALLE A DESSIN\Outils CAD\Template



;	SET OPEN AND SAVE TAB/FILE SAVE/SAVE AS:
;	AutoCAD 2013 Drawing (*.dwg)
;	AND
;	UNDER FILE SAFETY PRECAUTIONS:
;	UNCHECK: "Automatic Save"

;	SYSTEM TAB/GENERAL OPTIONS
;	CHECK "Beep on error in user input"

 

Edited January 29, 2020 by Sambuddy