| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Text Kopieren und ändern (590 mal gelesen)
|
Dober Heinz
Mitglied
Technischer Zeichner
   Beiträge: 1143
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: 2040
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: 1143
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: 2040
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: 1143
Registriert: 20.12.2002
|
erstellt am: 20. Okt. 2004 08:49 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
