---

Hallo zusammen!

Ich suche ein kleines Progrämmchen, was nach Anklicken eines Textes "A" den Textinhalt von Text "B" nach Anklicken mit Textinhalt von A überschreibt.

Zusätzlich sollte da noch eine Abfrage dazwischen sein, ob der Zahlenwert um eine Zahl addiert oder subtrahiert wird.

Es handelt sich um eine Höhe, die abundzu einfach übernommen wird, aber halt auch mal mit einer Zahl verringert oder vergrößert werden soll. Diese Abfrage soll sich das Programm behalten - <Wert> als Vorlage, was dann durch einfaches "Return" dann übernommen wird.

Bedingt dadurch, dass ich nur noch sehr sehr selten mit Lisp zur Arbeitserleichterung zu tun habe, fällt mir das schon schwer, mich wieder da reinzudenken, leider....

Vielleicht hat ja jemand hier aus der Profi-Liga das mit einem 17-Zeiler aus dem Ärmel geschüttelt? Vielen Dank vorab schonmal für einen Lösungsvorschlag!

------------------
Bis dann,
  Arwed Fränken

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

---

Das sollte was sein für dich

http://lee-mac.com/copytext.html

------------------
mfg Heinz 

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

---

Hallo Arwed,
nur ganz kurz und ohne Netz und doppelten Boden. Wenn Du Dich dann doch wieder ein wenig reindenkst kannt Du Dir das bestimmt noch optimieren:

Code:

---

(defun c:textwert ( / )
  (vla-put-textstring
    (vlax-ename->vla-object(car(entsel "\nText B picken:")))
    (vla-get-textstring
      (vlax-ename->vla-object(car(entsel "\nText A picken:")))
      )
    )
  (princ)
  )

(defun c:textwertPlus ( / NACHKOMMA WERTADD)
  (setq nachkomma 2)
  (if(not textWertPlus$$Add)
    (setq textWertPlus$$Add 1.0);;;Initialierungswert in globale Variable
    )
  (if (or (setq WertAdd (getreal
                          (strcat"\nAdditionswert:<"
                                (rtos textWertPlus$$Add 2 2)
                                ">")))
          (setq WertAdd textWertPlus$$Add))
    (progn
      (setq textWertPlus$$Add wertAdd)
      (vla-put-textstring
        (vlax-ename->vla-object(car(entsel "\nText B picken:")))
        (rtos(+(atof(vla-get-textstring
              (vlax-ename->vla-object(car(entsel "\nText A picken:")))
              ))wertAdd)2 nachkomma))
      )
    )
  (princ))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Multifilter Youtube

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

---

Vielen Dank Jörn!

Das ist genau das, was ich brauche, so spare ich mir doch viel Zeit, da ich so an die 7000 Höhen habe, die man auf jeden Fall trotzdem manuell anklicken muss!!!
Es ist doch immerwieder schön hier im Forum, dass man geholfen bekommt, und, dass AutoCAD immer noch die Lisp-Schnittstelle hat und man nach Wünschen das Programm optimieren kann!

------------------
Bis dann,
  Arwed Fränken

[Diese Nachricht wurde von zimmernagel am 17. Feb. 2020 editiert.]

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

---

Hallo Dober Heinz!

Vielen Dank! Das ist sogar noch ein Tick besser, da es auch MTexte verarbeitet! Der gute alte Lee Mac, ich hatte die Seite vergessen, der hat sogar was, wenn man Schmuck, Uhren oder Fahrräder bearbeiten muss... ;-)

------------------
Bis dann,
  Arwed Fränken

[Diese Nachricht wurde von zimmernagel am 17. Feb. 2020 editiert.]

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