| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | Optimiertes Einkaufserlebnis dank interaktiver 3D-Modelle im Webshop (APS, Autodesk Platform Services, Autodesk), ein Anwenderbericht |
|
Autor
|
Thema: Mtext - suchen und ersetzen ganze Zeile (243 mal gelesen)
|
Peter2
Ehrenmitglied V.I.P. h.c.
   Beiträge: 3835
Registriert: 15.10.2003 Win 10/64 Pro
AutoCAD MAP 3D 2023
BricsCAD 22
|
erstellt am: 16. Mrz. 2009 14:15  <-- editieren / zitieren -->   Unities abgeben:          
Einen habe ich noch: Wie kann man mit Bordmitteln (Suchen - ersetzen) in MText eine ganze Zeile INKL. Absatzmarke löschen? Auf \n (Lisp) oder \P (RTF) reagiert er nicht ... Peter ------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Peter2
Ehrenmitglied V.I.P. h.c.
Beiträge: 3835
Registriert: 15.10.2003 Win 10/64 Pro
AutoCAD MAP 3D 2023
BricsCAD 22
|
erstellt am: 17. Mrz. 2009 17:52 <-- editieren / zitieren --> Unities abgeben:
|
Geos
Mitglied
Vermessungstechniker i.R.
Beiträge: 1017
Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro
eigene Lisp's<P>HW: Core i7 860, 2.8 GHz
3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 17. Mrz. 2009 18:44 <-- editieren / zitieren --> Unities abgeben: Nur für Peter2 
Wie wärs, wenn Du den Wert (gc1) mit dem Handle (gc5) in eine temp. Datei schreibst, dort Deine Änderungen machst und dann wieder zurückschreibst. Vielleicht auch nicht das Gelbe vom Ei, aber besser als totale Handarbeit ??? ------------------
Schöne Grüße
Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Stelli1
Ehrenmitglied
Verm.-Ing.
Beiträge: 1526
Registriert: 17.08.2005 Map 2000-2013, Rasterdesign
MapGuide 6.5 - 2013
Oracle 9i,10g,11g Enterprise
autodesk Topobase 2-2012
VS6, VS.net
|
erstellt am: 17. Mrz. 2009 18:45 <-- editieren / zitieren --> Unities abgeben: Nur für Peter2
Hallo Peter, wenn du VBA auch zu den Bordmitteln zählst geht das schon.
Code:
mtext.TextString = Replace(mtext.TextString, "Soll Weg\P", "")
Man müsste nur noch ein "paar" Zeilen dazufügen die dir den oder die Texte auswählen in denen gesucht werden soll.
Wilfried Stelberg
------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Peter2
Ehrenmitglied V.I.P. h.c.
Beiträge: 3835
Registriert: 15.10.2003 Win 10/64 Pro
AutoCAD MAP 3D 2023
BricsCAD 22
|
erstellt am: 17. Mrz. 2009 18:52 <-- editieren / zitieren --> Unities abgeben:
Das hier wieder eine Programmlösung winkt ist anscheinend nicht vermeidbar. Aber ich dachte, es geht mal ohne Kunststücke .. Peter ------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten
Beiträge: 2154
Registriert: 02.05.2005 CAD:
AutoCAD 2.6 bis 2014
ADT 2005 bis ACA 2013
Arcibem
System:
Windows
Internet-Startseite:
http://www.archi.de
|
erstellt am: 17. Mrz. 2009 21:50 <-- editieren / zitieren --> Unities abgeben: Nur für Peter2
Zitat:
Das hier wieder eine Programmlösung winkt ist anscheinend nicht vermeidbar
Die könnte so aussehen: Code:
(defun C:remove-P( / txt z tx val eig)
(setq txt (ssget '((0 . "MTEXT"))) z -1)
(while (and txt (setq tx (ssname txt (setq z (1+ z)))))
(setq val (cdr (assoc 1 (setq eig (entget tx)))))
(while (vl-string-search "\\P" val) (setq val (vl-string-subst " " "\\P" val)))
(entmod (subst (cons 1 val) (assoc 1 eig) eig))
)
(prin1)
)
Hatte ich mal benutzt um Absatzmarken zu entfernen (Ersetzen mit " "). Müsstest Du also nur noch anpassen...Grüsse, Henning ------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure  http://www.voxelman.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Peter2
Ehrenmitglied V.I.P. h.c.
Beiträge: 3835
Registriert: 15.10.2003 Win 10/64 Pro
AutoCAD MAP 3D 2023
BricsCAD 22
|
erstellt am: 17. Mrz. 2009 23:02 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
