Suche funktioniert nicht

[Angelo2449]

Hallo alle,

Ich habe ein Problem mit diesem einfachen Code:

 (Defun c:ps (/Str txt1 ed1 pos1 pos2 ang1)

(setq str nil)

(while (= Str nil)
(setq str (nentsel "\nseleziona la stringa "))
;

(princ "\nstr xxxxxxx ")
(princ str)
(princ "\n")

(setq ed1 (entget (car str)))
(setq txt1 (cdr (assoc 1 ed1))) ;; 10:00:00 8.25° 129.88°

(princ "\ntxt1 xxxxxxx ")
(princ txt)
(princ "\n")

(setq pos1 (vl-string-search "°" txt1 1))

(princ "\npos1 xxxxxxx ")
(princ pos1)
(princ "\n")

; defun

das "°"-Zeichen wird nicht in der txt1-String (10:00 am 8.25° 129.88°) gefunden, wenn ich den String anstelle der Variable einlege, nimmt pos1 den richtigen Wert 13, ansonsten nil" an

Danke.

 

[GP.]

für mich funktioniert es, versuchen mit (chr 176) statt "°"

 

[Angelo2449]

schon getan, das gleiche Ergebnis!

 

[GP.]

versuchen, das Problem zu umgehen
(vl-position 176 (vl-string->list txt1)

 

[Angelo2449]

Danke, also funktioniert es!
Wie würden Sie schreiben, derselbe Befehl, der die nächste "°" sucht?

(setq pos1 (vl-position 176 (vl-string->list txt1))
(setq pos2 (vl-position 176 (vl-string->list txt1 (pos1 + 1))))

Die erste Zeile funktioniert, die zweite gibt mir Fehler.

Danke.

 

[rpor66]

(setq pos2 (vl-position 176 (vl-string->list txt1 (+ pos1 1)))