| |
| 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: kreis mit text in block + attribut (231 mal gelesen)
|
Raquel Mitglied
Beiträge: 50 Registriert: 15.09.2004 Autodesk Map 3D 2005
|
erstellt am: 31. Mai. 2005 14:37 <-- editieren / zitieren --> Unities abgeben:
schönen nachmittag! ich habe da eine frage. ich habe blöcke ohne attributinhalte. möchte aber den wert der als attribut neben dem block steht in den block einfügen. ist das möglich? es handelt so von 600 blöcken ohne werte. ich hänge ein beispiel an.... danke, raquel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Raquel Mitglied
Beiträge: 50 Registriert: 15.09.2004 Autodesk Map 3D 2005
|
erstellt am: 31. Mai. 2005 14:40 <-- editieren / zitieren --> Unities abgeben:
|
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 Sie nannten ihn google.
|
erstellt am: 31. Mai. 2005 14:50 <-- editieren / zitieren --> Unities abgeben: Nur für Raquel
|
Raquel Mitglied
Beiträge: 50 Registriert: 15.09.2004 Autodesk Map 3D 2005
|
erstellt am: 31. Mai. 2005 15:00 <-- editieren / zitieren --> Unities abgeben:
---------------------------- Udo Hübner schrieb: Dann ist das mit einer kleiner Lisp-Rotine kein großen Problem Nachaeinander alle Kreise in einer Schleife abarbeiten und dann immer den nächsten (Texteinfügepunkt oder textmittelpunkt) suchen. ---------------------------- vielleicht wäre ja dieses hier das richtige, aber keine ahnung wie... 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: 31. Mai. 2005 16:43 <-- editieren / zitieren --> Unities abgeben: Nur für Raquel
Hallo Raquel, ich hatte noch sowas ähnliches liegen. Ich habe den Wert für die halbe Breite des Suchfenster auf 2.50 m gesetzt, daß mußt Du vielleicht anpassen. Wenn mehrere Attribute gefunden werden, dann wirst Du aufgefordert ein Attrbut zu picken. Also, probier es aus: (defun c:att_to_att ( / aws aws_att n l temp) (setq l 2.50);;;der Wert ist die halbe Breite oder Höhe des Suchfenster für den Text (princ "\nDie Blöcke müssen \"kr\" heißen und auf dem LAyer \"kr\" liegen.") (princ "\nDie Attribute müssen auf dem Layer 0 liegen") (princ "\n") (setq aws (ssget "X"(list '(0 . "INSERT")'(2 . "kr")'(8 . "kr")))) (if aws (progn (setq n 0) (repeat (sslength aws) (command "_.zoom" "_w"(list(-(car(cdr(assoc 10 (entget(ssname aws n)))))l) (-(cadr(cdr(assoc 10 (entget(ssname aws n)))))l)) (list(+(car(cdr(assoc 10 (entget(ssname aws n)))))l) (+(cadr(cdr(assoc 10 (entget(ssname aws n)))))l))) (setq aws_att (ssget "_w" (list(-(car(cdr(assoc 10 (entget(ssname aws n)))))l) (-(cadr(cdr(assoc 10 (entget(ssname aws n)))))l)) (list(+(car(cdr(assoc 10 (entget(ssname aws n)))))l) (+(cadr(cdr(assoc 10 (entget(ssname aws n)))))l)) (list '(0 . "ATTDEF")'(8 . "0")))) (if aws_att (if (>(sslength aws_att)1) (progn (setq aws_att nil) (redraw (ssname aws n) 3) (if (setq temp (entsel "\Mehrere Attribute gefunden, bitte den zugehörigen anpicken:")) (setq aws_att (ssadd (car temp)))))) (progn (redraw (ssname aws n) 3) (if (setq temp (entsel "\Kein Attribut gefunden, bitte den zugehörigen anpicken:")) (setq aws_att (ssadd (car temp)))))) (if aws_att (progn (entmod(subst (cons 1 (cdr(assoc 2 (entget (ssname aws_att 0))))) (assoc 1(entget(JB_entnext (ssname aws n)1))) (entget (JB_entnext (ssname aws n)1)))) (entupd (ssname aws n))) ) (setq n (+ n 1))) ) (alert "Es waren keine Blöcke \"kr\" auf dem Layer \"kr\" vorhanden.")) ) (defun JB_entnext (element n1 / ) (repeat n1 (setq element (entnext element)))) ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |