---

Hallo liebes Forum

Bin leider absoluter Lisp-Nichtskönner.
Darf ich euch daher mal wieder um Hilfe bitten?

Habe hier ein super Lisp (txtcopy) in Verwendung, mit welchem man Textwerte von einem TEXTObjekt
zu einem oder mehreren anderen übertragen kann.

Dazu meine Frage / Bitte:

Geht das auch, um Text auf den Text von Multiführungslinien zu übertragen und wenn ja, könnte mir das jemand zusammen stricken, wenn es nicht zu viel Aufwand macht?

Schon mal Danke im voraus.
Michael

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

---

das könnte 'mann' bestimmt stricken - der Aufwand bleibt abzuwarten.
wo ist das lisp?

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

hallo
Hier ist das Lisp:

;;;FehlerSUB
(defun myerr (s)
  (setq *error* alterr
alterr nil)
  (princ (strcat "\nTXTCOPY abgebrochen! - " s ))
);defun

;;;Hauptroutine
(defun c:TXTCOPY2 ( / aw targetli fromtxt)
  (command "_.undo" "_G")
 
  ;(while (= fromtext nil)
   
    (setq fromtxt (entget(car(nentsel))))
    (setq fromtxt (assoc 1 fromtxt))
   
 
(setq aw (car(nentsel)))
  (while (/= aw nil)
  (redraw aw 3)
    (setq targetli (append (list aw) targetli))
    (setq aw (car(nentsel)))
 
  );while

    (mapcar '(lambda (X)
(redraw x 4) 
(setq obj (entget X)
obj (subst fromtxt (assoc 1 Obj) obj));setq
(entmod obj)
(if (= (cdr(assoc 0 obj)) "ATTRIB" )
(entupd (cdr(assoc -1 (entget(cdr(assoc 330 obj))))))
);if
  );lambda
    targetli
  );mapcar

 
(setq *error* alterr)
(command "_.undo" "_E")
);defun
(prompt"\ntxtcopy2 zum Starten.")(princ)

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

---

Hier dein angepasstes Lisp

Code:

---

(defun c:TXTCOPY2 (/ aw targetli fromtxt)
  (command "_.undo" "_G")
  (setq fromtxt (entget (car (nentsel))))
  (setq fromtxt (assoc 1 fromtxt))
  (setq aw (car (nentsel)))
  (while (/= aw nil)
    (redraw aw 3)
    (setq targetli (append (list aw) targetli))
    (setq aw (car (nentsel)))
    )                                  ;while
  (mapcar '(lambda (X)
            (redraw x 4)
            (setq obj (entget X)
                  obj (if(= (cdr (assoc 0 obj)) "MULTILEADER")
                        (subst (cons 304(cdr fromtxt)) (assoc 304 Obj) obj)
                        (subst fromtxt (assoc 1 Obj) obj))
                  )                    ;setq
            (entmod obj)
            (if (= (cdr (assoc 0 obj)) "ATTRIB")
              (entupd (cdr (assoc -1 (entget (cdr (assoc 330 obj))))))
              )                        ;if
            )                          ;lambda
          targetli
          )                            ;mapcar
  (setq *error* alterr)
  (command "_.undo" "_E")
  )

---

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Hallo Cadwiesel

Vielen Dank, es funktioniert super.
Du hast mir damit sehr viel Ctrl+C und Ctrl+V erspart.

Allen noch einen schönen Tag

Viele Grüsse Michael

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