---

Guten Morgen

kleine Frage:
Wie kann ich einfach bei anderen benutzer (ca 50 Benutzer) ihre support file serach path ergänzen.

Gruss

------------------
Moni

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

z.b. indem du ihnen

Code:

---

(defun DT:PUT-SUPPORT-PFAD(PFAD  / SUPPORT POS OFFSET LISTE)
  (setq SUPPORT(getenv "ACAD"))
  (while (setq POS (vl-string-search ";" SUPPORT))     
    (setq LISTE  (cons (substr SUPPORT 1 POS) LISTE)
          SUPPORT  (substr SUPPORT (+ POS 2)) 
    )
  )
  (if(and(=(type PFAD) 'STR)
(setq PFAD(vl-string-translate "/" "\\" PFAD))
(setq PFAD(vl-string-right-trim "\\" PFAD))
        (vl-file-directory-p PFAD)
    )   
    (progn                 
      (if (not(member (strcase PFAD)(setq Liste(mapcar 'strcase (reverse LISTE)))))
        (progn
          (setenv "ACAD"
            (apply 'strcat (mapcar '(lambda(x) (strcat X ";")) (cons PFAD LISTE)))   
          )       
          (setq LISTE (cons PFAD LISTE))
        )
      ) 
    )
  )
  LISTE
)
(DT:PUT-SUPPORT-PFAD"C:\\WINDOWS")                           

---

als *.lsp abspeicherst und bei den Usern diese lsp vom Explorer in die Zeichnung ziehen läßt

"C:\\WINDOWS" ist natürlich nur ein Beispiel ...

------------------
       - 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

---

Danke Thomas

Super Tipp, 
Da ich mich nicht so gut mit LSP auskenne eine kleine bescheidene Frage:   wie müsste die LSP den aussehen wenn ich mehrere Support Path ergänzen möchte. 

Wenn ich das LSp richtig iterpretiert habe löscht es keine bestehenden Path sonder es fügt nur support path ein oder?

Gruss

------------------
Moni

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Es werden keine Pfade gelöscht und auch nix doppelt eingetragen.
Bei mehreren Pfaden ersetzt du

(DT:PUT-SUPPORT-PFAD"C:\\WINDOWS")                           

durch z.B.

(foreach PFAD '("C:\\WINDOWS" "C:\\Beispiel" "D:\\Fonts\\Spezial")
  (DT:PUT-SUPPORT-PFAD PFAD)
)

alles klar?

------------------
  - 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

---

Alles Klar

und funktioniert Super.     
Besten Dank Thomas

Gruss

------------------
Moni

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas

Doch noch eine kleine Frage
Ich kann doch sicher in einer LSP eine LSP laden oder?
könntest du mir sagen wie der code aussehen müsste um das zu erreichen

Gruss

------------------
Moni

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

zur Selbsthilfe:
Vlisp eingeben .. Lispeditor öffnet sich ... F1.. Autolisphilfe ..Kapitel Autolisp-Reference.. L-Fuctions .. load

also für dich dann die Zeile
(load "meine.lsp")
in deiner *.lsp

------------------
  - 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

---

Danke Thomas

Funkt tipp top, 
Sorry für meine Frage Habe einfach zu weit gesucht.

Gruss

------------------
Moni

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas

Du hast mir mal ein Super LSP gegeben mit dem einfach neue Support Pfads hinzufügen kann.

Kennst du auch eine einfache methode um schnell
diverse file location zu ändern
(wie zum Beispiel vom Template, Plot Style usw.).
So das mann dies nicht bei jedem user umstellen muss

Gruss

------------------
Moni

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kenn ich, hab ich aber kein Lisp für, sorry ...

Wie wäre es statt dessen :
- mit einheitlichen Installationen zu arbeiten
- verschiedene Nutzerprofile anzulegen
..?

Ansonsten kann man einige Pfade mit getenv / setenv auslesen bzw. setzen. Eine entsprechende Liste müßte auf www.afralisp.net  zu finden sein.
Eine andere(umfassendere) Möglichkeit bietet activX und das Filepreferences-object.

Mod-Hinweis: Neues Thema->Neuer Thread!
------------------
          - 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