| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Pfade zu appload/Inhalt über Lisp hinzufügen ? (1848 mal gelesen)
|
Juergen55 Mitglied Elektrotechniker
Beiträge: 282 Registriert: 08.03.2001 Microstation V8i, TriCAD, AutoCAD2014, EPlan P8 2.2, Core I5, 16GB Arbeitsspeicher
|
erstellt am: 16. Mrz. 2005 22:10 <-- editieren / zitieren --> Unities abgeben:
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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 17. Mrz. 2005 07:35 <-- editieren / zitieren --> Unities abgeben: Nur für Juergen55
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 17. Mrz. 2005 07:52 <-- editieren / zitieren --> Unities abgeben: Nur für Juergen55
@cadffm die korrekte Funktion für Strings heißt substr! .. 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 |
Juergen55 Mitglied Elektrotechniker
Beiträge: 282 Registriert: 08.03.2001
|
erstellt am: 17. Mrz. 2005 11:39 <-- editieren / zitieren --> Unities abgeben:
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 |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 17. Mrz. 2005 12:34 <-- editieren / zitieren --> Unities abgeben: Nur für Juergen55
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 |