| | |  | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | |  | Jetzt verfügbar: NVIDIA RTX PRO 6000 Blackwell Server Edition, eine Pressemitteilung
|
|
Autor
|
Thema: Att_update und mehrzeilige Attribute (1238 mal gelesen)
|
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general
   Beiträge: 3467
Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 16. Aug. 2013 08:48  <-- editieren / zitieren -->   Unities abgeben:          
Servus Mit dem u.A. lisp und der Befehl (ATT_Update "x" "Attributename" "wert") kann man recht einfach Attribute ausfüllen.
Funktioniert auch hervorragend, nur nicht bei mehrzeiligen Attributen. Kann mir da wer helfen oder einen Tip geben?
Code:
(defun ATT_UPDATE ( INSERTNAME ATTRIBNAME ATTRIBWERT / AUSWAHL INDEX OBJEKTDATEN)
(if (= (type INSERTNAME) 'STR)
(setq AUSWAHL (ssget "_x" (list '(0 . "INSERT")(cons 2 INSERTNAME))))
)
(if(or AUSWAHL
(setq AUSWAHL (ssget "_x" '((0 . "INSERT"))))
)
(progn
(setq INDEX -1)
(repeat (sslength AUSWAHL)
(setq OBJEKTDATEN (entget (ssname AUSWAHL (setq INDEX (1+ INDEX)))))
(if (assoc 66 OBJEKTDATEN)
(while (/= (cdr (assoc 0 OBJEKTDATEN)) "SEQEND")
(setq OBJEKTDATEN (entget (entnext (cdr (assoc -1 OBJEKTDATEN)))))
(if (and(=(cdr (assoc 0 OBJEKTDATEN)) "ATTRIB")
(=(strcase (cdr(assoc 2 OBJEKTDATEN))) ATTRIBNAME)
)
(progn
(entmod(subst(cons 1 ATTRIBWERT)
(assoc 1 OBJEKTDATEN)
OBJEKTDATEN
)
)
)
)
)
)
)
)
))
------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. "Warum Einfach es geht auch kompliziert". Schöne Grüsse aus der Steiermark Bernd P. Sport ist Mord
Rekorde: Scalelist>11727, Fehler>34365, Layerfilter>XXXX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm
Moderator
良い精神
    
Beiträge: 22689
Registriert: 03.06.2002 Alles
|
erstellt am: 16. Aug. 2013 09:06 <-- editieren / zitieren --> Unities abgeben: Nur für Bernd P 
|
| |
Bernd P
Ehrenmitglied V.I.P. h.c.
cook-general
Beiträge: 3467
Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 20. Aug. 2013 07:42 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
 |
Foren auf CAD.de
| 
