Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  text übertragen auf Multiführungstext

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  text übertragen auf Multiführungstext (460 mal gelesen)
Hoppenstedt
Mitglied



Sehen Sie sich das Profil von Hoppenstedt an!   Senden Sie eine Private Message an Hoppenstedt  Schreiben Sie einen Gästebucheintrag für Hoppenstedt

Beiträge: 86
Registriert: 30.08.2003

erstellt am: 26. Mai. 2008 13:56    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

CADwiesel
Moderator
CAD4FM UG




Sehen Sie sich das Profil von CADwiesel an!   Senden Sie eine Private Message an CADwiesel  Schreiben Sie einen Gästebucheintrag für CADwiesel

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 26. Mai. 2008 15:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Hoppenstedt 10 Unities + Antwort hilfreich

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

Hoppenstedt
Mitglied



Sehen Sie sich das Profil von Hoppenstedt an!   Senden Sie eine Private Message an Hoppenstedt  Schreiben Sie einen Gästebucheintrag für Hoppenstedt

Beiträge: 86
Registriert: 30.08.2003

erstellt am: 27. Mai. 2008 08:09    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

CADwiesel
Moderator
CAD4FM UG




Sehen Sie sich das Profil von CADwiesel an!   Senden Sie eine Private Message an CADwiesel  Schreiben Sie einen Gästebucheintrag für CADwiesel

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 27. Mai. 2008 10:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Hoppenstedt 10 Unities + Antwort hilfreich

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



Projektleiter Infrastrukturplanung Großprojekte (m/w/d)

Als modernes und zukunftsgerichtetes Unternehmen tragen wir Verantwortung für die Region und haben den Anspruch, den Menschen vor Ort eine hervorragende Lebensqualität zu ermöglichen. Dafür setzen sich rund 1.700 Mitarbeitende mit viel Energie und Engagement ein. Als moderner Dienstleister gestalten wir die Energie- und Mobilitätswende mit und machen uns stark für Nachhaltigkeit. Wir investieren ...

Anzeige ansehenProjektmanagement
Hoppenstedt
Mitglied



Sehen Sie sich das Profil von Hoppenstedt an!   Senden Sie eine Private Message an Hoppenstedt  Schreiben Sie einen Gästebucheintrag für Hoppenstedt

Beiträge: 86
Registriert: 30.08.2003

erstellt am: 27. Mai. 2008 11:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz