| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY präsentiert die neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Text Kopieren und ändern (663 mal gelesen)
|
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 20. Okt. 2004 06:50 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen Habe eine Frage, kann mir bitte ein Lispprofi das folgende Lisp änder das ich auch mtexte kopieren und gleich ändern kann (defun C:KOTA (/ OBJEKT) (while (setq OBJEKT (ssget "_:S" '((0 . "*TEXT")))) (setq OBJEKT (ssname OBJEKT 0)) (command "_.copy" OBJEKT "" (cdr (assoc (if (< 0 (cdr (assoc 72 (entget OBJEKT)))) 11 10 ) ;_ end of if (entget OBJEKT) ) ;_ end of assoc ) ;_ end of cdr PAUSE ) ;_ end of command (command "_.ddedit" (entlast)) (command) ) ;_ end of progn ) Danke heinz ------------------ Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Schachinger Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 2041 Registriert: 08.04.2002 AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D
|
erstellt am: 20. Okt. 2004 07:42 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
|
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 20. Okt. 2004 08:15 <-- editieren / zitieren --> Unities abgeben:
|
Schachinger Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 2041 Registriert: 08.04.2002 AIS2009, PDSU 2012-2015, Plant 3D 2011-2015, NavisWorks 2010-2015, Win7 64bit SP1, Intel Core i7 870, 16 GB RAM, Quadro 2000D
|
erstellt am: 20. Okt. 2004 08:36 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
ah... darauf hatte ich nicht geachtet - ich dachte das du meinst das das lisp überhaupt abbricht. guckst du hier:
Code:
(defun C:KOTA (/ OBJEKT) (while (setq OBJEKT (ssget "_:S" '((0 . "*TEXT")))) (setq OBJEKT (ssname OBJEKT 0)) (command "_.copy" OBJEKT "" (if (= (cdr (assoc 0 (entget OBJEKT))) "MTEXT") (cdr (assoc 10 (entget OBJEKT))) (cdr (assoc (if (< 0 (cdr (assoc 72 (entget OBJEKT)))) 11 10 ) ;_ end of if (entget OBJEKT) ) ;_ end of assoc ) ;_ end of cdr ) ;_end of if PAUSE ) ;_ end of command (command "_.ddedit" (entlast)) (command) ) ;_ end of progn )
------------------ mfg Siegfried Schachinger http://www.tbschatz.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 20. Okt. 2004 08:49 <-- editieren / zitieren --> Unities abgeben:
|