---

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

---

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

---

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

---

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