---

support_suchpfade.jpg

Kann man via Lisp Suchpfade laden ? Ich möchte gern, dass meine lokalen Suchpfade immer in der Rangliste ganz oben stehen und damit zuerst geladen werden.

------------------
Gruss Dirk

[Diese Nachricht wurde von cadplayer am 26. Apr. 2012 editiert.]

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

---

Hallo Dirk,
schau mal HIER

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

ein bißchen ausführlicher und in Ohne-ActiveX-Lisp

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

------------------
  - 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 habs gefunden:

Code:

---

(defun addSP (dir pos / tmp c lst)
  (setq tmp ""
c -1
)
  (if
    (not
      (member (strcase dir)
      (setq lst (mapcar 'strcase (parse (getenv "ACAD") ";")))
      )
      )
    (progn
      (if (not pos)
(setq tmp (strcat (getenv "ACAD") ";" dir))
(mapcar '(lambda (x)
  (setq tmp (if (= (setq c (1+ c)) pos)
      (strcat tmp ";" dir ";" x)
      (strcat tmp ";" x)
      )
)
  )
lst
)
)
      (setenv "ACAD" tmp)
      )
    )
  (princ)
  )

(defun parse (str delim / lst pos)
  (setq pos (vl-string-search delim str))
  (while pos
    (setq lst (cons (substr str 1 pos) lst)
  str (substr str (+ pos 2))
  pos (vl-string-search delim str)
  )
    )
  (if (> (strlen str) 0)
    (setq lst (cons str lst))
    )
  (reverse lst)
  )
(addSP "c:\\afralisp" 3); Beispiel

---

------------------
Gruss Dirk

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

---

Hab grad dein Eintrag gesehen cadmium, fragt deine routine nach den befindligen Supportwegen oder setzt sie auch neue?

------------------
Gruss Dirk

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

---

Zitat:

---

Original erstellt von cadplayer:
Hab grad dein Eintrag gesehen cadmium, fragt deine routine nach den befindligen Supportwegen oder setzt sie auch neue?

---

Sie fügt das im Paramter PFAD übergebene Verzeichnis - wenn noch nicht in den supportpfaden vorhanden - diesen hinzu und liefert alle danach vorhandenen Supportpfade zurück

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

---

Die Grossschreibung aller Pfade mit strcase ist eher Geschmackssache als tatsächlich notwendig, nicht wahr?

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Mir ist spontan kein Fall der Notwendigkeit bekannt.
Zum Vergleich von Einträgen ist jedoch alles klein oder alles GROSS notwendig und da ist es je nach Konstrukt oft einfacher direkt alles in Großschreibung zu wandeln und dann auch so zu setzen.
(Vergeich: Ist Pfadeintrag schon vorhanden ja/nein)

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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