---

Hallo zusammen,

Ich habe folgendes Problem:
Ich bekomme Zeichnungen, in denen Symbole mittels Fonts dargestellt werden (z.B. Buchstabe "A" ist eigentlich der Pfeil einer Bemaßung).

Ich bräuchte jetzt ein Tool oder Script, welches mir alle Buchstaben "A" in den Block Namens "A" ersetzt, mit gleichen Einfügepunkt und Drehwinkel.

Ich hab das schon probiert:
http://ww3.cad.de/foren/ubb/Forum145/HTML/000151.shtml

Funktioniert aber nicht (was mus ich in der Eingabeaufforderung eingeben? Hab schon einiges probiert).

Vielen Dank im voraus.

Gruß Markus

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

---

eigentlich ist es ganz gut kommentiert, hier mal geändert auf:
TEXTE= "1" und "2"
werden jeweils durch Blockreferenzen "1" & "2" ersetzt.

Code:

---

(mapcar '(lambda (NAME / as)
          (setq as (ssget "_X"
                          (list
                            '(-4 . "<and")
                            '(0 . "TEXT")
                            (cons 1 NAME)
                            '(-4 . "and>")
                            )
                          )
                )
                (mapcar '(lambda (E)
                            (command "_.INSERT"
                                    (strcat NAME);Hier Blocknamen in Abhängigkeit des Textwertes festlegen
                                    (cdr(assoc 10 (entget E)))
                                    ""
                                    ""
                                    ""
                                    )
                            (entdel E)
                            )
                        (if as (bau_elemli as))
                        )
          )
        (list "1" "2");Hier die Liste der Textwerte eintragen.
        )
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli(cons (ssname asatz n) elemli)
  n (1+ n))
    )
  elemli
  )

---

[Diese Nachricht wurde von cadffm am 10. Jan. 2007 editiert.]

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

---

Auweh, das ging ja FIX.

Funktioniert soweit, jedoch wird der Drehwinkel nicht mit übernommen, wäre das möglich?

Gruß
Markus

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

---

eigentlich ist das ja ein Forum zur selbsthilfe beim erlernen von LISP, aber naja..

(mapcar '(lambda (NAME / as)
          (setq as (ssget "_X"
                          (list
                            '(-4 . "<and")
                            '(0 . "TEXT")
                            (cons 1 NAME)
                            '(-4 . "and>")
                            )
                          )
                )
                (mapcar '(lambda (E)
                            (command "_.INSERT"
                                    (strcat NAME);Hier Blocknamen in Abhängigkeit des Textwertes festlegen
                                    (cdr(assoc 10 (entget E)))
                                    ""
                                    ""
                                    (* (cdr(assoc 50 (entget E))) (/ 180.0 pi))
                                    )
                            (entdel E)
                            )
                        (if as (bau_elemli as))
                        )
          )
        (list "1" "2");Hier die Liste der Textwerte eintragen.
        )
(defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli(cons (ssname asatz n) elemli)
  n (1+ n))
    )
  elemli
  )

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

---

Hat funktioniert,
vielen Dank nochmal.

Ein kleiner Tip von mir noch:
Die Ausrichtung des Textes auf "Links" einstellen (Standard in ACAD), sonst stimmt der einfügepunkt nicht mehr.

Gruß
Markus

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