možná použijete tohle :)

(defun C:KOPIRUJTEXT (/ sel text blky jb te s_jba at atr) ;TE
  (while (not sel)
    (princ "\n*** Vyberte kopírovaný text: ")
    (setq sel (entget (car (entsel))))
    (if    (and (/= (cdr (assoc 0 sel)) "TEXT")
         (/= (cdr (assoc 0 sel)) "MTEXT")
         (/= (cdr (assoc 0 sel)) "ATTDEF")
    )
      (progn
    (prompt
      "\n*** Vybraná entita není text, mtext ani atribut."
    )
    (setq sel nil)
      )
      sel
    )
  )
  (if (or (= (cdr (assoc 0 sel)) "TEXT")
      (= (cdr (assoc 0 sel)) "MTEXT")
      )
    (setq text (cdr (assoc 1 sel)))
    (setq text (cdr (assoc 2 sel)))
  )
;;;Výběr atributů
  (princ
    "\n*** Vyberte položky pro nakopírování nového textu: "
  )
  (setq    blky (ssget
           '((-4 . "<OR")
         (0 . "TEXT")
         (0 . "MTEXT")
         (0 . "ATTDEF")
         (-4 . "OR>")
        )
         )
  )
  (setq nt 0)
  (repeat (sslength blky)
    (setq jb (ssname blky nt)
      te (cdr (assoc '0 (entget jb)))
      nt (1+ nt)
    )
    (if    (or (= "TEXT" te) (= "MTEXT" te) (= "ATTDEF" te))
      (setq s_jba (append s_jba (list (list jb jb)))
          ;;seznam entit
      )
    )
  )
  (princ (strcat "*** Nalezeno "
         (itoa (length s_jba))
         " přepisovatelných položek."
     )
  )
;;;Číslování
  (setq nt 0)
  (while (< nt (length s_jba))
    (setq atr (cdr (assoc '0 (entget (cadr (nth nt s_jba))))))
    (if    (or (= atr "TEXT") (= atr "MTEXT"))
      (setq at
         (subst
           (cons 1 text)
           (assoc '1 (entget (cadr (nth nt s_jba))))
           (entget (cadr (nth nt s_jba)))
         )
      )
      (setq at
         (subst
           (cons 2 text)
           (assoc '2 (entget (cadr (nth nt s_jba))))
           (entget (cadr (nth nt s_jba)))
         )
      )
    )
    (entmod at)
    (entupd (car (nth nt s_jba)))
    (setq nt (1+ nt))
  )
  (princ)
)
;;;Konec Okopírování textu

ano, užitečná utilitka - dovolil jsem si ještě nepatrně upravit aby zdrojový text šlo vybrat i z xrefu nebo bloku, ke stažení na:
http://www.cadforum.cz/cadforum/default.asp?tab=4&file=K opirujText

Dá - viz nyní aktualizovaná verze na stránce Download (navíc ještě vypíše "přečtený" text)

Možno som uplne nepochopil čo pán genesis potrebuje, ale nepomohlo by jednoduché "najdi" a "nahraď" ?

E=Vladimír Michl]ano, užitečná utilitka - dovolil jsem si ještě nepatrně upravit aby zdrojový text šlo vybrat i z xrefu nebo bloku, ke stažení na:
http://www.cadforum.cz/cadforum/default.asp?tab=4&file=K opirujText[/QUOTE]

Velice děkuji, to je přesně to co jsem potřeboval. S touto utilitou konkrétně v mém případě ušetřím cca 5 dní. To je přesně ono.

Ostatním velice děkuji za pomoc. Vím, čím je lépe výkres tvořen, tím jsou s ním později menší problémy. Mnoho rad jsem si vyslechnul o atributech atd. atd. atd. V praxi však při průběhu stavby se (troufám si tvrdit) z 99% setkáte s výkresy, které vytvořil někdo jiný a tak bohužel nějaké chystání výkresu zde není možné. To je tvrdá realita. Kdo skutečně profesionálně projektuje, musí se potýkat s každodeními problémy ohledně editace výkresů. Mimochodem jednořádkový text je opravdu zcela jednoduchá záležitost, ale jeho kouzlo spočívá v opravdové spolehlivosti při transportech do jiných SW, na druhá PC s jiným prostředím atd. Ještě jednou mnohokráte děkuji za utilitku.

musil napsal(a): Jen tak mimochodem zkoušel někdo vypsat všechny texty pomocí "_list" a následně upravit v textové podobě. Potom vrátit text zpět do výkresu.

Něco podobného jsem řešil, když jsem v mapě závodu potzřeboval hromadně převést cca 7500 výškových kót z výškového systému Jadran do B.p.v. Ještě, že mám MAP a tak pomocí dotazu jsem si vyexportoval vyfiltrované texty včetně vkládacího bodu X,Y. Načetl si výsledek do EXCELu, upravil hodnoty výškových kót a jednoduše jsem si vygeneroval SCR soubor, který mi texty zpět načetl do výkresu.