Support Paths/Profile Set via LISP

[chillme1]

Does someone have a routine that I could use for learning for the following:

Code example for setting support paths and/or Profile settings to AutoCAD via LISP

REASON: Re-installation has wiped out my custom Profile (forgot to make a backup of it out of AutoCAD's default location).

[.T.]

Does someone have a routine that I could use for learning for the following:

Code example for setting support paths and/or Profile settings to AutoCAD via LISP

REASON: Re-installation has wiped out my custom Profile (forgot to make a backup of it out of AutoCAD's default location).

Hi Clinton,

THIS THREAD may help you get started.

[rkmcswain]

Does someone have a routine that I could use for learning for the following: Code example for setting support paths and/or Profile settings to AutoCAD via LISP

Yes. See: http://rkmcswain.blogspot.com/2007/0...-via-lisp.html

[dood]

Is this something that could be solved by exporting a profile (aqs? file) and changing your shortcut to start cad to point to it.

...acad.exe /p c:/...aqs

[rkmcswain]

Is this something that could be solved by exporting a profile (aqs? file) and changing your shortcut to start cad to point to it.

...acad.exe /p c:/...aqs

No. Because AutoCAD will ignore the ARG file unless the profile does not exist.

[chillme1]

Code! That's always appreciated - as well as sage advice.

Will study this and other info on your blog.

[peter]

This code will add to the search paths. The two functions below are from my toolbox for parsing lists and strings. the (getenv "ACAD") function is the one you are looking for.

Peter

(defun AppendPath (strPath / lstPath)
 (setq lstPath (csvstringtolist (getenv "ACAD") ";"))
 (while (member "" lstPath)
  (setq lstPath (vl-remove "" lstPath))
 )
 (setq lstPath (append lstPath (list strPath))
       lstPath (append lstPath (list ""))
       strPath (listtocsvstring lstPath ";")
 )
 (setenv "ACAD" strPath)
)

(defun CSVStringToList  (strText strChar / intPosition lstStrings)
 (while (setq intPosition (vl-string-search strChar strText 0))
  (setq lstStrings  (cons (substr strText 1 intPosition) lstStrings)
        strText     (substr strText (+ intPosition 1 (strlen strChar)))
  )
 )
 (if lstStrings
  (reverse (cons strText lstStrings))
  (list strText)
 )
)

(defun ListToCSVString (lstSublist strChar / strText strText2)
 (setq strText (nth 0 lstSubList))
 (if (= (type strText) 'INT) (setq strText (itoa strText)))
 (if (= (type strText) 'REAL)(setq strText (rtos strText 2)))
 (if (cdr lstSubList)
  (if (= (type (cdr lstSublist)) 'LIST)
   (foreach strText2 (cdr lstSubList)
    (if (= (type strText2) 'INT) (setq strText2 (itoa strText2)))
    (if (= (type strText2) 'REAL)(setq strText2 (rtos strText2 2)))
    (setq strText (strcat strText strChar strText2))
   )
   (progn
    (setq strText2 (cdr lstSubList))
    (if (= (type strText2) 'INT) (setq strText2 (itoa strText2)))
    (if (= (type strText2) 'REAL)(setq strText2 (rtos strText2 2)))
     (setq strText (strcat strText strChar strText2))
   )
  )
 )
)