---

hi freaks !

kennt jemand von euch eine kleine routine mit der ich texte in gleichnamige block konvertieren kann.

beispiel:

in einer zeichnung kommen die ziffern 1, 5 , 6, ... vor und nun möchte ich die ziffer 1 durch einen "dummey"-block 1, die ziffer 5 durch einen "dummey"-block 5, die ziffer 6 durch einen "dummey"-block 6,.... ersetzen.

warum das rad zweimal erfinden !

vielen dank im voraus.

gruß Jan :-)

------------------
jan :-)

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

---

Hallo Jan,

wahrscheinlich hast du jetzt länger auf'ne Antwort gewartet, als die Zeit die du zum Schreiben gebraucht hättest. 
Nachfolgende Zeilen tauschen dir den Text gegen die Dummy-Blöcke aus. Diese sollten natürlich schon existieren. Hat der Dummy-Block irgendwelche Attribute, dann solltest du nicht vergessen die Sysvar's so zu setzen, dass diese nicht abgefragt werden, oder eben die Werte der Attribute in der Command-Anweisung mit berücksichtigen.

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 "dummy-" NAME);Hier Blocknamen in Abhängigkeit des Textwertes festlegen
                                    (cdr(assoc 10 (entget E)))
                                    ""
                                    ""
                                    ""
                                    )
                            (entdel E)
                            )
                        (if as (bau_elemli as))
                        )
          )
        (list "6" "10");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
  )

---

Bei Fragen ...
Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

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