| |
![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Suche nach Farbe 255,255,255 per Lisp oder Befehlsstring (1839 / mal gelesen)
|
Manuel486 Mitglied Technischer Zeichner Elektro
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Manuel486](/foren/ubb/pmimages/gbu.gif) Beiträge: 210 Registriert: 31.01.2020
|
erstellt am: 31. Jan. 2020 12:03 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo liebe CAD Gemeinde, ich hoffe ich bin hier richtig mit meiner Frage. Ich habe folgenden Befehl "gefunden" (google) für eine Farbe (in diesem Fall Farbe 7) auszuwählen. ^C^C(sssetfirst(setq a(ssget "_:s" '((62 . 7))))a);alle; Es sollen also alle Objekte in der Zeichnung die auf Farbe 7 liegen in der Auswahl sein. Das klappt auch soweit sehr gut. Jetzt habe ich zwei Probleme: 1. Ich möchte nach der Farbe 255,255,255 suchen, aber weis nicht wie. ^C^C(sssetfirst(setq a(ssget "_:s" '((62 . 255,255,255))))a);alle; So klappt es schon mal nicht und ich Probiere und Suche schon ewig danach was ich falsch mache... Oder funktioniert die Suche nach RGB Farben schlicht nicht? 2. Ich hätte gerne die Möglichkeit das ich etwas nur im Modell in die Auswahl bekomme und nicht Modell + Layout Beschäftige mich wirklich schon etwas mit dem Thema aber hier komme ich einfach nicht weiter. MFG Manuel486
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/cadffm.gif)
![Schreiben Sie einen Gästebucheintrag für cadffm](/foren/ubb/pmimages/gbu.gif) Beiträge: 22171 Registriert: 03.06.2002 Alles
|
erstellt am: 31. Jan. 2020 12:17 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Manuel486
62er für ACI Farben (wenn es keinen 420er gibt) 420er für TrueColor (wenn es keinen 430er gibt) 430er für Farbbuchfarben (sssetfirst nil (ssget "_X" '((430 . "")(420 . 16777215)))) Modellbereich: Im Gruppencode 410 wirst du fündig! (Der aktuelle Bereich ist in der Systemvariable CTAB gespeichert..)
(ssget "_X" '((430 . "")(420 . 16777215)(410 . "Model")))
Objektdaten einsehen, ändern, vergleichen bringt einen oft weiter: (entget(car(entsel))) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Manuel486 Mitglied Technischer Zeichner Elektro
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Manuel486](/foren/ubb/pmimages/gbu.gif) Beiträge: 210 Registriert: 31.01.2020
|
erstellt am: 31. Jan. 2020 13:27 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hätte nicht mit einer so schnellen Antwort gerechnet Der Befehl: (sssetfirst nil (ssget "_X" '((430 . "")(420 . 16777215)))) klappt super, vielen dank dafür. Wie kommst du auf diese Zahl für Farbe 255,255,255? 16777215 ?! Der Befehl: (ssget "_X" '((430 . "")(420 . 16777215)(410 . "Model"))) wählt bei mir gar nicht aus... Vielleicht noch etwas zu meiner Vorgehensweise. Ich habe eine extra Palette in meine Werkzeugkästen gepackt. Jetzt sammle ich Befehle, die ich öfter brauche und versuche diese dann zu verbinden. Ich habe also ein Werkzeug (das ich später mit einem Bild versehe) welches einen Befehlsstring ausführt. Im aktuellen suche ich mehrere Farben (255,255,255/63,63,63/und 255) und möchte diese Farben automatisch gelöscht haben. Ich würde das jetzt für mich so lösen: ^C^C(sssetfirst nil (ssget "_X" '((430 . "")(420 . 16777215)))),_erase;^C^C(sssetfirst(setq a(ssget "_:s" '((62 . 255))))a);alle;_erase;^C^C(sssetfirst nil (ssget "_X" '((430 . "")(420 . ???Farbe 63,63,63/ich weis nicht was hier hin kommt???))))_erase; Jetzt schlagen wahrscheinlich viele hier die Hände über dem Kopf zusammen Im ganzen läuft es darauf hinaus das vorher noch einiges mehr passiert. Hier mal mein Befehl zum "Aufbereiten" einer Architektenzeichnung. Mit dem was gemacht wir in "Reinschrift" und dem Befehl. Layer 0 aktuell / Layer Entsperren / Layer Tauen / Layer Ein / Layer Lstärke Vorlage/ Neuer Layer _A-BEMASSUNG + _A-BEMASSUNG-INNEN / Layout löschen / Modell aktuell / 3x burst / Löscht alle Punkte + Abdeckungen in der Zeichnung / Bemassung in die Auswahl um Xplode und Objekte Vorher auf Layer selbst auszuführen ^C^C-LAYER;SEtzen;0;ENtsperren;*;Tauen;*;Ein;*;LStärke;_Default;*;Neu;_A-BEMASSUNG;Neu;_A-BEMASSUNG-INNEN;;^C^C-LAYOUT;Löschen;;-LAYOUT;SEtzen;Modell;^C^C_burst;alle;;_burst;alle;;_burst;alle;;^C^C(sssetfirst(setq a(ssget "_:s" '((0 . "POINT"))))a);alle;_erase;^C^C(sssetfirst(setq a(ssget "_:s" '((0 . "WIPEOUT"))))a);alle;_erase;^C^C(sssetfirst(setq a(ssget "_:s" '((0 . "DIMENSION"))))a);alle; Jetzt bin ich hier so weit gekommen das er mir die Bemassung auswählt. Ich möchte danach den Befehl: _explode;_Pselect;V; ausführen und die Bemassung auf den Layer _A-BEMASSUNG legen bzw legen lassen. Hier kommt jetzt aber folgender Fehler: Befehl: _explode Objekt wählen: Befehl: _.pselect Objekte wählen: v Kein vorheriger Auswahlsatz. Warum ist nichts in der Auswahl. Der Ablauf ist der selbe wie wenn ich es einzeln mache… und dann klappt es. Es gibt also viele Fragen und ich möchte keinen damit auf den nerv gehen, ich möchte selbst weiter kommen, nur die Frage ist wie?! Ich habe hier im Forum und auf diversen Seiten(http://www.tutorial.autolisp.info/ssget.html) schon viel gelesen, komme aber nicht so richtig weiter. Mir fehlt es noch etwas, dass ich sagen kann: "Es hat klick gemacht im Kopf".
MFG Manuel486 [Diese Nachricht wurde von Manuel486 am 31. Jan. 2020 editiert.] [Diese Nachricht wurde von Manuel486 am 31. Jan. 2020 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/cadffm.gif)
![Schreiben Sie einen Gästebucheintrag für cadffm](/foren/ubb/pmimages/gbu.gif) Beiträge: 22171 Registriert: 03.06.2002 Alles
|
erstellt am: 31. Jan. 2020 15:50 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Manuel486
Das ist zuviel für mich heute Aber ohne es nochmal zu testen: (ssget "_X" '((430 . "")(420 . 16777215)(410 . "Model"))) wählt bei mir gar nicht aus... Wenn ich keinen Fehler gemacht habe, dann bedeutet dies das du kein passendes Objekt im Modellbereich hast. Und Ja, das sieht noch nach viel Feinarbeit aus, aber alles auf einmal ist auch ein wenig viel.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/cadffm.gif)
![Schreiben Sie einen Gästebucheintrag für cadffm](/foren/ubb/pmimages/gbu.gif) Beiträge: 22171 Registriert: 03.06.2002 Alles
|
erstellt am: 31. Jan. 2020 17:17 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Manuel486
Zitat: Original erstellt von Manuel486: Wie kommst du auf diese Zahl für Farbe 255,255,255? 16777215 ?! Das kann man berechnen oder abfragen, in deinem Fall empfehle ich ein Objekt mir der passenden Farbe zu erstellen und dann wie oben geteigt die Objektdaten abzufragen.Der Befehl: (ssget "_X" '((430 . "")(420 . 16777215)(410 . "Model"))) wählt bei mir gar nicht aus... Jetzt habe ich verstanden! Dir fehlen die Basics in dem Fall. SSGET ist eine Lispfunktion zum erstellen von Auswahlsätzen, ssget markiert keine Objekte. Führe (ssget "_X" '((430 . "")(420 . 16777215)(410 . "Model"))) aus, wenn die Antwort nicht NIL war, dann wurde ein Auswahlsatz angelegt. Starte Befehl Schieben, dann die Objektwahlmethode VORHER... Thats it.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Manuel486 Mitglied Technischer Zeichner Elektro
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Manuel486](/foren/ubb/pmimages/gbu.gif) Beiträge: 210 Registriert: 31.01.2020
|
erstellt am: 31. Jan. 2020 17:36 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Wie frage ich denn objektdaten ab? Du schreibst wie oben gezeigt, weiß nicht was du meinst... Habe noch die Farbe 63,63,63 die ich filtern möchte zum löschen. Für mich ist es wichtig, wie bekomme ich schraffuren, bemassungen, farben, linientypen etc. in eine Auswahl ohne die schnellwahl mit der Maus auswählen zu müssen. Ich glaube du verstehst teilweise nicht was ich vor habe bzw erkläre ich es vielleicht falsch. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/cadffm.gif)
![Schreiben Sie einen Gästebucheintrag für cadffm](/foren/ubb/pmimages/gbu.gif) Beiträge: 22171 Registriert: 03.06.2002 Alles
|
erstellt am: 31. Jan. 2020 17:49 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Manuel486
Zitat: Original erstellt von cadffm: Objektdaten einsehen, ändern, vergleichen bringt einen oft weiter: (entget(car(entsel)))
So fragt man die ab. Und keine Sorge, ich und andere hier verstehen sehr gut was du vorhast, auch sieht man die Schwächen und Fallen. Du bist dabei, nicht ungewöhnlich, die mit vielen neuen(?) Dingen gleichzeitig zu beschäftigen, da weiß man nicht wo man Anfangen soll. Ich habe mich daher mal fast ausschließlich auf die Farben filtern Sache beschränkt für den Anfang, aber die Hilfestellung reichte halt noch nicht aus. Lese und teste die einzelnen Dinge, die Hilfe [F1] zusammen mit der genannten Homepage sind wirklich gut, auch wenn ich empfehle die Homepage ohne konkrete Projekte stumpf von A bis Z durchzuarben(nicht nur lesen), also umblättern erst wenn man es verstanden hat. DAS WIRD SCHON!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif)
![](/foren/avatars/CADwiesel.gif)
![Schreiben Sie einen Gästebucheintrag für CADwiesel](/foren/ubb/pmimages/gbu.gif) Beiträge: 1988 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 31. Jan. 2020 17:51 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Manuel486
|
Meldin Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Meldin](/foren/ubb/pmimages/gbu.gif) Beiträge: 397 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 01. Feb. 2020 12:59 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Manuel486
Hallo, als erstes würde ich mich entscheiden Zitat: per Lisp oder Befehlsstring
daher wäre als erstes mein tipp den Befehlsstring z.B. nur so aussehen zu lassen. ^C^C(c:MeinBefehl); und mein LISP dann so: (defun c:MeinBefehl (/) (sssetfirst nil (ssget "_X" '((430 . "")(420 . 16777215)))) ... ... ... ) ------------------ Gruß Wolfgang ![](/foren/ubb/wink.gif) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Manuel486 Mitglied Technischer Zeichner Elektro
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Manuel486](/foren/ubb/pmimages/gbu.gif) Beiträge: 210 Registriert: 31.01.2020
|
erstellt am: 01. Feb. 2020 13:09 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
^C^C(c:MeinBefehl); nur das ich es richtig verstehe. c:MeinBefehl wäre der Ablageort der .lsp Datei ?! Also direkt auf der C Festplatte, oder was gibt c:MeinBefehl an? Wenn ich es auf C:\ProgramData\Autodesk\xyz.lsp liegen hätte, dann müsste ich es so schreiben oder? Danke für eure Antworten und ein schönes WE. LG Manuel486
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meldin Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Meldin](/foren/ubb/pmimages/gbu.gif) Beiträge: 397 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 01. Feb. 2020 13:40 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Manuel486
Hallo, Nein !!! das "defun c:" sagt nur das eine Lokale Funktion definiert wir! Das heißt wenn du nachher in ACad in die Befehlszeile MeinBefehl eingibst wird die Funktion ausgeführt ohne c: dann nicht. Den Speicherort der lsp sollte wenn du "appload" eingibst bei dem Aktenkoffersymbol Inhalt eingetragen werden. So wird das lsp jedes mal automatisch geladen. Dann soltest du in den Optionen noch wenn die lsp nicht in einem suchpfad von ACad liegt dieden bei Dateien eintragen sonst meckert ACad ab und an. Aber hier findest du wenn garantiert detailirtere Anleitungen im Netz. ------------------ Gruß Wolfgang ![](/foren/ubb/wink.gif) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Manuel486 Mitglied Technischer Zeichner Elektro
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Manuel486](/foren/ubb/pmimages/gbu.gif) Beiträge: 210 Registriert: 31.01.2020
|
erstellt am: 03. Feb. 2020 14:28 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Hallo, ich habe jetzt diesen Befehl für die Farbe 255,255,255 ^C^C(sssetfirst nil (ssget "_X" '((430 . "")(420 . 16777215)(410 . "Model")))) jetzt wollte ich diesen Befehl für Farbe 7 umschreiben, habe jetzt schon viele Varianten durch ich hätte es jetzt so geschrieben. ^C^C(sssetfirst nil (ssget "_X" '((62 . 7)(410 . "Model")))) der Befehl wählt mir aber immer alle Objekte im Modell aus... Habe erst gedacht ich hätte es kapiert, jetzt stehe ich wieder auf dem Schlauch ![](/foren/ubb/heul.gif) Edit: Er wählt nicht alles aus, aber er hat auch Objekte mit der Farbe 255,255,255 in der Auswahl. Ich möchte ja nur Farbe 7 (weis) in meiner Auswahl... [Diese Nachricht wurde von Manuel486 am 03. Feb. 2020 editiert.] [Diese Nachricht wurde von Manuel486 am 03. Feb. 2020 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/cadffm.gif)
![Schreiben Sie einen Gästebucheintrag für cadffm](/foren/ubb/pmimages/gbu.gif) Beiträge: 22171 Registriert: 03.06.2002 Alles
|
erstellt am: 03. Feb. 2020 14:39 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Manuel486
Zitat: Original erstellt von Manuel486: der Befehl wählt mir aber immer alle Objekte im Modell aus... Dann hat auch jedes Element den Wert 7 im gc62 Das kannst du ja bereits (selbst) abfragen mit dem entget car entsel.Habe erst gedacht ich hätte es kapiert, jetzt stehe ich wieder auf dem Schlau Vielleicht hast du einen Fehler beim testen gemacht, also Datei neu öffnen und konzentriert erneut testen. Falls alle den gc62 mit Wert7 haben, die Objekte aber zugewisene TrieColor oder Farbbuchfarben sind, dann bedenke auch meinen Hinweis oben: WENN kein Farbbuchwert in 430 bzw. WENN kein TrueColorWert in 420
Schließt Farbbuch und TrueColor-Zuweisungen aus: (ssget "_X" '((62 . 7)(-4 . "<not")(-4 . "*")(420 . 0)(-4 . "not>")(410 . "Model")))
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif) ![](/foren/ubb/Admin4.gif) ![](/foren/ubb/Admin5.gif) ![](/foren/ubb/Admin1.gif) ![](/foren/ubb/Admin2.gif) ![](/foren/ubb/Admin3.gif)
![](/foren/avatars/cadffm.gif)
![Schreiben Sie einen Gästebucheintrag für cadffm](/foren/ubb/pmimages/gbu.gif) Beiträge: 22171 Registriert: 03.06.2002 Alles
|
erstellt am: 03. Feb. 2020 14:40 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Manuel486
|
Manuel486 Mitglied Technischer Zeichner Elektro
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Manuel486](/foren/ubb/pmimages/gbu.gif) Beiträge: 210 Registriert: 31.01.2020
|
erstellt am: 03. Feb. 2020 15:06 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
So. Fehler gefunden. Objekte auf Farbe 255,255,255 haben bei 420 diesen Wert: 16777215 und bei 62 die 7, also genau den selben Wert als würde ich nach weis suchen. Dieser Befehl ist super um wirklich nur weis (7) zu Filtern: ^C^C(sssetfirst nil (ssget "_X" '((62 . 7)(-4 . "<not")(-4 . "*")(420 . 0)(-4 . "not>")(410 . "Model")))) Vielen vielen dank für die Hilfe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Manuel486 Mitglied Technischer Zeichner Elektro
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Manuel486](/foren/ubb/pmimages/gbu.gif) Beiträge: 210 Registriert: 31.01.2020 Windows 11 Pro 64-Bit - Corsair 7000D Airflow - Asus ROG Maximus Z790 Hero - Intel Core i9-13900KS - Teamgroup T-Force 2x48GB DDR5 RAM @ 5600 MHz - Crucial T700 SSD 2TB M2 - Gainward NVIDIA GeForce RTX 4090 24GB - Corsair HX1000i - Corsair K55 RGB - Corsair Dark Core Pro - Elgato Stream Deck 15 Tasten - AutoCAD MEP 2023 - Revit 2021.1.9 + 2022.1.6 + 2023.1.4 + 2024.2.1 + 2025.0.2
|
erstellt am: 05. Feb. 2020 15:16 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Zitat: Original erstellt von Meldin: Hallo, als erstes würde ich mich entscheiden daher wäre als erstes mein tipp den Befehlsstring z.B. nur so aussehen zu lassen. ^C^C(c:MeinBefehl); und mein LISP dann so:(defun c:MeinBefehl (/) (sssetfirst nil (ssget "_X" '((430 . "")(420 . 16777215)))) ... ... ... )
Ich glaube es läuft auf einen Befehlsstring hinaus. Das ist mein bisher längster Befehlsstring. ^C^C-LAYER;SEtzen;0;ENtsperren;*;Tauen;*;Ein;*;LStärke;_Default;*;^C^C-LAYOUT;Löschen;;-LAYOUT;SEtzen;Modell;^C^C_burst;alle;;_burst;alle;;_burst;alle;_burst;alle;_burst;alle;;^C^C(sssetfirst(setq a(ssget "_:s" '((0 . "POINT"))))a);alle;_erase;^C^C(sssetfirst(setq a(ssget "_:s" '((0 . "WIPEOUT"))))a);alle;_erase;^C^C_-purge;_all;*;_no;-LAYER;Neu;_A-BEMASSUNG;Neu;_A-BEMASSUNG-INNEN;;_zoom;g;^C^C(sssetfirst(setq a(ssget "_:s" '((0 . "DIMENSION"))))a);alle; Jetzt habe ich so lange daran gesessen bis es funktioniert hat und jetzt alles auf LISP umstellen... Dann bin ich ja wieder eine Woche beschäftigt Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meldin Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Meldin](/foren/ubb/pmimages/gbu.gif) Beiträge: 397 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 06. Feb. 2020 09:34 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Manuel486
Hallo, also damit du vielleicht dann mal siehst wie es aussehen könnte habe ich dir das mal versucht 1:1 umzusetzen. Der genaue Ablauf erschließt sich mir auch nicht warum du 3 mal etwas auswählst aber das ist deine Bedienung darum jetzt auch nicht weiter hinterfragt. Code: (defun c:MeinBefehl (/) (command "-LAYER" "SEtzen" "0" "ENtsperren" "*" "Tauen" "*" "Ein" "*" "LStärke" "_Default" "*" "") (command "-LAYOUT" "Löschen" "") (while (setq a (ssget "_X" (list (cons 0 "INSERT")(cons 66 1)(cons 410 (getvar "ctab"))))) (sssetfirst nil a) (c:burst) ) (if(setq a(ssget "_:s" '((0 . "POINT")))) (command "_erase" a) ) (if(setq a(ssget "_:s" '((0 . "WIPEOUT")))) (command "_erase" a) ) (command "_-purge" "_all" "*" "_no") (command "-LAYER" "Neu" "_A-BEMASSUNG" "Neu" "_A-BEMASSUNG-INNEN" "") (command "_zoom" "g") (if(setq a(ssget "_:s" '((0 . "DIMENSION")))) (command "_erase" a) ) )
------------------ Gruß Wolfgang ![](/foren/ubb/wink.gif) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Manuel486 Mitglied Technischer Zeichner Elektro
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Manuel486](/foren/ubb/pmimages/gbu.gif) Beiträge: 210 Registriert: 31.01.2020
|
erstellt am: 12. Feb. 2020 16:36 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
Zur Erklärung was ich mache. Ich bereite einen Plan vom Architekten auf. Wir haben einen gewissen Ablauf der zu 90% immer gleich ist. Layer 0 aktuell / Layer Entsperren / Layer Tauen / Layer Ein / Layer Lstärke Vorlage Layout löschen / Modell aktuell (bei mehren Layouts können alle raus) 5x burst hier bräuchte ich einen Befehl der Burst macht bis er nichts mehr findet Löscht alle Punkte + Abdeckungen in der Zeichnung (für uns unwichtig) Neuer Layer _A-BEMASSUNG + _A-BEMASSUNG-INNEN (hier kommt später die Bemassung drauf die aufgesprengt wird) Bereinigt alles / Zoom Grenzen Bemassung in die Auswahl um Ursprung (_explode) und Objekte Vorher auf Layer selbst auszuführen Dein Befehl läuft bis vor Burst, dann ist Ende :-( (setq a (ssget "_X" (list (cons 0 "INSERT")(cons 66 1)(cons 410 (getvar "ctab"))))) (sssetfirst nil a) (c:burst) MFG Manuel486 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
![](https://ww4.cad.de/Ads/adview.php?what=zone:16178&n=aee1ae73)
| Elektroplaner / Elektrokonstrukteur (m/w/d) | #Direkte Personalvermittlung#Unbefristete Festanstellung# Unser Mandant ist ein solides, dynamisches und schnell wachsendes Unternehmen und gehört zu den globalen Markführern im industriellen Testsektor für die Hydraulik-, Automobil- und Luftfahrtmärkte. Er ist international unter anderem in Italien, Deutschland und den USA vertreten. Leidenschaft für Innovation und Technologie werden groß geschrieben.... | Anzeige ansehen | Feste Anstellung |
|
Meldin Mitglied
![](/foren/ubb/star3.gif) ![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für Meldin](/foren/ubb/pmimages/gbu.gif) Beiträge: 397 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 13. Feb. 2020 09:28 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für Manuel486
Also ich wüßte jetzt nicht warum Code: (while (setq a (ssget "_X" (list (cons 0 "INSERT") (cons 66 1) (cons 410 (getvar "ctab")) ) ) ) (sssetfirst nil a) (c:burst) )
nicht laufen sollte kann ja nur an den beiden Command davor liegen also das es in den ACad versionen unterschiede im Befehlsablauf gibt vieleicht hat jemand anderes die Möglichkeit es zu testen an sonsten musst du mal jeden Command eben selber durch gehen ließt sie doch im Grunde wie Klartext (zumindest wenn man so ein Buttonscript schreiben kann wie du ![](/foren/ubb/biggrin.gif) ) ------------------ Gruß Wolfgang ![](/foren/ubb/wink.gif) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |