Mehrere Texte auf einmal umbenennen (Autodesk/Rund um AutoCAD)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Mehrere Texte auf einmal umbenennen (1785 mal gelesen)
Heino Casper Mitglied CAD/PLM Administrator Beiträge: 483 Registriert: 26.02.2001	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: 13508 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: DANKESCHÖN!!! Aber >> ; Fehler: Fehlerhafter Argumenttyp: numberp: nil ------------------ Gruß, Heino ___________________ Meins?! 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:34 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper Moin, bei mir funzt das einwandfrei Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Cadzia Ehrenmitglied V.I.P. h.c. CAD/Grafik-Dienstleister Beiträge: 2912 Registriert: 02.07.2004 AutoCAD 2020 + MAP + WS.LandCAD Bricscad V21 pro	erstellt am: 23. Nov. 2004 11:35 <-- editieren / zitieren --> Unities abgeben: Nur für Heino Casper Hallo Heino, wenn Du die Expresstool geladen hast, dann probier mal "tedit" ------------------ Grüße Karin 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:37 <-- editieren / zitieren --> Unities abgeben: Ahh, ich brauche die Expresstools? ------------------ Gruß, Heino ___________________ Meins?! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
fuettchen Mitglied Beiträge: 21 Registriert: 22.01.2004 WIN 2000, ACAD 2004, ACAD 2006, ACAD 2007, HP Designjet 800PS, HP Deskjet 1220 C, ACAD 2010, ACAD 2014, ACAD 2017, WIN 7, WIN 10	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 Heino, kannst ja ggf. mal mit dem vba versuchen: http://ww3.cad.de/foren/ubb/Forum259/HTML/000340.shtml Suchstring: ^ Ersatzstring: A lg Nancy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)