| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Mehrere Texte auf einmal umbenennen (1929 mal gelesen)
|
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001 Contact WSM 3.12 Creo 4.0 Catia V5 Acad 2015 Inventor 2020
|
erstellt am: 23. Nov. 2004 11:14 <-- editieren / zitieren --> Unities abgeben:
Moin! Ich habe das Problem, das ich in einer Zeichnung sehr viele "Texte" (also nicht MText) habe (Zahlen von 1 bis 100) und vor jedem Text möchte ich einen Buchstaben setzen. Wie mache ich das am komfortabelsten? Aus > 1 < möchte ich also > A1 <, aus > 2 < dann > A2 < machen usw. ... ------------------ Gruß, Heino ___________________ Meins?! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 23. Nov. 2004 11:23 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
(defun c:CHtext (/ PRAE AUSWAHL INDEX OBJDATA) (if(and(or(setq AUSWAHL (ssget "I" '((0 . "TEXT")))) (setq AUSWAHL (ssget '((0 . "TEXT")))) ) (setq PRAE(getstring "\nPräfixtext: ")) ) (progn (setq INDEX -1) (repeat (sslength AUSWAHL) (setq OBJDATA(entget(ssname AUSWAHL(setq INDEX (1+ INDEX))))) (entmod(subst(cons 1 (strcat PRAE (cdr(assoc 1 OBJDATA))))(assoc 1 OBJDATA)OBJDATA)) ) ) ) ) ------------------ - 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 |
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001
|
erstellt am: 23. Nov. 2004 11:31 <-- editieren / zitieren --> Unities abgeben:
|
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 23. Nov. 2004 11:34 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
|
Cadzia Ehrenmitglied V.I.P. h.c. CAD/Grafik-Dienstleister
Beiträge: 2917 Registriert: 02.07.2004
|
erstellt am: 23. Nov. 2004 11:35 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
|
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001 Contact WSM 3.12 Creo 4.0 Catia V5 Acad 2015 Inventor 2020
|
erstellt am: 23. Nov. 2004 11:37 <-- editieren / zitieren --> Unities abgeben:
|
fuettchen Mitglied
Beiträge: 21 Registriert: 22.01.2004
|
erstellt am: 23. Nov. 2004 11:50 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
Hallo Heiner, bin mir nicht sicher, ob es bei deiner Version funktioniert, aber im ACAD 2004 (und 2002) kann man unter Bearbeiten->Suchen Texte suchen und ersetzen lassen. Vielleicht hilft´s ja. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 23. Nov. 2004 11:53 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
Zitat: Original erstellt von fuettchen: Hallo Heiner,bin mir nicht sicher, ob es bei deiner Version funktioniert, aber im ACAD 2004 (und 2002) kann man unter Bearbeiten->Suchen Texte suchen und ersetzen lassen. Vielleicht hilft´s ja.
Suchen und Ersetzen? 1,2,3,4,5,6,7,8,9 usw. das klappt doch wohl nur, wenn da zumindeste ein Leerzeichen davor ist
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
fuettchen Mitglied
Beiträge: 21 Registriert: 22.01.2004
|
erstellt am: 23. Nov. 2004 11:58 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
Funktioniert bei mir auch, wenn die Zahl mitten in einem Text steht. Wir haben lange Zahlen-Buchstaben-Sonderzeichen Reihen, wo dies schon mal nötig ist und da klappts einwandfrei (ACAD 2004) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001 Contact WSM 3.12 Creo 4.0 Catia V5 Acad 2015 Inventor 2020
|
erstellt am: 23. Nov. 2004 12:05 <-- editieren / zitieren --> Unities abgeben:
Ja, aber ich will ja nix ersetzen! Sondern was hinzufügen.... @CADmium Ich bekomme die Anwendung nicht gestartet... @CADzia Habe jetzt die E-Tools installiert, aber >tedit< funzt auch nicht, da >tedit.lsp< fehlt... ------------------ Gruß, Heino ___________________ Meins?! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Mitglied Architekt
Beiträge: 1361 Registriert: 13.02.2003 .
|
erstellt am: 23. Nov. 2004 12:12 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 23. Nov. 2004 12:17 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
Zitat: Original erstellt von Heino Casper: @CADmium Ich bekomme die Anwendung nicht gestartet...
Wie du ein Lisp lädst, findest du hier und dann aufruf in der Befehlszeile mit CHtext. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." [Diese Nachricht wurde von CADmium am 23. Nov. 2004 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 23. Nov. 2004 12:26 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper
Original erstellt von Heino Casper:@CADzia Habe jetzt die E-Tools installiert, aber >tedit< funzt auch nicht, da >tedit.lsp< fehlt... tedit ist in den EXPRESS für 2005 nicht mehr vorhanden. könnte dir aus den 2002er Express Kopie zukommen lassen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Heino Casper Mitglied CAD/PLM Administrator
Beiträge: 483 Registriert: 26.02.2001
|
erstellt am: 23. Nov. 2004 12:34 <-- editieren / zitieren --> Unities abgeben:
Vielen Dank an ALLE! Und besonders an CADmium! Dein Lisp funzt jetzt einwandfrei und ist genau das, was ich gesucht hab. Ich bin wohl zu blöd zum kopieren. Habe zumindest alles nochmal kopiert und es dann nochmal ausprobiert. Jetzt läuft es! DANKE!!! ------------------ Gruß, Heino ___________________ Meins?! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |