Just thought someone might like this. It will add a personal Tool Pallet folder and tool pallet.
;;;setup personal tool palette
(defun c:mytp ()
(setq MY_FOLDER$
(strcat (getenv "UserProfile")
"\\Documents\\My Autocad Support"
)
)
(if (null (vl-file-directory-p MY_FOLDER$))
(vl-mkdir MY_FOLDER$)
)
(setq MY_FOLDER$
(strcat (getenv "UserProfile")
"\\Documents\\My Autocad Support\\ToolPalette_"
(getvar 'loginname)
)
)
(if (null (vl-file-directory-p MY_FOLDER$))
(vl-mkdir MY_FOLDER$)
)
(setq MY_TP$ (strcat (getenv "UserProfile")
"\\Documents\\My Autocad Support\\ToolPalette_"
(getvar 'loginname)
"\\"
(getvar 'loginname)
".atc"
)
)
(if (null (findfile MY_TP$))
(Progn
(setq NewPalett$
(strcat
"<Palette FileRevision=\"24.0.0\" Revision=\"24.0.1\" option=\"0\"><ItemID idValue=\"{972F5139-08E5-4EDB-80F6-6290271782C3}\"/><Properties><ItemName>"
(getvar 'loginname)
"</ItemName><Images option=\"0\"/><Time createdUniversalDateTime=\"1978-01-01T00:00:00\" modifiedUniversalDateTime=\"1978-01-01T00:00:00\"/></Properties><CustomData><Translation status=\"1\"/></CustomData><Tools/></Palette>"
)
)
(setq fname (open MY_TP$ "w"))
(write-line NewPalett$ fname)
(close fname)
) ;IF
) ;progn
(setq OrigTP$ (getvar "*_toolpalettepath"))
(setq mtp$ (strcat (getenv "UserProfile")
"\\Documents\\My Autocad Support\\ToolPalette_"
(getvar 'loginname)
)
)
(setq ntp$ (strcat mtp$ ";" OrigTP$))
(setvar "*_TOOLPALETTEPATH" ntp$)
(princ)
)