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.

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.

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

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

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

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

Dobrý den,
zpravidla to nějakou logiku má - čidla jsou podle adresy navlečena na lince za sebou jako korálky na šňůře.

VB

Seiner napsal(a): Ač se to zdá nepochopitelné, tak to asi jako atributy nemá. Píše jasně o řádkovém textu. Stejně nevím, jakým algoritmem by se měly ty texty přenášet. Kdyby to byly atributy, tak je vyexportuje a co dál? Jak je dostane na správná "cílová místa"?    Buď  to má nějakou logiku a je možné ji použít, nebo je algoritmus těžko uchopitelný (třeba stejný text na druhém konci drátu - nejsem elektrikář) a pak opravdu zbývá zobací systém. A do budoucna přemýšlet, jak takové hrůze zabránit. (Atributy, Excel, databáze ???)    Na zobání by se dal snad navržený kód použít. Ještě by se to dalo celé dát do cyklu, aby se ušetřil 1 Enter.

Ač se to zdá nepochopitelné, tak to asi jako atributy nemá. Píše jasně o řádkovém textu. Stejně nevím, jakým algoritmem by se měly ty texty přenášet.
Kdyby to byly atributy, tak je vyexportuje a co dál? Jak je dostane na správná "cílová místa"?
   Buď  to má nějakou logiku a je možné ji použít, nebo je algoritmus těžko uchopitelný (třeba stejný text na druhém konci drátu - nejsem elektrikář) a pak opravdu zbývá zobací systém. A do budoucna přemýšlet, jak takové hrůze zabránit. (Atributy, Excel, databáze ???)
   Na zobání by se dal snad navržený kód použít. Ještě by se to dalo celé dát do cyklu, aby se ušetřil 1 Enter.

No jestli tazateli stačí postup "Příkaz - |:Click - Click - Enter :|" , pak snad:

(defun C:prepistext(/ PRVNI DRUHY TXT USPECH)
(setq uspech 0)
(while (= uspech 0)
(prompt "\n Vyber kopírovaný text  ")
(command "_SELECT" "_SINGLE" pause)
 (setq prvni(ssname(setq v(ssget "P"))0))
(if (= "TEXT" (cdr(assoc 0(entget prvni))))(setq uspech 1))
)
(setq TXT (cdr(assoc 1(entget prvni))))

(setq uspech 0)
(while (= uspech 0)
(prompt "\n Vyber přepisovaný text  ")
(command "_SELECT" "_SINGLE" pause)
 (setq druhy(ssname(setq v(ssget "P"))0))
(if (= "TEXT" (cdr(assoc 0(entget druhy))))(setq uspech 1))
)

(entmod  (subst (cons '1 TXT)(assoc '1 (entget Druhy))(entget druhy)))
)

Ale dělat 4000krát bych to stejně nechtěl... Pro lepší radu ale nemám dost informací.