Zobrazit plnou verzi příspěvku: hromadné přepsání textu

maxu
23.08.2005, 10:13
Nemáte tip na hromadné přepsání textu(např.číselné hodnoty o určitou další hodnotu 0.38+0,1),ale v řadu stovek hodnot.
Diky M.

Keberdle Václav
23.08.2005, 10:20
Pomocí najít a nahradit..
Přes regulérní výrazy avšak Nápověda mlčí .(


Vladimír Michl
23.08.2005, 10:26
tu další hodnotu myslíte jako numerický součet? na to by byl potřeba nějaký LISP nebo VBA script
pokud jde jen o přidání nebo úpravu textu (bez výpočtů), pomůže vám vyhledání/nahrazení využívající regulární výrazy (omezeně ve verzi 2006 nebo pomocí naší utility srxText)

Honza
23.08.2005, 11:17
Občas používám tento jednoducký lisp:
;; pricte k vybranemu cislu konstantu konst
;; a presune cislo do hladiny "0-znema"
;;JGa4/10/2002

(defun c:prc ()
   (setq konst 0.06)
   (setq lay "0-zmena")
  (setq ENAME (entget (car (entsel))))
   (setq cislo (cdr (assoc 1 ename))) ;;ziska text z vybraneho textu
   (setq cislo (atof cislo))    ;;prevede text na cislo
   (setq cislo (+ cislo konst)) ;; pricte konstantu
   (setq cislo (rtos cislo 2))   ;;prevede cislo na text
;   (SETQ  CISLO (STRCAT "%%U" CISLO) )   ; PODTRHNE TEXT
   (setq ENAME (subst (cons 1 cislo)(assoc 1 ENAME) ENAME)) ;;nahradi stavajici text novym cislem
;   (setq ENAME (subst (cons 8 lay)(assoc 8 ENAME) ENAME)) ;;zmeni vrstvu
        (print
cislo)       &nbs p;         &nbs p;
;;zobrazi vysledne cislo na obrazovce
   (entmod
ENAME)       &nb sp;         &nb sp;
;;zregeneruje entitu ve vykrese
  (princ)
); END

je třeba upravovat , ale funguje
JGa


PepaR
24.08.2005, 11:44
nasel jsme mozná takový oběcnější nástroj pro nahrazení textu ve více DWG souborech.... Ovšem matematické operace neumí :)
 
2005-08-24_114423_Replace_Text_In_Dwg.zip