Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Pfade zu appload/Inhalt über Lisp hinzufügen ?

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Pfade zu appload/Inhalt über Lisp hinzufügen ? (1763 mal gelesen)
Juergen55
Mitglied
Elektrotechniker


Sehen Sie sich das Profil von Juergen55 an!   Senden Sie eine Private Message an Juergen55  Schreiben Sie einen Gästebucheintrag für Juergen55

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 17. Mrz. 2005 07:35    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Juergen55 10 Unities + Antwort hilfreich

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




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 17. Mrz. 2005 07:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Juergen55 10 Unities + Antwort hilfreich

@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

Juergen55
Mitglied
Elektrotechniker


Sehen Sie sich das Profil von Juergen55 an!   Senden Sie eine Private Message an Juergen55  Schreiben Sie einen Gästebucheintrag für Juergen55

Beiträge: 282
Registriert: 08.03.2001

erstellt am: 17. Mrz. 2005 11:39    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 17. Mrz. 2005 12:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Juergen55 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz