| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Texte um Pre-/Suffix ergänzen (4450 mal gelesen)
|
Sir Vival
Mitglied
Bauzeichner Tiefbau
   Beiträge: 134
Registriert: 12.09.2003
|
erstellt am: 30. Okt. 2006 12:52  <-- editieren / zitieren -->   Unities abgeben:          
Hallo CAD'ler! Gibt es eine Möglichkeit, wie bereits bestehende Texte um wahlweise
einen Prefix oder Suffix ergänzt werden können?
Oder kennt jemand ein entsprechendes Tool?
Ich habe mir das folgendermaßen vorgestellt:
- die zu bearbeitenden Texte via Schnellauswahl oder Filter auswählen
- Befehl aufrufen
- Auswählen ob Prefix oder Suffix
- die gewünschte Ergänzung eingeben
- fertig Die Acad-interne Suchen/Ersetzen-Funktion ist leider nicht so der
Bringer... Vor allem bei Kombinationen aus gleichen Texten mit
variablen Zahlen krieg ich's nicht auf die Reihe.
Oder ich steh irgendwie auf dem Schlauch...  Gruß
Christian  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
spider_dd
Mitglied
Beiträge: 1111
Registriert: 27.11.2003 Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018
|
erstellt am: 30. Okt. 2006 14:02 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival 
Hallo Christian, anbei ein kleines Lisp, was einen einzugebenen Präfix vor auszuwählende Texte setzt.
Für Suffix währe die Datei zu kopieren und umzubenennen und noch ein paar Zeilen zu ändern, kriegst Du das hin?
Ansonsten sag Bescheid!  HTH LG
Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer
Ehrenmitglied V.I.P. h.c.
CAD-Administrator
Beiträge: 2490
Registriert: 02.11.2001 Windows 10 64bit
AutoCAD Architecture 2018/2019 (deu/eng)
AEC-Collection 2019 (Revit und Zeugs)
Wenn sich's nicht vermeiden läßt:
D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 30. Okt. 2006 14:14 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
Hi, so ginge es: Code:
(defun C:PRESUF (/ ADDTXT INDEX KWRD OBJ SGET TXT)
(vl-load-com)
(if (setq
ADDTXT (getstring 't "\nText für Prä- oder Suffix eingeben: ")
)
(progn
(initget "Praefix Suffix")
(if
(not (setq
KWRD (getkword "\nText als [Praefix/Suffix] <Praefix>: ")
)
)
(setq KWRD "Praefix")
)
(princ "\nTextobjekte für Prä- oder Suffix wählen: ")
(if (setq SGET (ssget '((0 . "*TEXT"))))
(progn
(setq INDEX -1)
(repeat (sslength SGET)
(setq OBJ (vlax-ename->vla-object
(ssname SGET (setq INDEX (1+ INDEX)))
)
TXT (vla-get-textstring OBJ)
)
(vla-put-textstring
OBJ
(if (= KWRD "Praefix")
(strcat ADDTXT TXT)
(strcat TXT ADDTXT)
)
)
)
)
)
)
)
(princ)
)
...------------------
Ciao,
Marc
 [Diese Nachricht wurde von marc.scherer am 30. Okt. 2006 editiert.] [Diese Nachricht wurde von marc.scherer am 30. Okt. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Sir Vival
Mitglied
Bauzeichner Tiefbau
Beiträge: 134
Registriert: 12.09.2003
|
erstellt am: 31. Okt. 2006 13:19 <-- editieren / zitieren --> Unities abgeben:
Hallo ihr Beiden! Erstmal Danke für Eure Unterstützung! @ Marc:
Super Sache, funzt einwandfrei! So wie ich's mir gedacht hatte.
1000 Dank! Die U's sind Dein... @ Thomas:
Leider spreche ich kein Lispianisch...
Da das Tool von Marc auf Anhieb so funktionierte, wie ich's mir
gedachte habe, habe ich das Tool favorisiert...
Trotzdem Danke für Deine Unterstützung! Gruß
Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Entwicklungsingenieur:in Light Equipment | Entwicklungsingenieur:in Light Equipment - BOMAG ? Boppard
- Berufserfahrene
- Vollzeit 35 Stunden/Woche, unbefristet
Schwere Maschinen, die den Straßenbau erleichtern, mehr Platz und neue Räume schaffen. 2.500 Wegbereiter, die dafür sorgen, dass die Menschen ihre Ziele schnell und sicher erreichen. Das ist BOMAG. Unsere Leidenschaft: ... | | Anzeige ansehen | Entwicklung |
|
bikerholic
Mitglied
Bauzeichner Straßenbau
Beiträge: 123
Registriert: 06.02.2009 XP Professional SP2
Intel Pentium x86 2.40GHz
1GB-Ram, Maxtor 60GB
NVIDIA GeForce4 MX 420 mit 64MB
AutoCAD 2005&2008&2010(Civil3D)+SP2+Expresstools
google und ich san beste freunde ;)
|
erstellt am: 14. Jul. 2009 11:21 <-- editieren / zitieren --> Unities abgeben: Nur für Sir Vival
hat ne weile gedauert bis ich des tool endlich gefunden hab aber die suche hat sich gelohnt top lisptool danke  gruß björn p.s. @marc: unities san am weg  (für die suchmaschine: text textteil zahl vor davor voranstellen vorne nach dahinter danach hinter einfügen ergänzen praefix prefix präfix suffix sufix) ------------------
Wenn Arbeit etwas schoenes und erfreuliches waere,
haetten die Reichen sie nicht den Armen ueberlassen.
[Paul Lafargue] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
