機能しない検索

[Angelo2449]

皆さんこんにちは。

私はこの単純なコードに問題があります:

 (defun c:ps (/ str txt1 ed1 pos1 pos2 ang1)

(setq の str nil)

(ただし、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 txt1)
(princ "\n")

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

(プリン「\npos1 xxxxxxx」)
(プラインpos1)
(princ "\n")

;;defun

"°" 文字は txt1 文字列 (10:00 am 8.25° 129.88°) で見つかりません。変数の代わりに文字列を差し込むと、pos1 は正しい値13、そうでなければ nil を仮定します。

お問い合わせ

 

[GP.]

"°" ではなく (chr 176) で試みる

 

[Angelo2449]

すでに完了しました。

 

[GP.]

問題を回避しようとする
(vl-position 176 (vl-string->list txt1)))

 

[Angelo2449]

ありがとうございます。
次の "°" を求めるコマンドは、どのように書きますか?

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

最初の行は、第二行は私にエラーを与えます。

お問い合わせ

 

[rpor66]

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