Text ergänzen (Autodesk/Lisp)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Autor

Thema: Text ergänzen (1034 mal gelesen)

thoumsen
Mitglied
Konstrukteur Metallbau, Betriebsinformatiker, usw usw..

Senden Sie eine Private Message an thoumsen

Schreiben Sie einen Gästebucheintrag für thoumsen

Beiträge: 100
Registriert: 25.11.2003

Mir gehts prächtig Kate, die Sonne scheint mir aus dem Arsch!
( George Clooney im Film "From Dusk till Dawn" )

erstellt am: 30. Jun. 2005 10:19

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

moin moin liebe gemeinde.
hoffe alle gut ausgeschlafen?

mir fehlt was.. ..nein nicht im oberstübchen. (oder doch..!?!?)

kennt jemand ein lisp mit dem ich eine unmenge von textelementen (in diesem fall pos-nr.) mit einem gleichen buchstaben oder textteil ergänzen kann?

etwa in der form dass ich den gewünschten text eingebe (z.b. "A") und dieser dann an einen haufen von ausgewählten textelementen voranstelle (oder anhänge).

(ehrlich gesagt hab ich im moment weder die zeit noch die nerven mir sowas komplet selbst zu schreiben (mea culpa) hab aber ca 8500 pos-nr. die ich ergänzen soll... )

gruss aus frangn
.: thoumsen :.

------------------
>> fanatismus ist der tod jeder guten idee <<

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

WolfgangGutke
Mitglied
Konstrukteur

Senden Sie eine Private Message an WolfgangGutke

Schreiben Sie einen Gästebucheintrag für WolfgangGutke

Beiträge: 109
Registriert: 28.09.2004

AutoCAD 2002
AutoCAD 2006
ObjectDCL 2.02

erstellt am: 30. Jun. 2005 11:05

<-- editieren / zitieren -->

Unities abgeben:

Nur für thoumsen

in etwa so :

(defun c:Neutext ( / NeuTXT AWS)
(setq NeuTXT (getstring "\nText :")
AWS (ssget '((0 . "Text"))))
(if AWS
(progn
(foreach nAWS (lst:AWS->vla-List AWS)
(vla-put-TextString nAWS (strcat NeuTXT (vla-get-TextString nAWS)))
)
(alert (strcat (itoa (sslength AWS)) " Textänderung durchgeführt!"))
)
)
)

(defun lst:AWS->vla-List ( AWS / n Lst)
;Erstellen eine vla-Liste aus dem übergebenen Auswahlsatz
(if AWS
(repeat (setq n (sslength AWS))
(setq n (1- n)
Lst (cons (vlax-eName->vla-Object (ssname AWS n)) Lst))
);repeat
);if

Lst

);defun

VG
Wolfgang

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Geos
Mitglied
Vermessungstechniker i.R.

Schreiben Sie einen Gästebucheintrag für Geos

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: 30. Jun. 2005 11:08

<-- editieren / zitieren -->

Unities abgeben:

Nur für thoumsen

Schau mal auf Mapcar's Seiten - wenn mich nicht alles täuscht gibts dort ähnliches als Beispiel:
http://autolisp.mapcar.net/

ups, zu spät
------------------
Gruß, Ernst
http://www.geopaint.at

[Diese Nachricht wurde von Geos am 30. Jun. 2005 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

*Werkstudentin (w/m/d) Planung und Projektabwicklung im Bereich der Energieversorgung durch Stromschienen**
Wir sind ein dynamisches, mittelständisches Unternehmen aus Berlin mit einer reichen Geschichte in der Beratung rund um die elektrische Energieversorgung. Unsere Expertise umfasst die Dimensionierung von Stromschienenanlagen, inklusive komplexer Netzberechnungen und detaillierter Werksplanung bis hin zur Montage. Mit Projekten im gesamten deutschsprachigen Raum helfen wir, die Zukunft der Energieversorgung zu gestalten....
*Anzeige ansehen*	Energie und Umwelttechnik

thoumsen
Mitglied
Konstrukteur Metallbau, Betriebsinformatiker, usw usw..

Beiträge: 100
Registriert: 25.11.2003

Mir gehts prächtig Kate, die Sonne scheint mir aus dem Arsch!
( George Clooney im Film "From Dusk till Dawn" )

erstellt am: 30. Jun. 2005 11:20

<-- editieren / zitieren -->

Unities abgeben:

vielen vielen dank an euch!!!

das hilft mir schon super gut und hat sich somit auch schon erledigt
ich habe selbst auch noch etwas adäquates gefunden!
SRXTEXT von www.aac-solutions.cz

das ding ist eine echte waffe wenn auch recht komplex zu bedienen.

aber mit dem code von wolfgang kann ich schon ganz gut weiterbasteln.

10000 dank nochmal
die Us (wenn auch viel zu wenig) sind unterwegs!!

gruss aus frangn
.: thoumsen :.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)