Unterstrichung von Texten (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: Unterstrichung von Texten (2470 mal gelesen)
alager Mitglied zeichner Beiträge: 4 Registriert: 04.05.2011 MS Windows XP,Autocad Map 3D 2008	erstellt am: 04. Mai. 2011 15:04 <-- editieren / zitieren --> Unities abgeben: Hallo zusammen! kann man "per Knopfdruck" mehrere Texte (keine MTexte) unterstreichen lassen? Vielen Dank alger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
chris888 Mitglied Technischer Zeichner Beiträge: 141 Registriert: 11.11.2010 AutoCAD 2002, 2005, 2008, 09, 10, 11 Windows 7, 4GB, 640GB	erstellt am: 04. Mai. 2011 15:10 <-- editieren / zitieren --> Unities abgeben: Nur für alager Hi alager! ich kenne keinen befehl. den könnte man aber schreiben mit lisp. mfg chris Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
E-Boy Ehrenmitglied V.I.P. h.c. Elektroinstallateurmeister Beiträge: 2731 Registriert: 23.06.2005 Autocad MEP 2019 E-Tools Win 10	erstellt am: 04. Mai. 2011 15:10 <-- editieren / zitieren --> Unities abgeben: Nur für alager Hi und Willkommen auf cad.de, Du kannst mit %%u vor dem einzeiligem Text unterstreichen. Da können Manche bestimmt was basteln. ------------------ Gruß Stefan Nur Feiglinge speichern zwischen. 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: 04. Mai. 2011 15:47 <-- editieren / zitieren --> Unities abgeben: Nur für alager na dann machen wir das doch mal : (defun C:TEXTUNDERLINE( / AWS I O TXT) (if(setq AWS(ssget '((0 . "TEXT")))) (progn (initget "Ja Nein") (setq I -1) (if (/=(getkword "Unterstreichen ? [Ja / Nein]<Ja>:")"Nein") (repeat (sslength AWS) (setq O(entget(ssname AWS(setq I(1+ I))))) (setq TXT(cdr(assoc 1 O))) (if(/=(substr TXT 1 3)"%%u") (progn (setq TXT(strcat "%%u"TXT)) (entmod(subst (cons 1 TXT)(assoc 1 O)O)) ) ) ) (repeat (sslength AWS) (setq O(entget(ssname AWS(setq I(1+ I))))) (setq TXT(cdr(assoc 1 O))) (if(=(substr TXT 1 3)"%%u") (progn (setq TXT(substr TXT 4)) (entmod(subst (cons 1 TXT)(assoc 1 O)O)) ) ) ) ) ) (prompt "\nKeine Texte gewählt\n") ) (princ) ) ------------------ - 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
E-Boy Ehrenmitglied V.I.P. h.c. Elektroinstallateurmeister Beiträge: 2731 Registriert: 23.06.2005 Autocad MEP 2019 E-Tools Win 10	erstellt am: 04. Mai. 2011 15:59 <-- editieren / zitieren --> Unities abgeben: Nur für alager Zitat: Original erstellt von CADmium: na dann machen wir das doch mal : Perfect ------------------ Gruß Stefan Nur Feiglinge speichern zwischen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
alager Mitglied zeichner Beiträge: 4 Registriert: 04.05.2011 MS Windows XP,Autocad Map 3D 2008	erstellt am: 05. Mai. 2011 07:42 <-- editieren / zitieren --> Unities abgeben: Hallo Thomas, herzlichen Dank. Es hat wunderbar geklappt!! Viele Grüße alager Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADraxas Mitglied Landschaftsarchitekt Beiträge: 55 Registriert: 27.08.2008 PC: HP Z230, Win7 64bit, Intel Xeon E3-3,4 Ghz, 16 GB RAM, AcadMap 2015 SP2, WS-Landcad 2015, Firefox	erstellt am: 30. Apr. 2013 15:18 <-- editieren / zitieren --> Unities abgeben: Nur für alager Wow, CADmium das hatte ich auch gesucht. Wie schön, dass es CADmium auf CAD.de gibt!! Danke, danke, danke! Volker Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)