---

Hallo zusammen, ich habe folgendes Problem und das wurde schon so oft diskutiert jedoch immer Lösung "\" zu "\\" was mir leider nicht weiter hilft.
Ich lese mittels Lisp den aktuellen Installationspfad meiner Applikation aus. Dieser Pfad muss mittels Lisp in die Registry geschrieben werden.
Alles kein Problem, bis auf dieses: Der Pfad muss z.B. zwingend so geschrieben werden: C:/ryfcad nicht so wie ich auslese C:\ryfcad

Grund: der Pfad wird in die Variable "ORIGAPPDIR" (Registry Eintrag) übergeben, die ich in meiner Menüdatei weiter verwende.

z.B.
(command "_-insert" (strcat(getenv "ORIGAPPDIR") "/Block/Kanalisation/Bankett_60-10_B45l") pause "" "" pause "_move" "_last" "" pause pause)

Also direkte Pfadangabe zur Blockdatei ohne den Pfad "fest zu verdrahten".

Und hier kommt die Eigenschaft des Backslash innerhalb "ORIGAPPDIR" bei Verwendung in der Menüdatei zum tragen: AutoCAD wartet auf eine Eingabe, statt den Pfad korrekt auszulesen.
Ein manueller Registry-Eintrag mit Backslash funktioniert. Wie kriege ich das nun mit Lisp hin? Habe diverse Codes getestet mit Ergebnis (<_

z.B. string-replace (Forumsbeitrag)

Aufruf in der Lispdatei:
(string-replace <ausgelesener Pfad> "\" "/")

Funktion:
( defun string-replace ( str1 sub1 sub2 )
    ( setq str1 ( string str1 ) )
    ( setq str2 "/" )
    ( setq sub1 ( string sub1 ) )
    ( setq sub2 ( string sub2 ) )
    ( setq index1 0 )
   
    ( loop
        ( if
            ( string-equal str1 sub1 :start1 index1 :end1 ( + index1 ( length sub1 ) ) :start2 0 )
;        then
            (
                ( setq str2 ( concatenate 'string str2 sub2 ) )
                ( setq index1 ( + index1 ( length sub1 ) ) )
            )
;        else
            (
                ( setq str2 ( concatenate 'string str2 ( char str1 index1 ) ) )
                ( incf index1 )
            )
        )
        ( when ( > index1 ( length str1 ) ) ( return str2 ) )
    )
)

Was mache ich falsch?

------------------
Auch für LT gibt es Lösungen

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

---

Hallo ja du bist falsch sowas wie Loop gibt es bei Acad List in andere Form darum geht es nicht daher teste das mal.

Code:

---

(vl-list->string
  (mapcar
    '(lambda (x)
       (cond
((= x 47) 92)
((= x 92) 47)
(t x)
       )
     )
    (vl-string->list "Hier/Meinen/Pfad");Geht in beide Richtungen "\" "/"
  )
)

---

------------------
Gruß Wolfgang 

Alias: Rabbit007 und Wolli1

[Diese Nachricht wurde von Meldin am 11. Jun. 2016 editiert.]

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

---

Danke viel mal! Läuft perfekt! So einfach, habe viel zu weit gesucht.

------------------
Auch für LT gibt es Lösungen

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

---

es gibt auch noch die Funktion vl-string-translate

z.B. (vl-string-translate"\\" "/"(getvar"dwgprefix"))

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

Klar, geht auch. Wenn man die Funktion kennen würde. Vielen Dank!

------------------
Auch für LT gibt es Lösungen, aber Lisp erleichtert das Leben ungemein

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