Zobrazit plnou verzi příspěvku: hromadné přepsání textu
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)
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
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