(defun DT:CHANGE-SUPPORT-PFAD(OLDLW NEWLW / SUPPORT POS OFFSET LISTE)
(if(and(=(type OLDLW) 'STR)(=(strlen OLDLW)1)
(=(type NEWLW) 'STR)(=(strlen NEWLW)1)
)
(progn
(setq SUPPORT(getenv "ACAD"))
(while (setq POS (vl-string-search ";" SUPPORT))
(setq LISTE (cons (substr SUPPORT 1 POS) LISTE)
SUPPORT (substr SUPPORT (+ POS 2))
)
)
(setq LISTE
(mapcar
'(lambda(X)
(if(and(=(type X) 'STR)
(setq X(vl-string-translate "/" "\\" X))
(setq X(vl-string-right-trim "\\" X))
(=(strcase(substr X 1 1))(strcase OLDLW))
(setq PFAD(strcat(strcase NEWLW) (substr X 2)))
(vl-file-directory-p PFAD)
)
PFAD
X
)
)
LISTE
)
)
(setenv "ACAD" (apply 'strcat (mapcar '(lambda(x) (strcat X ";")) LISTE)))
)
)
LISTE
)
Aufruf dann
(DT:CHANGE-SUPPORT-PFAD "S" "K")
(ungetestet .. hoffe es läuft)
------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP