| |
| 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: ATT Textstil ändern (1196 mal gelesen)
|
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002
|
erstellt am: 26. Feb. 2010 10:31 <-- editieren / zitieren --> Unities abgeben:
Hallo Jörn Ich habe den Lisp gefunden, wo man bei ATT den Textstil ändern kann. Wenn ich aber die ATT synchronisiere wird wieder der alte Stil übernommen. Ist das normal. Danke Hallo Attilo, nur auf die schnelle und ungetestet, damit solltest Du global für die Attribute von auszuwählenden Blöcken einen anderen Textstil zuweisen können.
[/list] Code: (defun c:att_ts ( / ) (princ "\nBlöcke auswählen") (if (setq aws (ssget (list (cons 0 "INSERT")))) (progn (setq ts(getstring "\nneuer Textstil: ")) (if (not (tblsearch "STYLE" ts)) (progn (alert "falscher Textstil") (exit))) (setq n 0) (princ (strcat "\n("(itoa n)"/" (itoa (sslength aws))")")) (repeat (sslength aws) (setq ent (ssname aws n)) (while (and(setq ent (entnext ent))(/=(cdr(assoc 0 (entget ent)))"SEQEND")) (if (=(cdr(assoc 0 (entget ent)))"ATTRIB") (entmod (subst (cons 7 ts)(assoc 7 (entget ent))(entget ent))))) (entupd (ssname aws n)) (setq n (+ n 1)) (princ (strcat "\r("(itoa n)"/" (itoa (sslength aws))")")) )) (alert "keine Auswahl"))) [list] ------------------ viele Grüße Jörn ------------------ Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 Alles
|
erstellt am: 26. Feb. 2010 10:40 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
Antwortest du hier auf eine PM von Attilo ? Zudem wäre die Antwort: Ja das ist normal wenn in deiner Blockdefinition ein anderer Textstil für diese Attribute hinterlegt ist, das oben gepostete Lisp ändert nur ATTRIBute von BLOCKREFERENZEN und nicht den Textstil von ATTributDEFinitionen von BLOCKen. Attsync = ändere die Blockreferenzen(sammt Attribute) auf die aktuelle Blockdefinition. (samt aller Eigenschaften, wie zB. auch "Position" etc.) ------------------ CAD.de System-Angaben - CAD on demand - User:FAQ(Acad) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 26. Feb. 2010 10:42 <-- editieren / zitieren --> Unities abgeben: Nur für Dober Heinz
Hallo Heinz, ja, das ist normal. Du hast schließlich nur den Blöcken den neuen Textstil zugewiesen, nicht der Blockdefinition. Wenn Du das Bespiel auf Blockdefinitionen ändern willst hier ein paar Stichpunkte: (entget(tblobjname "BLOCK" "Blockname")) dann mit ENTNEXT durchhangeln und bei den Objekten "ATTDEF" den Textstil ändern.
------------------ viele Grüße Jörn http://www.bosse-engineering.com 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: 26. Feb. 2010 10:47 <-- editieren / zitieren --> Unities abgeben:
Hallo cadffm Nein das lisp habe ich hier gefunden, und auch hier so reingestellt. Danke mal für antwort. Ok alles klar, wahr mir nicht sicher ob hier auch die Blockdefinition auch geändert wird. Ich will all meine Blöcke auf den gleich Stand mit dem Textstil bringen.
------------------ Heinz Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dober Heinz Mitglied Technischer Zeichner
Beiträge: 1146 Registriert: 20.12.2002 Autocad 2021/64B Win10 WORKSTATION Intel(R) CPU E5-1620 3.60GHz 32 GB Ram 64 Bit-Betriebssystem HP Designjet T7200 Grafik NVIDIA Quadro P4000 ZWCAD2021
|
erstellt am: 26. Feb. 2010 11:03 <-- editieren / zitieren --> Unities abgeben:
|