---

Hallo,

wahrscheinlich schon mal gefragt aber ich kann's nicht finden:

Wie kann ich Sonderzeichen ersetzen?

Ich muss in einer Zeichnung in allen Texten das Sternchen durch ein x ersetzen. Aber wenn ich ein Sternchen suchen lasse findet er ja alles, weil das Sternchen ja als Platzhalter fungiert. Genau wie das Fragezeichen.

Ich kenne das aus anderen Programmen mit vorgestelltem Backslash
\*
funktinoirt aber hier nicht. Wie kann ich das bewerkstelligen?

------------------
  Stephan
------------------

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

---

Hallo Stephan,
welche Platzhalter meinst du ?
Ansonsten im Suchen-Dialog mal auf Optionen klicken und alle Häkchen raus außer bei Text.

Gruß
Andreas

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

---

Also der FINDEN (_FIND) Befehl sucht mir bei Eingabe von * auch wirklich die * und nicht alle Texte. Schon probiert?

------------------
Ciao
J-SC
... geht's vielleicht doch?

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

---

Zwischenablage01.jpg

Da das Fragezeichen als Platzhalter für einen "beliebigen" Text steht findet er "alle" Texte und ersetzt diese durch ein x. Im beiliegenden Bild klicke ich auf "alles ersetzen" und habe nur noch x'e in der Zeichnung stehen :-(

Egal mit welchem Befehlt (SUCHEN/FIND).

------------------
  Stephan
------------------

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

---

Sorry - habe überlesen, dass Du mit 2006 arbeitest. In der 2004 war das kein Problem.
Was ist, wenn Du den Stern in "" packst?
Habe leider kein 2006 zum Ausprobieren.

------------------
Ciao
J-SC
... geht's vielleicht doch?

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

---

Zitat:

---

Original erstellt von j-sc:
  Sorry - habe überlesen, dass Du mit 2006 arbeitest. In der 2004 war das kein Problem.
Was ist, wenn Du den Stern in "" packst?
Habe leider kein 2006 zum Ausprobieren.

---

Dann findet er nichts :-(

------------------
  Stephan
------------------

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

---

Hallo Plotter, da gibts dieses schöne Lisp RETEXT, das ersetzt Dir einfachst die gewünschten Zeichen.

Syntax schon mal: Befehlszeile: (retext "*" "x")

;;;---------------------------------------------------------------
;;; ReText.lsp - Ändert gesuchten Teststring global.
;;; So geht's: (ReText "35" "42") ändert alle Vorkommen von "35"
;;; in "42". Auch wenn der gesuchte String in einem anderen steckt.
;;; ReText bearbeitet Text, MText, Attribute und Attributsdefinitionen
;;;
;;; Einschränkung: Durchsucht keine Blöcke.
;;;
;;;
;;; Teile des Programms stammen aus Reini Urbans STDLIB
;;;
;;; 1.0
;;; Juli, 2002
;;;
;;; CADchup@cad.de
;;;---------------------------------------------------------------
;;
;;
(defun ReText (fin repl / ss l n e as op x)
  (setq ss (ssget "X" (list ( cons -4 "<AND")(cons -4 "<OR")(cons 0 "TEXT")(cons 0 "MTEXT")(cons 0 "DIMENSION")(cons 0 "ATTRIB")(cons 0 "ATTDEF")(cons -4 "OR>")(cons 1 (strcat "*" fin "*"))(cons -4 "AND>"))))
  (if ss
    (progn
      (setq l 0)
      (setq n (sslength ss))
      (while (< l n)
(setq e (entget (ssname ss l)))
(setq as (assoc 1 e))
(setq op (cdr (assoc 1 e)))
(setq x (STD-STRCHG op fin repl))
(setq e (subst (cons 1 x) as e))
(entmod e)
(setq l (1+ l))
      ) ; while
      (princ (strcat "\n" (itoa (sslength ss)) " text strings modified."))
    ) ; progn
    (alert (strcat "Text " fin " not found"))
  ) ; if
  (princ)
)
;;;
;;; The following code is taken from Reini Urbans STDLIB.
;;;
;;;
;;; $Id: STDSTR.LSP 0.5004 2000/09/20 12:48:22 rurban Exp $-*-AutoLISP-*-
;;; Time-stamp: <2000-10-03 00:56:55 rurban>
;;; Copyright (c) 1998,99,2000 by Reini Urban
;;; Available for free at http://xarch.tu-graz.ac.at/autocad/stdlib/
;;;
;;; Permission to use, copy, modify and distribute this software and its
;;; documentation for any purpose is hereby granted without fee, provided
;;; 1) that the above copyright notice appear in all copies,
;;; 2) that the copyright notice, this permission notice and the pointer
;;;    where to download the source code for free appear in the
;;;    supporting documentation of source code distributions,
;;; 3) that the name of Reini Urban not be used in advertising or
;;;    publicity pertaining to distribution of the software and
;;; 4) that modifications without changing the defined function and
;;;    symbol names may not be published, distributed nor copied
;;; without specific, written prior permission.
;;;
;;; No Warranty
;;; Reini Urban makes no representations about the suitability of this
;;; software for any purpose, without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. It is provided
;;; "as is" without express or implied warranty.
;;; See the full Disclaimer for all detailed warranty exclusions.
;;; --------------------------------------------------------------------
;;; String function for the STDLIB
(defun STD-STRCHG (s old new / i ls lold)
  (if (= old "")
    (strcat new s)
    (progn
      (setq lold (strlen old)     ; length of substr to search
        ls (1+ (- (strlen s) lold)) ; max. position to search to
        i 1)
      (while (<= i ls)
        (if (= (substr s i lold) old)  ; found
          (setq s (strcat (if (> i 1)  (substr s 1 (1- i)) "")
                  new
  (if (<= i ls) (substr s (+ i lold)) ""))
        i (+ i (strlen new)))  ; next position to search
          (setq i (1+ i))
        )
      )
      s
)))
;;;
;;;
;;;

------------------
Schreibfehler mache nicht ich, sondern die Tastatur.
Beschwert euch also an der richtigen Stelle.

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

---

@Plotter:

Gehts oder gehts nicht...

------------------
Schreibfehler mache nicht ich, sondern die Tastatur.
Beschwert euch also an der richtigen Stelle.

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

---

Klappt gut!

Danke! So konnte ich meine Zeichnungen erst einmal fertig machen.

Falls doch noch einer 'ne Idee hat, das mit bei der suchen Funktion auszuklammern, dann her damit.

------------------
  Stephan
------------------

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

---

Ev. 30 Dollar (halbe Ingenieurstunde..) investieren und "Translate" von http://www.menziengineering.ch/ kaufen?

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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