| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | NVIDIA RTX PRO 6000 Blackwell Max-Q Workstation Edition, eine Pressemitteilung
|
|
Autor
|
Thema: text übertragen auf Multiführungstext (650 mal gelesen)
|
Hoppenstedt
Mitglied
   Beiträge: 86
Registriert: 30.08.2003
|
erstellt am: 26. Mai. 2008 13:56  <-- editieren / zitieren -->   Unities abgeben:          
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
    
Beiträge: 1999
Registriert: 05.09.2000 AutoCAD, Bricscad
Wir machen das Mögliche unmöglich
|
erstellt am: 26. Mai. 2008 15:47 <-- editieren / zitieren --> Unities abgeben: Nur für Hoppenstedt 
|
Hoppenstedt
Mitglied
Beiträge: 86
Registriert: 30.08.2003
|
erstellt am: 27. Mai. 2008 08:09 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 1999
Registriert: 05.09.2000 AutoCAD, Bricscad
Wir machen das Mögliche unmöglich
|
erstellt am: 27. Mai. 2008 10:33 <-- editieren / zitieren --> Unities abgeben: Nur für Hoppenstedt
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 |
| | Anzeige: | Infos zum Werbeplatz >> | pissuCAD CAD APP für Tiefbau, Umwelt Since 1985, AnkiSOFT Software developes software to design infrastructure projects.
pissuCAD has been developed for Wastewater Network Design. It is for Drawing / Modelling / Planning / Design / Analyze / Simulation the wastewater network.
The software works under AutoCAD or ZWCAD.
|
|
Hoppenstedt
Mitglied
Beiträge: 86
Registriert: 30.08.2003
|
erstellt am: 27. Mai. 2008 11:52 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de
| 
