---

Hallo liebes Forum,
bisher war ich noch nicht hier im Forum, aber ein Kollege hat mir das hier mal "nahe gelegt".
Wir haben gestern versucht folgendes zu lösen: wir haben eine Zeichnung bekommen in dem viele Textstile definiert sind. Und alle haben ganz seltsame Fonts (cydan32, orino, comic sans, ...). Jetzt wollten wir den Font für alle Stile auf einen (arial) ändern.
Alle (>30) händisch zu ändern könnte man machen, aber kann man das auch schneller (am besten mit einem Klick).
Bei Texten würde ich alle markieren und das einfach über die Eigenschaften ändern, aber wie bei Stilen?
Hat da jemand einen Tip?

DANKE

Dieter Lombard

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

---

Ein kleines LISP : ??

(defun C:TEXTSTYLEUNI( / TST OBJEKDATEN)
  (while (setq TST (tblnext "STYLE" (null TST)))
    (setq TST(entget(tblobjname "STYLE" (cdr(assoc 2 TST)))))
    (setq OBJEKTDATEN (entget(tblobjname "STYLE" (cdr(assoc 2 TST)))'("*")))
    (setq OBJEKTDATEN (subst(cons 3 "ARIALUNI.TTF")(assoc 3 OBJEKTDATEN)OBJEKTDATEN))
    (entmod OBJEKTDATEN)
  ) 
)

Wie laden usw. --><<KLICK>>

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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