---

Hallo zusammen,
ich möchte ein Script erstellen (in AutoCaD 2004) welches
mir einen Schriftstil durch einen anderen ersetzt.
Leider hab ich noch nie ein Script erstellt,
hat vielleicht irgend jemand eine Idee wies geht.
Vielen Dank vorab

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

---

Fontwechsel.txt

Du benötigst die Information , welche Textstile nutzen die Schriftart"X", ohne diese Information geht garnichts,
ansonsten (wenn bekannt) dann einfach die angehängte Datei als Beispiel nehmen und mit SCRIPT aufrufen..

[Datei vorher in *.SCR umbenennen !]
(habe es englisch verfasst, MUß ABER NICHT - kannst ganz normal deutsche Befehl/Optionen nutzen bei Scripten..)

Oder möchtest du Texten einen anderen Stil zuweisen !? - bin nun doch etwas verwirrt (sorry)
wichtig ist beim vorhaben zu sagen ob man den TEXTSTIL bearbeiten will oder ein OBJEKT.

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

---

Screenshot-1.jpg Screenshot-2.jpg

ok, ich habe mich wirklich undeutlich ausgedrückt,
konkret möchte ich
den Stil: blockfont Schrift: System:simplex.shx
in
Stil: Standart  Schrit: ISOCP
umwandeln.
siehe auch Screenshot
vielen Dank im vorraus für Deine Mühe

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

---

Zudem möchtest du (anscheinend) keine TEXTobjekte ändern, sondern MTEXTobjekte.

Leider kann man sowas nicht mit einem solchen Script realisieren (oder? denkdenk)

Hier im Forum, oder auch im LISPforum hast du aber evtl Glück
dennoch eine Lösung zu finden.

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

---

Hi,
wenn es Dir darum geht vorhandenen Mtext-Objekten einen anderen Schriftstil zuzuweisen, benötigst Du kein Script.
Markiere Dir alle MTexte die den neuen Stil bekommen sollen (Auswahlsatz eventuell über Filter oder Schnellauswahl...), rufe via STRG + 1 das Eigenschaftenfenster auf und such Dir dort den Eintrag "Stil". Klicke auf das Feld dahinter und wähle aus dem Listenfeld den neuen Stil.

Sollte es sich bei Deinen Texten aber um einzeln zugewiesenen Stilüberschreibungen im MText handeln, wird sich nix verändern. Dann bist Du in den A* gekniffen.

------------------
Ciao,
Marc

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

---

Hi,
hab' mal geschaut wie so 'ne Textstilüberschreibung denn so festgehalten wird:
Im AutoCAD erscheint's als:
"Test-Man"
wobei das "st-M" mit 'nem anderen Font formatiert ist.

Guck ich mir an wie AutoCAD das intern speichert, sieht das so aus:
"Te{\\fSwis721 Blk BT|b0|i0|c0|p34;st-M}an"

Hier 'ne Testfunktion für Dich:

Code:

---

(defun C:REALTEXT (/ obj)
  (vl-load-com)
  (if (not (setq OBJ (car (entsel "\nMtext-Objekt wählen:"))))
    (princ "\nNichts gewählt! Funktionsende.")
    (if (not (equal (vlax-get-property
                      (setq OBJ (vlax-ename->vla-object OBJ))
                      'OBJECTNAME
                    )
                    "AcDbMText"
             )
        )
      (princ "\nObjekt war kein MText! Funktionsende.")
      (alert
        (strcat "\"Echter\" Textinhalt für gepicktes MText Objekt:\n\""
                (vlax-get-property OBJ 'TEXTSTRING)
                "\""
        )
      )

    )
  )
  (princ)
)
(C:REALTEXT)

---

...

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 12. Jan. 2005 editiert.]

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

---

Hi Marc,
danke trotzdem für Deine Mühe, ich dachte halt ich kann
das mit nem Knopfdruck die verschiedenen Texte
auf einmal ändern.
Gruß vespe

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

---

danke trotzdem für den denkedenk

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

---

Sorry ich trau michs ja fast nicht zu sagen,
aber ich hab keine Ahnung wie ich das testen soll.
Mit diesen lisp Geschichten hab ich mich noch gar nicht
beschäftigt.
Gruß vespe

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

---

Hi Vespe,
zu:

Zitat:

---

Original erstellt von vespe:
Hi Marc,
danke trotzdem für Deine Mühe, ich dachte halt ich kann
das mit nem Knopfdruck die verschiedenen Texte
auf einmal ändern.
Gruß vespe

---

Hä? Wieso kannst Du doch via Eigenschaften-Dialog machen??? Ist doch nur ein Knopfdruck... Die Auswahl müßtest Du auch bei 'nem Lisp-Tool treffen.

------------------
Ciao,
Marc

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

---

Hi Vespe,

Zitat:

---

Original erstellt von vespe:
Sorry ich trau michs ja fast nicht zu sagen,
aber ich hab keine Ahnung wie ich das testen soll.
Mit diesen lisp Geschichten hab ich mich noch gar nicht
beschäftigt.
Gruß vespe

---

trau Dich ruhig.
Für solche Fälle gibt es ja die FAQ's...
Guckst Du hier: http://ww3.cad.de/foren/ubb/Forum54/HTML/007058.shtml

------------------
Ciao,
Marc

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