|
Lisp : Index automatisieren / Attribut (0 . ATTDEF) in Block (0 . INSERT) Filtern nach Wert
Manuel486 am 15.07.2021 um 08:26 Uhr (1)
"Schau dir vielleicht noch einmal dein SUCH-Muster an, vielleicht wäre es sinnvoller nach einem bestimmten Index zu und-color: #FFFF99'>suchen und diesen zu ersetzen"Wenn man es so hört, dann fragt man sich, warum man es nicht gleich so gemacht hat. Code:(DEFUN COPY-ATT (BLOCKNAME FROMatt TOatt / VALUE i l sset iBLK) (setq sset (ssget "x" (list (cons 2 BLOCKNAME)))) (if (= sset nil)(setq l 0)) (setq l (sslength sset)) (setq i 0) (repeat l (setq iBLK (ssname sset i)) (SETQ VALUE (GET-ATT FROMatt iBLK)) ...
| | In das Form Lisp wechseln |
|
Lisp : Schraffur Hintergrundfarbe umstellen, nur wenn Hintergrundfarbe nicht auf keine steht
Manuel486 am 22.01.2026 um 08:49 Uhr (1)
Zwei Fragen hätte ich noch:Wo ist so etwas Dokumentiert? (-3 ("HATCHBACKGROUNDCOLOR"))Mit (entget(car(entsel))) komme ich da ja nicht da dran.Es gibt ja keinen DXF Code für die Hintergrundfarbe, oder?Also wenn ich nach der Hintergrundfarbe 0,0,0 und-color: #FFFF99'>suchen würde, käme ich nicht dran außer über die Schnellauswahl!?------------------GrußManuel
| | In das Form Lisp wechseln |
|
Lisp : Attribute auslesen und in neuen Block schreiben
Manuel486 am 02.07.2021 um 11:16 Uhr (1)
Guten Morgen,ich habe eine Lösung gefunden.Habe die LISP "COPYCAT2.lsp" gefunden. (siehe Anhang), .txt im Dateinamen bitte rauslöschen.Es wird in allen übereinstimmenden Blöcken, der Wert, der Attribut-Bezeichnung -X nach -Y kopiert.Aufbau ist sehr simpel:Code:Befehl:COPYCAT2 = Block name? = FROM attribute tag? = TO attribute tag? Was jetzt noch genial wäre, wenn man bei " = Block name?" mit * und-color: #FFFF99'>suchen könnte.Also entweder so "*Blockname*", so "*Blockname" oder so "Blockname*".Meine Kenntnis für LISP reicht ...
| | In das Form Lisp wechseln |
|
Lisp : SRXTEXT Lisp suche funktioniert nicht
Manuel486 am 25.06.2021 um 13:46 Uhr (1)
Der Text Kann auch TGT-5-0-GR-E01-000--sein...Dann funktioniert der Code nicht.Bin in Lisp auch nicht fit genug um mir das umzubauen. Habe es jetzt auf srxtext2 umgeschrieben,da es im normalen srxtext Befehl sein kann, das die Express-Tools geladen sein müssen.Code:srxtext2R(...-.-.-..-...-...-)(.)$1AAllAllYDieser Befehl funktioniert jetzt. Da musste ich mich wirklich erst mal reindenken.Code:Befehl: srxtext2Search texts using [Regular expression/Exact string/Substring] Substring: REnter the searched pat ...
| | In das Form Lisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
