| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: Text in Attribute ändern (7987 mal gelesen)
|
BERNSTEIN-ULI Mitglied
Beiträge: 4 Registriert: 18.11.2003 Windows 2000; Autocad 2002 Windows XP; Autocad 2004
|
erstellt am: 18. Nov. 2003 09:55 <-- editieren / zitieren --> Unities abgeben:
Hallo Spezialisten, wer kann mir weiterhelfen. Ich muss von sämtliche Grundrissplänen (export aus Nemetschek) die Raumstempel wie Raumnr., Raumbez., Fläche usw. (jeweils einzeiliger Text) in Blockattribute umwandeln. Meine Frage: Gibt es in Autocad 2004 eine Möglichkeit dieses Problem schnell und einfach zu lösen.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 18. Nov. 2003 10:45 <-- editieren / zitieren --> Unities abgeben: Nur für BERNSTEIN-ULI
Hai, das hier könnte vielleicht klappen. Unter 2002 läuft die lisp ;;TXT2ATTDEF.LSP TEXT TO ATTRIBUTES (defun C:TXT2ATTDEF () (setq PCMDECHO (getvar "CMDECHO")) (setvar "CMDECHO" 0) (setq TXT1 (entget (car (entsel "\nwähle Text : ")))) (setq IFTXT (cdr (assoc 0 TXT1))) (while (/= IFTXT "TEXT") (setq TXT1 (entget (car (entsel (strcat "\nSelection Error !! You selected " IFTXT "! \nPlease Select Text : " ) ;_ end of strcat ) ;_ end of entsel ) ;_ end of car ) ;_ end of entget ) ;_ end of setq (setq IFTXT (cdr (assoc 0 TXT1))) ) ;_ end of while (setq TXT1VAL (cdr (assoc 1 TXT1))) (setq TXT1IP (cdr (assoc 10 TXT1))) (setq TXT1HT (cdr (assoc 40 TXT1))) (setq TXT1ROT (cdr (assoc 50 TXT1))) (setq APRMPT (getstring T "\nAttribute -Eingabewert- : ")) (entdel (cdar TXT1)) (setq PAFLAGS (getvar "AFLAGS")) (setvar "AFLAGS" 0) (command "attdef" "" TXT1VAL APRMPT TXT1VAL TXT1IP TXT1HT (/ (* TXT1ROT 180) (/ 22.0 7.0)) ) ;_ end of command (setvar "AFLAGS" PAFLAGS) (setvar "CMDECHO" PCMDECHO) (princ) ) ;defun txt2attdef ;;End Of Routine ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 18. Nov. 2003 11:01 <-- editieren / zitieren --> Unities abgeben: Nur für BERNSTEIN-ULI
Hallo Uli, @AsSchu dieses Tool wandelt die Texte in Attributdefinitionen um. Das ist aber nur die halbe Miete. Wenn ich die Frage richtig verstehe, dann sollen die Texte in einen Raumstempel-Block als Attributwert übernommen werden. Heißt also, die Texte müssen erkannt werden und dann über irgendwelche Kriterien bestimmten Attributen eines bestehenden (oder einzufügenden) Blockes zugeordnet werden. Das ganze dann nach Möglichkeit ohne manuelles Eingreifen, also in einem Durchgang für die gesamte Zeichnung. Ein AutoCAD-Befehl ist mir dafür nicht bekannt, mit LISP kann ich mir allerdings Lösungen vorstellen. Bei Fragen ... Grüße Holger ------------------ Holger Brischke (defun - Lisp over night! AutoLISP-Programmierung für AutoCAD NEU: AutoLISP- Projektschulung NEU: Praxisorientierte Schulungen und Workshops durch die bekannten CAD.de Moderatoren AutoCAD, AutoCAD LT, AutoCAD Mechanical, Mechanical Desktop, Architectural Desktop Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hirschi Mitglied Ingenieur
Beiträge: 55 Registriert: 07.06.2002 ACAD2007 - 2014 Win7 64bit AO XP/pit 2009/2010/2011/2012/2013 Autodesk Building Design Suite 2014 Intel Xenon,3,07GHz/6GB RAM Grafik NVidia Quadro FX 580
|
erstellt am: 15. Sep. 2008 14:30 <-- editieren / zitieren --> Unities abgeben: Nur für BERNSTEIN-ULI
Ich krame diesen Beitrag jetzt wieder raus. Gibt es inzwischen eine Möglichkeit, aus Texten Attribute zu zaubern? Im Tool werden nämlich die Textstile zu Standard geändert; sie sollen aber so bleiben, wie sie schon in der Zeichnung sind. Axel [Diese Nachricht wurde von Hirschi am 15. Sep. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 15. Sep. 2008 15:29 <-- editieren / zitieren --> Unities abgeben: Nur für BERNSTEIN-ULI
|
Hirschi Mitglied Ingenieur
Beiträge: 55 Registriert: 07.06.2002 ACAD2007 - 2014 Win7 64bit AO XP/pit 2009/2010/2011/2012/2013 Autodesk Building Design Suite 2014 Intel Xenon,3,07GHz/6GB RAM Grafik NVidia Quadro FX 580
|
erstellt am: 15. Sep. 2008 16:22 <-- editieren / zitieren --> Unities abgeben: Nur für BERNSTEIN-ULI
Danke, das klappt. Geht auch, daß statt der Eingabeaufforderung die Bezeichnung abgefragt wird? Es wird nämlich jetzt mit der ausgewählten Textzeile auch die Bezeichnung übernommen. Und eine Bezeichnung mit Leerzeichen wird beim Doppelklick (Attributsdef. bearb.) angemeckert. [Diese Nachricht wurde von Hirschi am 15. Sep. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 16. Sep. 2008 08:35 <-- editieren / zitieren --> Unities abgeben: Nur für BERNSTEIN-ULI
Moin, tausche den Text: (setq APRMPT (getstring T "\nAttribute -ATTRibutwert- : ")) (entdel (cdar TXT1)) (setq PAFLAGS (getvar "AFLAGS")) (setvar "AFLAGS" 0) (command "attdef" "" APRMPT TXT1VAL TXT1VAL TXT1IP TXT1HT (/ (* TXT1ROT 180) (/ 22.0 7.0)) ) ;_ end of command (setvar "AFLAGS" PAFLAGS) (setvar "CMDECHO" PCMDECHO) (princ) ) ;defun txtatt ;;End Of
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hirschi Mitglied Ingenieur
Beiträge: 55 Registriert: 07.06.2002 ACAD2007 - 2014 Win7 64bit AO XP/pit 2009/2010/2011/2012/2013 Autodesk Building Design Suite 2014 Intel Xenon,3,07GHz/6GB RAM Grafik NVidia Quadro FX 580
|
erstellt am: 16. Sep. 2008 16:02 <-- editieren / zitieren --> Unities abgeben: Nur für BERNSTEIN-ULI
|