Platzhalter in Attributen (Autodesk/Lisp)

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

Exklusives EDU-Programm für RTX PRO Blackwell, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: Platzhalter in Attributen (1080 mal gelesen)

sponk-mg
Mitglied

Senden Sie eine Private Message an sponk-mg

Schreiben Sie einen Gästebucheintrag für sponk-mg

Beiträge: 38
Registriert: 10.10.2011

erstellt am: 08. Dez. 2011 16:19

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

N'Abend,

Folgendes funktioniert, solange die Zeichenkette "VZ 237" gesucht wird.
Suche ich nach allen Zeichenketten "VZ *" ergibt die Suche nil.
Wie komme an an alle "VZ *" ran?
Kann mir hier wcmatch weiterhelfen oder gibt es noch eine einfachere Methode?

(defun attribloe (/ AWS INSERT INDEX ATTDATA)
(if (setq AWS (ssget "_X" (list '(0 . "INSERT")'(66 . 1))))
(progn
(setq INDEX -1)
(repeat (sslength AWS)
(setq INSERT(ssname AWS (setq INDEX (1+ INDEX))))
(setq ATTDATA(entget(entnext INSERT)))
(while (and(=(cdr(assoc 0 ATTDATA)) "ATTRIB")
(=(cdr(assoc 1 ATTDATA)) "VZ 237"))
; Wert "VZ 237" wird bei Verwendung von Platzhalter "VZ *" nicht entfernt
(entmod(subst(cons 1 "")(assoc 1 ATTDATA )ATTDATA))
(setq ATTDATA(entget(entnext(cdr(assoc -1 ATTDATA)))))
)
)
)
)
)

Vielen Dank

Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

CADwiesel
Moderator
CAD4FM UG

Senden Sie eine Private Message an CADwiesel

Schreiben Sie einen Gästebucheintrag für CADwiesel

Beiträge: 1999
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 08. Dez. 2011 17:17

<-- editieren / zitieren -->

Unities abgeben:

Nur für sponk-mg

Zitat:
(=(cdr(assoc 1 ATTDATA)) "VZ 237"))

Gleich ist eben Gleich und nicht Teil

verwende stattdessen wcmatch

Ich habe ein Tool auf meiner Seite das Suchtext heißt sieh dir das mal an

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige:	Infos zum Werbeplatz >>
ISYBAU Translator 2026 CAD APP für Kostenlose Werkzeuge / Add-Ons, Infrastruktur, Datenaustausch Das Original jetzt auch auf CADSOMA! Der ISYBAU Translator für Autodesk® Civil 3D® 2026 ist eine unverzichtbare Erweiterung für jeden, der Kanaldaten im ISYBAU (-XML) Format exportieren oder importieren muss. Es besteht ein direkter Zugriff auf die Autodesk® Civil 3D® eigenen Daten.

sponk-mg
Mitglied

Beiträge: 38
Registriert: 10.10.2011

erstellt am: 08. Dez. 2011 22:29

<-- editieren / zitieren -->

Unities abgeben:

Besten Dank @ CADWiesel

(defun attribloe (/ AWS INSERT INDEX ATTDATA wc)
(if (setq AWS (ssget "_X" (list '(0 . "INSERT")'(66 . 1))))
(progn
(setq INDEX -1)
(repeat (sslength AWS)
(setq INSERT(ssname AWS (setq INDEX (1+ INDEX))))
(setq ATTDATA(entget(entnext INSERT)))
(setq wc(cdr(assoc 1 ATTDATA)))
(while (and(=(cdr(assoc 0 ATTDATA)) "ATTRIB")
(or
(wcmatch (cdr(assoc 1 ATTDATA)) "VZ*")
(wcmatch (cdr(assoc 1 ATTDATA)) "RVZ*")))
(entmod(subst(cons 1 "")(assoc 1 ATTDATA )ATTDATA))
(setq ATTDATA(entget(entnext(cdr(assoc -1 ATTDATA)))))
)
)
)
)
)

So klappt es wunderbar und ich kann zugleich noch andere Abfragen damit abarbeiten.

Gruß, Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

ISYBAU Translator 2026 CAD APP für Kostenlose Werkzeuge / Add-Ons, Infrastruktur, Datenaustausch