| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT, eine Pressemitteilung
|
Autor
|
Thema: MText Farbe VONLAYER (683 mal gelesen)
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 08. Okt. 2008 09:16 <-- editieren / zitieren --> Unities abgeben:
Hallo, nach langem Suchen habe ich nicht wirklich was gefunden. Zwar gibts da schon was im Forum und die Datei MTEXT-NO-COLOR.VLX funzt auch - nur ist sie nicht uneingeschrängt nutzbar (Registrierung) hier der Link: http://ww3.cad.de/foren/ubb/Forum54/HTML/010738.shtml#000000 Bei dem Link ist auch noch das angegeben: ;;;Jörn Bosse, 09.05.05 (defun c:farbe_mtext ( / aws n string) (princ "\nBitte Mtexte wählen:") (setq aws (ssget (list (cons 0 "MTEXT")))) (if aws (progn (setq n 0) (repeat (sslength aws) (setq string (cdr(assoc 1 (entget (ssname aws n))))) (while (vl-string-search "\\C" string) (setq string (strcat (substr string 1 (vl-string-search "\\C" string)) (substr (substr string (+ 4 (vl-string-search"\\C" string))) (+ 2 (vl-string-search ";" (substr string (+ 4 (vl-string-search"\\C" string))))))))) (entmod(subst (cons 1 string)(assoc 1 (entget (ssname aws n)))(entget (ssname aws n)))) (setq n (+ n 1)))) (alert "keine Mtexte ausgewählt.")) (princ) ) Ich weiß aber nix damit anzufangen. Kann mir einer mal erklären was ich damit machen soll? Auf einer anderen Seite haben ich noch das gefunden - hab aber auch kein Plan wie das zu händeln ist. ;;; - ------------------------------------------------------------------------------ - ; ;;; - Funktionsname : C:MTEXT-COLOR-DEL - ; ;;; - Beschreibung : Entfernt die Farbformatierung bei Mtexten - ; ;;; - Parameter : keine - ; ;;; - Rückgabe : keine - ; ;;; - ------------------------------------------------------------------------------ - ; (defun C:MTEXT-DEL-COLOR(/ AUSWAHL OBJ TEXTSTRING INDEX DT:STR-REMOVE-BEETWEEN) (defun DT:STR-REMOVE-BEETWEEN(STRING SEPARATOR1 SEPARATOR2 / REST POS1 POS2 OFFSET1 OFFSET2) (if(and(=(type STRING) 'STR)(=(type SEPARATOR1) 'STR)(=(type SEPARATOR2) 'STR)) (progn (setq OFFSET1 (1+(strlen SEPARATOR1))) (setq OFFSET2 (1+(strlen SEPARATOR2))) (while (and(setq POS1(vl-string-search SEPARATOR1 STRING)) (setq REST(substr STRING (+ POS1 OFFSET1))) (setq POS2(vl-string-search SEPARATOR2 REST)) ) (setq STRING (strcat (substr STRING 1 POS1) (substr REST (+ POS2 OFFSET2)) ) ) ) STRING ) ) ) (if(or(setq AUSWAHL(ssget "_i" '((0 . "MTEXT")))) (setq AUSWAHL(ssget '((0 . "MTEXT")))) ) (progn (setq INDEX -1) (repeat(sslength AUSWAHL) (setq OBJ(vlax-ename->vla-object (ssname AUSWAHL(setq INDEX(1+ INDEX))))) (setq TEXTSTRING(vla-get-textstring OBJ)) (vla-put-textstring OBJ (DT:STR-REMOVE-BEETWEEN TEXTSTRING "C" ";") ) ) ) ) ) ;;; - ------------------------------------------------------------------------------ - ; (princ (strcat " MTEXT-COLOR-DEL :Entfernt die Farbformatierung bei Mtexten" " (C) Thomas Krüger 2005 (cadmium@cad.de)" " Befehlszeilenaufruf : MTEXT-COLOR-DEL " ) ) (princ) ;;; - ------------------------------------------------------------------------------ - ; Link: http://autocad.cad.de/modules.php?name=News&file=article&sid=21 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 08. Okt. 2008 09:18 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 08. Okt. 2008 09:23 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 08. Okt. 2008 09:53 <-- editieren / zitieren --> Unities abgeben:
Also der erste Code funzt! Beim zweiten kennt er aber den Befehl nicht. Kann es daran liegen das der Text im Editor in einer Zeile dann steht und nicht wie beim ersten Code so schön untereinander? Wenn ja kann bitte mal einer den Text richtig formatieren? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 08. Okt. 2008 10:04 <-- editieren / zitieren --> Unities abgeben: Nur für xem
Zitat: Original erstellt von xem: :D ...Kann es daran liegen das der Text im Editor in einer Zeile dann steht und nicht wie beim ersten Code so schön untereinander? Wenn ja kann bitte mal einer den Text richtig formatieren?
ja es liegt daran CADmium ist Mitglied im Forum... aber als tip Code in editor kopieren (besser vlide in acad ausführen) leerzeichen sind oftmals Zeilenumbrüche mfg heiko Edit: Leerzeichen nach ; oder )(schließende Klammer) sind oftmals Zeilenumbrüche ... nimm einfach Jörn sein Code [Diese Nachricht wurde von Dorfy am 08. Okt. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cad4fun Ehrenmitglied
Beiträge: 1846 Registriert: 06.12.2004 privat ACAD 2013 und 2017 deutsch, Windows 7 64Bit HP Elite 7500 Series MT,Intel Cote i5-3470 CPU 3,20Ghz,16GB RAM ATI FirePro V (FireGL V) Graphics Adapter Treiberversion: 15.201.1151.1008
|
erstellt am: 08. Okt. 2008 10:24 <-- editieren / zitieren --> Unities abgeben: Nur für xem
Zitat: Original erstellt von xem: :D Also der erste Code funzt!Beim zweiten kennt er aber den Befehl nicht. Kann es daran liegen das der Text im Editor in einer Zeile dann steht und nicht wie beim ersten Code so schön untereinander? Wenn ja kann bitte mal einer den Text richtig formatieren?
Es liegt dann aber auch daran, dass der Befehlszeilenaufruf MTEXT-DEL-COLOR und nicht MTEXT-COLOR-DEL lautet Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sir Vival Mitglied Fachplaner Kanalsanierung
Beiträge: 134 Registriert: 12.09.2003
|
erstellt am: 08. Okt. 2008 11:18 <-- editieren / zitieren --> Unities abgeben: Nur für xem
|
xem Mitglied Zeichner
Beiträge: 854 Registriert: 07.08.2008 Software: AutoCAD 2022 - 64bit Windows 10 Pro - 64bit PDFCreator 1.0.2 - 32bit Ghostscript 9.0 - 64bit PDF-XChange Viewer - 64bit GIMP 2.6.8 - 64bit MS Office 2013 - 32bit Opera 12 - 32bit MacroX - 32bit 7-zip - 64bit ----------------------- Hardware: Intel i5 680 3,6GHz @ 4GHz 8GB RAM 1333MHz nVidia GTX 460 1024MB Intel SSD 2.5 80GB X25-M Samsung SyncMaster 245B+ Iiyama ProLite E1900s Logitech mx518 Logitech G11 Roccat Sense Glacier Blue
|
erstellt am: 08. Okt. 2008 11:39 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von Sir Vival: Hallo xem,viell. ist auch das Tool Stripmtext etwas für Dich -> siehe hier Mit Hilfe des Tools lassen sich alle möglichen Eingenschaften auf VONLAYER zurück setzen, neben der Farbe u.a. auch Schriftstil, Höhe... Gruß Christian
Danke Christian, auch ein feines Tool. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |