Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Rund um AutoCAD
  Mtext

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Mtext (3107 mal gelesen)
Stefanie
Mitglied
Technische Zeichnerin

Sehen Sie sich das Profil von Stefanie an!   Senden Sie eine Private Message an Stefanie  Schreiben Sie einen Gästebucheintrag für Stefanie

Beiträge: 4
Registriert: 16.07.2002

erstellt am: 05. Jun. 2003 10:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

folgendes Problem: Mtext; Stil: Arial; Schriftname: Technic

Beispieltext: "Hallo, wie geht's!"
nur ist das Hallo manuell auf die Schrift: Times geändert worden.

Wie kann ich jetzt den kompletten Text auf die Schrift: Arial Unicode MS setzten ohne den Text zu editieren ???
Über Eigenschaften geht es leider nicht, da das Hallo in der falschen
Schrift bleibt.

Wäre für jeden Tip dankbar, da ich Mengen von Text zu ändern habe.

Stefanie

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 05. Jun. 2003 11:50    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

Das einzige was mir spontan einfällt :

ABER : Der Text bleibt kein Mtext sondern zerfällt in
einzeiligen Text ! - mußt du wissen ob es dir hilft...
Dumm dabei ist zudem: Der Text zerfällt PRO Stilunterschied.


und zwar: Mtext in Ursprung setzen mit "_explode"


Beispiel: abcDEFghi (wobei die Großbuchstaben einen anderen Stil symbolisieren)
wird zu : abc DEF ghi - also in 3 einzeilige Texte...

Ansonsten kenne ich keinerlei Möglichkeit außer die Texte händisch
zu ändern (Programmierung jetzt mal vernachlässigt beim nachdenken  )

CUSee you = Wir sehen uns Sebastian

------------------
Gruß Sebastian , Ffm
Der Feind des Guten ist das Bessere.

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 05. Jun. 2003 12:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

Hallo Stefanie, hallo Sebastian,

das mit 'nem Progrämmchen, war 'ne gute Idee.  
Hier isses:

Code:

(defun c:del_mtf (/ mt)
  (command "_.undo" "_G")
  (setq mt (f:select (list "MTEXT")))
  (if mt (del_mtf mt))
  (command "_.undo" "_END")
  (princ)
  )
(defun del_mtf (obj / schalter ntext text)
  (setq text (f:str-in-list (cdr(assoc 1 (setq objd(entget obj)))))
        schalter T
        ntext(apply 'strcat
                    (apply 'append
                           (mapcar '(lambda (Z / tmp)
                                      (if (and
                                            schalter
                                            (not (member Z (list "{" "\\" "}")))
                                            )
                                        (list Z)
                                        (If (member Z (list "}" ";"))
                                          (setq schalter T
                                                tmp nil)
                                          (setq schalter nil)
                                          )
                                        )
                                      )
                                   text
                                   )
                           )
                    )
        )
  (if ntext
    (entmod (subst (cons 1 ntext)(assoc 1 objd)objd))
    )
  )
(defun f:str-in-list (sil_str / sil_i sil_strli)
  (setq sil_i 0)
  (if (= 'STR (type sil_str))
    (reverse
      (while (< sil_i (strlen sil_str))
(setq sil_i (1+ sil_i)
      sil_strli (cons (substr sil_str sil_i 1) sil_strli)
      )
)
      )
    )
  )
(defun f:select (sel_objli  / sel_el tmp sel_el_etyp)
  (while (not sel_el)
    (setq tmp (entsel (strcat
"\nSelect "
(apply 'strcat (mapcar '(lambda (TXT)
  (strcat TXT "/ ")
  )
       sel_objli
       )
       )
)
      )
  )
    (if tmp
      (progn
(setq sel_el (car tmp)
      sel_el_etyp (cdr (assoc 0 (entget sel_el))))
(if (not (member sel_el_etyp sel_objli)
      )
  (setq sel_el nil)
  )
)
      (setq sel_el T)
      )
    );while
  (if (= (type sel_el) 'ENAME)
    sel_el
    (princ "\nKeine gültige Auswahl - Programmabbruch")
    )
  )


Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

[Diese Nachricht wurde von Brischke am 05. Juni 2003 editiert.]

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

Karsten.G
Mitglied



Sehen Sie sich das Profil von Karsten.G an!   Senden Sie eine Private Message an Karsten.G  Schreiben Sie einen Gästebucheintrag für Karsten.G

Beiträge: 190
Registriert: 21.06.2002

Verwendetes System:
PIII 700 MHz; 512 MB-RAM;
Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2

erstellt am: 05. Jun. 2003 12:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

Hi Holger,

das Programm ist eigentlich gut, nur werden die Texte, die bereits auf dem Textstil liegen, wo alle Anderen auch hinsollen gelöscht.
Bei uns kommt es sehr oft vor, dass nur Teilbereiche eines Textes im Textstil abgeändert werden.
Beispiel:

>> das IST der BEISPIELTEXT <<

Der Stilname ist ISOCP, ISOCP ist auch der Stil ISOCP zugeordnet.
Nehmen wir mal an, im obigen Text sind die kleinen Buchstaben auf ISOCP geblieben, die GROSSEN Buchstaben wurden manuell auf Stil ARIAL gesetzt.
Jetzt will ich aber ALLE Wöter auf ISOCP setzen, weil ich kein ARIAL verwenden darf.
Nehme ich nun Dein Programm zur Hilfe, werden die ARIAL-Texte auf ISOCP zurückgesetzt, die Texte, die aber bereits auf diesem Stil liegen, werden GELÖSCHT !!!
Bei mir sollten diese Texte aber auch da bleiben.
Gibt es da noch eine Möglichkeit das Programm umzustricken ???

------------------
Gruß Karsten


------------------

Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit !
Fragen Sie uns:  http://www.buchbinderei-gibietz.de

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 05. Jun. 2003 13:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

Hallo Karsten, @All,

ich habe es oben noch etwas geändert, probierts aus, und wenns nicht funzt ...

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

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

Karsten.G
Mitglied



Sehen Sie sich das Profil von Karsten.G an!   Senden Sie eine Private Message an Karsten.G  Schreiben Sie einen Gästebucheintrag für Karsten.G

Beiträge: 190
Registriert: 21.06.2002

Verwendetes System:
PIII 700 MHz; 512 MB-RAM;
Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2

erstellt am: 05. Jun. 2003 13:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

@Holger

Soweit sehr gut !

ABER: Wenn jetzt auch noch die Zeilenumbrüche beibehalten werden, wäre ich vollstens zufrieden.

Die Texte werden nämlich alle in eine Zeile hintereinander gepackt.

------------------
Gruß Karsten


------------------

Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit !
Fragen Sie uns:  http://www.buchbinderei-gibietz.de

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 05. Jun. 2003 14:16    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

Dann sind aber wieder Sonder~/Steuerzeichen drin? - Man muß sich entscheiden 
Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

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

Karsten.G
Mitglied



Sehen Sie sich das Profil von Karsten.G an!   Senden Sie eine Private Message an Karsten.G  Schreiben Sie einen Gästebucheintrag für Karsten.G

Beiträge: 190
Registriert: 21.06.2002

Verwendetes System:
PIII 700 MHz; 512 MB-RAM;
Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2

erstellt am: 05. Jun. 2003 14:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

Welche Sonderzeichen sind denn dann drin ???

So würde es mir gar nichts bringen.
Denn was hilfts mir, wenn ich eine ewig lange eile im Olan habe und mein Text total zerlegt wird ??

------------------
Gruß Karsten


------------------

Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit !
Fragen Sie uns:  http://www.buchbinderei-gibietz.de

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

Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH



Sehen Sie sich das Profil von Brischke an!   Senden Sie eine Private Message an Brischke  Schreiben Sie einen Gästebucheintrag für Brischke

Beiträge: 4171
Registriert: 17.05.2001

AutoCAD 20XX, defun-tools

erstellt am: 05. Jun. 2003 14:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

Hallo Karsten,

wenn du dir die Elementdaten mal anschaust, dann siehst du, dass Mtext immer einleitend für irgendwelche Formatierungen die "\\" nutzt.
Bsp
"Hallo, {\\fWingdings|b0|i0|c2|p2;das }ist doch nicht möglich Ihr
{\\fVerdana|b0|i0|c0|p34;lus
\\fVerdana|b1|i0|c0|p34;tigen\\fVerdana|b0|i0|c0|p34; \\P}Ist ja lustig
\\PLeute, {\\fLithographLight|b0|i0|c0|p82;\\Ldas \\Ftxt.shx;muss doch
\\fCityBlueprint|b0|i0|c2|p2;anders gehen?"

Danach folgt dann immer ein Buchstabe der die Art der Formatierung angibt. Je nachdem, welcher Buchstabe das ist, muß dann entschieden werden, ob die darauf folgenden Zeichen als Text oder als Steuerzeichen/Eigenschaftsangabe zu bewerten sind. Ich habe nur auf die schnelle, die konkrete Anforderung realisiert. Kompliziert ist die Analyse der Steuerzeichen. \\f... ; <-Abschließendes Semikolon damit ist die Eigenschaft \\f abgeschlossen. Der Zeilenumbruch wird nicht abgeschlossen, der ist einfach nur ein \\P eine TTF-Formatierung wird wiederum mit { begonnen und mit } beendet.
es gibt, da also eine ganze Menge zu beachten, was ich jetzt hier so nebenbei nicht mal schnell 'zusammenschießen' kann.
Also, die Zeilen sind nur für die konkrete Aufgabenstellung zu gebrauchen, die da heißt. Wechselnde Textfonts im MTEXT zu entfernen. Es darf keine weitere Formatierung wie Fett/Unterstrichen/Kursiv enthalten sein, dann wird's zum Glücksspiel. 

Wenn aber unbedingtes Interesse an einer Lösung besteht, dann kannst Du Dich gerne bei mir melden.

Grüße Holger

------------------
Holger Brischke
CADlon - Lisp over night!
4 Neue Tool's im FreeDownload(gesamt 33)!?

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

Karsten.G
Mitglied



Sehen Sie sich das Profil von Karsten.G an!   Senden Sie eine Private Message an Karsten.G  Schreiben Sie einen Gästebucheintrag für Karsten.G

Beiträge: 190
Registriert: 21.06.2002

Verwendetes System:
PIII 700 MHz; 512 MB-RAM;
Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2

erstellt am: 05. Jun. 2003 14:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

Wenn das so aufwendig ist, dann geben wir uns mal mit dem zufrieden, was bisher hier rausgekommen ist.
Danke !!!

Ich habe noch ein kleines Anliegen, welches für dich bestimmt "Peanuts" sind.

Ich suche ein kleines LISP-Tool, welches mir die Mittellinien eines Kreises erstellt.

Könntest Du sowas für mich machen ???

Ich möchte den Kreis auswählen, dann sollen die Mittellinien auf dem gleichen Layer wie der Kreis gezeichnet werden, Jedoch mit Linientyp STRICHPUNKT.

Oder auch ein Programm, welches den Kreisdurchmesser und den Layer abfragt, dann den Kreis und die Mittellinien zeichnet.

Wäre echt dankbar dafür, ich suche schon sehr lange danach und finde nichts u für Lisp bin ich ein bischen zu doof glaub ich.

Gibts eigentlich ein Programm für Lisp, wo man leicht Programmieren kann ???

Du gibst doch die ganzen Zeichen bestimmt nicht immer per Hand ein.

------------------
Gruß Karsten


------------------

Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit !
Fragen Sie uns:  http://www.buchbinderei-gibietz.de

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

mapcar
Mitglied
CADmin



Sehen Sie sich das Profil von mapcar an!   Senden Sie eine Private Message an mapcar  Schreiben Sie einen Gästebucheintrag für mapcar

Beiträge: 1250
Registriert: 20.05.2002

Time flies like an arrow, fruit flies like a banana (Groucho Marx)

erstellt am: 05. Jun. 2003 14:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

Das ist doch eine ganz typische Anwendung für Regular Expressions. Mit dem PCRE-Paket, das ich bei Cadwiesel bereitgestellt habe, wird das alles recht einfach...

Ich hab nur heute leider nicht die Zeit, hier ein Beispiel fertig zu machen:-(

Gruss, Axel

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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

CADwiesel
Moderator
CAD4FM UG




Sehen Sie sich das Profil von CADwiesel an!   Senden Sie eine Private Message an CADwiesel  Schreiben Sie einen Gästebucheintrag für CADwiesel

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 05. Jun. 2003 15:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

zu1) das habe ich in den tiefen des Alls gefunden
(Defun C:kr-kr (/ lk lm z osold d mp bd r p5 p6 p7 p8)

;;;----------------------Layer Prüfung

;;;----------------------------Prüfung des Layers Koerp

(setq lk (tblsearch "LAYER" "KOERP"))
  (if (null lk)
    (progn
    (prompt "\nErstelle neuen Layer - KOERP. ")
    (command "_.-LAYER" "_new" "KOERP" "")
    (command "_.-LAYER" "_colour" "7" "KOERP" "ltyp" "continuous" "KOERP" "")
    )
  )

;;;----------------------------Prüfung des Layers Mitte

(setq lm (tblsearch "LAYER" "Mittel"))
  (if (null lm)
    (progn
    (prompt "\nErstelle neuen Layer - Mittel. ")
    (command "_.-LAYER" "_new" "Mittel" "")
    (command "_.-LAYER" "_colour" "1" "Mittel" "ltyp" "Mitte" "Mittel" "")
    )
  )


  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (setq z (getvar "clayer")
        osold (getvar "osmode")
        d 22.5)
  (command "_.-layer" "set" "koerp" "")


  (setq mp (getpoint "\nMittelpunkt des Kreises angeben."))

  (prompt (strcat "\nDurchmesser des Kreises angeben.  <" (rtos d) " >"))
  (setq bd (getreal))
  (if (not(null bd)) (setq d bd))

  (setq r (/ d 2)
; alfa1 ist der Winkel vom Mittelpunkt zum p1
  p5 (polar mp 1.570796 (+ r 5))
; p5 ist der obere Endpunkt der Mittellinie
  p6 (polar mp 3.141592 (+ r 5))
; p6 ist der linke Endpunkt der Mittellinie
  p7 (polar p5 4.712388 (+ d 10))
; p7 ist der untere Endpunkt der Mittellinie
  p8 (polar p6 0 (+ d 10)))
; p8 ist der rechte Endpunkt der Mittellinie

  (command "_circle" mp "_d" d
  "_.-LAYER" "_set" "Mittel" ""
  "_.line" p5 p7 ""
  "_.line" p6 p8 ""
  "_.-layer" "set" z "")
  (setvar "cmdecho" 1)
  (setvar "osmode" osold)
)

zu2. gib mal in der acad-Befehlszeile _vlide ein. Damit kannst's einfach lernen.

Besuch mal die Seite von dem Menschen mit dem Goldgerahmten Bild, der dir auch geantwortet hat - und zwar: seine Autolisp Seiten

und zu 3  Glaubst Du Holger kann mit den Füssen schreiben?

------------------
Gruß
CADwiesel

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

mapcar
Mitglied
CADmin



Sehen Sie sich das Profil von mapcar an!   Senden Sie eine Private Message an mapcar  Schreiben Sie einen Gästebucheintrag für mapcar

Beiträge: 1250
Registriert: 20.05.2002

Time flies like an arrow, fruit flies like a banana (Groucho Marx)

erstellt am: 05. Jun. 2003 15:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

Code:

(defun text-f(ent / data)
  (setq matchpair
  '("(.*?)\\{\\\\f.*?;(.*?)\\}(.*)"  "\\1\\2\\3")
  )
  (if(=(cdr(assoc 0(setq data(entget ent))))"MTEXT")
    (progn
      (setq text(cdr(assoc 1 data)))
      (entmod
        (subst
          (cons 1(apply'pcre-sr(append matchpair(list text "g"))))
          (assoc 1 data)
          data
        )
      )
    )
  )
)

Nur noch als schnelles Beispiel, wie man damit eine Font-Anweisung aus einem Mtext rauskriegt...

Axel

------------------

Meine AutoLisp-Seiten
Meine private Homepage
Mein Angriff auf dein Zwerchfell
Mein Lexikon der Fotografie
Mein gereimtes Gesülze
Meine Überzeugung...

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



Konstruktionsingenieur / Projektleiter (m/w/d) Maschinenbau

Wir sind ein engagiertes Unternehmen im Bereich Maschinen- und Anlagenbau sowie der Elektrotechnik.
Persönlicher Einsatz und fachliche Kompetenz unserer Mitarbeiter sind die Garanten für unseren Erfolg

Im Zuge der Erweiterung unseres Projektteams suchen wir aus dem Bereich Maschinenbau eine kompetente Persönlichkeit als

Konstruktionsingenieur / Projektleiter (m/w/d) ...

Anzeige ansehenKonstruktion, Visualisierung
Karsten.G
Mitglied



Sehen Sie sich das Profil von Karsten.G an!   Senden Sie eine Private Message an Karsten.G  Schreiben Sie einen Gästebucheintrag für Karsten.G

Beiträge: 190
Registriert: 21.06.2002

Verwendetes System:
PIII 700 MHz; 512 MB-RAM;
Windows NT 4.0;<p>AutoCAD 2000 + pit-cup 5.2

erstellt am: 05. Jun. 2003 16:59    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Stefanie 10 Unities + Antwort hilfreich

@all

Vielen Dank für die schnelle Programmiererei.

@CADwiesel
diese Seiten, bzw. den Lisp-Editor habe ich alle schon besucht.
Entweder habe ich zu wenig Zeit, um mich da richtig rein zu denken, oder ich raffs eben einfach nicht.
Vielleicht geht mir ja irgendwann mal ein Licht auf. Bis dahin bin ich auf Euch angewiesen.

Danke für Eure Mühe !!!

------------------
Gruß Karsten


------------------

Ihre Fachzeitschriften fliegen überall rum und wenn Sie sie suchen, sind sie nicht zu finden ???
Schluss damit !!!
In einem schönen Buch herrscht Ordnung und sie sind stets griffbereit !
Fragen Sie uns:  http://www.buchbinderei-gibietz.de

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz