---

Hallo,

ist es möglich über Lisp Pfade zu appload/Inhalt hinzufügen, hab jetzt auf die Schnelle nichts in der Hilfe gefunden ! Dann hab ich noch eine andere sache, Supportpfade gehen ja in der Art:

(setenv "ACAD" (strcat (getenv "ACAD" ) ";" "D:\\MY-PROFIL"))

sieht dann so aus:

(D:\\Pfad1;D:\\Pfad2;D:\\Pfad3;D:\\Pfad4;D:\\Pfad5;D:\\Pfad6

Ist soweit ganz gut, aber wie kann ich den Supportpfad dann wieder entfernen ? Das ist ja keine normale Liste mehr, gibt es einen Befehl wie VL-REMOVE ?

Gruß, Jürgen

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

---

Hallo Juergen,

warum ist das dann keine "normale" Liste mehr ? Richtig - es war ja ein String und bleibt es auch..
Du mußt also einfach einen neuen Wert angeben (wie beim hinzufügen ja auch..)
(setenv "ACAD" "neuerString")

mit String-handling Funktionen wie zB vl-string-position und Subst usw kannst
du deinen Neuen Wert "zusammenstückeln".

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

---

@cadffm die korrekte Funktion für Strings heißtsubstr! .. und strcat hättest du auch noch erwähnen können ..

Es sollte dann so etwas bei rauskommen:

Code:

---

(defun DT :DELPATH(PATH / ACAD POS)
(setq ACAD(strcase(getenv "ACAD")))
(setq PATH(strcase PATH))
(cond
((setq POS (vl-string-search (strcat ";" PATH) ACAD))
(Setq ACAD(strcat (substr ACAD 1 POS)(substr ACAD (+ POS (+(strlen PATH)2)))))
)
((setq POS (vl-string-search (strcat PATH ";") ACAD))
(Setq ACAD(strcat (substr ACAD 1 POS)(substr ACAD (+ POS (+(strlen PATH)2)))))
)
((setq POS (vl-string-search PATH ACAD))
(Setq ACAD(strcat (substr ACAD 1 POS)(substr ACAD (+ POS (1+(strlen PATH))))))
)
)
(setenv "ACAD" ACAD)
)

---

Aufruf z.B. (DT :DELPATH "D:\\MDT2005\\ACADM\\MIGRATION")

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 17. Mrz. 2005 editiert.]

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

---

Hallo Cadmium, CADffm,

Danke für die sehr ausführlichen Antworten, vor Allem das vl-string-search gefällt mir, genau das was mir gefehlt hat !

Aber eine Frage bleibt noch unbeantwortet, ist es möglich über Lisp Pfade zu appload/Inhalt hinzuzufügen ??

Weiß das jemand ?

Gruß, Jürgen

[Diese Nachricht wurde von Juergen55 am 17. Mrz. 2005 editiert.]

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

---

schon mal in der ACAD-Hilfe nach s::startup gesucht ?

Ansonsten helfen vielleicht
(setq KEY (strcat "HKEY_CURRENT_USER\\"
                  (vlax-product-key)
                  "\\PROFILES\\"
                  (vla-get-ActiveProfile
                    (vla-get-PROFILES
                      (vla-get-preferences
                        (vlax-get-acad-object)
                      )
                    )
                  )
                  "\\Dialogs\\Appload\\Startup"
              )
)

und vl-registry-write weiter, dann stehts beim nächsten Acadstart drin
------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 17. Mrz. 2005 editiert.]

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