Hot News:
   

Mit Unterstützung durch:

  Foren auf CAD.de
  Lisp
  Schraffur Hintergrundfarbe umstellen, nur wenn Hintergrundfarbe nicht auf keine steht

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
  
NVIDIA Run:ai RTX PRO Server Promotion, eine Pressemitteilung
Autor Thema:  Schraffur Hintergrundfarbe umstellen, nur wenn Hintergrundfarbe nicht auf keine steht (77 mal gelesen)
Manuel486
Mitglied
Technischer Zeichner Elektro


Sehen Sie sich das Profil von Manuel486 an!   Senden Sie eine Private Message an Manuel486  Schreiben Sie einen Gästebucheintrag für Manuel486

Beiträge: 215
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 -
Corsair Void Elite Wireless -
Corsair ST100 RGB -
Elgato Stream Deck 15 Tasten -
AutoCAD MEP 2023 -
Revit 2021-2025

erstellt am: 21. Jan. 2026 11:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen.
Ich habe verzweifelt gesucht, aber nichts zum Filtern gefunden.
Gibt es eine Möglichkeit eine Schraffur, die keine Solid Schraffur ist und die Hintergrundfarbe "keine" hat zu Filtern?
Hier ist mein Code der soweit super funktioniert, nur eben auch bei Schraffuren die keine Hintergrundfarbe haben.

Code:
  (setq all-hatches (ssget "_X" '((0 . "HATCH") (-4 . "<NOT") (2 . "SOLID") (-4 . "NOT>"))))
  (if all-hatches
    (progn
      (setq total-hatches (sslength all-hatches))
      (setq counter 0)
      (while (< counter total-hatches)
        (setq hatch (ssname all-hatches counter))
       
        ; Change the hatch fill to PANTONE 9064 C for each hatch individually
        (command "_-HATCHEDIT" hatch "_CO" "9" "_Colorbook" "PANTONE+ Pastels & Neons Coated" "PANTONE 9064 C")
       
        (setq counter (1+ counter))
      )
      (princ (strcat "\n" (itoa total-hatches) " hatches modified."))
    )
    (princ "\nNo hatches found.")
  )
  (princ)
)

------------------
Gruß
Manuel

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 22759
Registriert: 03.06.2002

Alles

erstellt am: 21. Jan. 2026 12:15    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Manuel486 10 Unities + Antwort hilfreich

Schraffurauswahl


Mit Hintergrundfarbe
(sssetfirst nil (ssget '((0 . "HATCH")(-3 ("HATCHBACKGROUNDCOLOR")))))

Mit Hintergrundfarbe, ohne Schraffuren des Musters mit genau dem Namen: "SOLID"
(sssetfirst nil (ssget '((0 . "HATCH")(2 . "~SOLID")(-3 ("HATCHBACKGROUNDCOLOR")))))  ; editiert.12:28

Ohne Hintergrundfarbe
(sssetfirst nil (ssget '((0 . "HATCH")(-4 . "<not")(-3 ("HATCHBACKGROUNDCOLOR"))(-4 . "not>"))))

Ohne Hintergrundfarbe, ohne Schraffuren des Musters mit genau dem Namen: "SOLID"
(sssetfirst nil (ssget '((0 . "HATCH")(2 . "~SOLID")(-4 . "<not")(-3 ("HATCHBACKGROUNDCOLOR"))(-4 . "not>"))))

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

Manuel486
Mitglied
Technischer Zeichner Elektro


Sehen Sie sich das Profil von Manuel486 an!   Senden Sie eine Private Message an Manuel486  Schreiben Sie einen Gästebucheintrag für Manuel486

Beiträge: 215
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 -
Corsair Void Elite Wireless -
Corsair ST100 RGB -
Elgato Stream Deck 15 Tasten -
AutoCAD MEP 2023 -
Revit 2021-2025

erstellt am: 21. Jan. 2026 13:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Vielen vielen Dank.
Genau das habe ich gesucht.

------------------
Gruß
Manuel

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

Manuel486
Mitglied
Technischer Zeichner Elektro


Sehen Sie sich das Profil von Manuel486 an!   Senden Sie eine Private Message an Manuel486  Schreiben Sie einen Gästebucheintrag für Manuel486

Beiträge: 215
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 -
Corsair Void Elite Wireless -
Corsair ST100 RGB -
Elgato Stream Deck 15 Tasten -
AutoCAD MEP 2023 -
Revit 2021-2025

erstellt am: 22. Jan. 2026 08:49    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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 suchen würde, käme ich nicht dran außer über die Schnellauswahl!?

------------------
Gruß
Manuel

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 22759
Registriert: 03.06.2002

Alles

erstellt am: 22. Jan. 2026 09:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Manuel486 10 Unities + Antwort hilfreich

Moin

>"Wo ist so etwas Dokumentiert?"
-3 Ist der Gruppencode für Xdata, erweiterte Daten
  Was, Wie und warum da drin steht, ist in der DXF Referenz für gewöhnlich nicht dokumentiert,
das analysiert man selbst (oder stolpert bei der Recherche darüber)


>"Mit (entget(car(entsel)))"
Richtig, aber wenn du nur mal diese drei Standardfunktionen lernst, also die Hilfe liest und Tests durchführst,
dann siehst du ein optionales Argument bei entget.
(entget(car(entsel))'("*"))
Klicke jetzt mal auf ein Ansichtsfenster, Bemaßungen und andere Objekte mit untersch. Einstellungen.


>"Es gibt ja keinen DXF Code für die Hintergrundfarbe"
Ruchtig

>"Also wenn ich nach der Hintergrundfarbe 0,0,0 suchen würde, käme ich nicht dran außer über die Schnellauswahl"
Doch, das sollte gehen denke ich (sitze nicht am PC)

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen .... | Nach anderen Beiträgen suchen

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2026 CAD.de | Impressum | Datenschutz