---

Hallo.

Hat von euch vielleicht jemand eine LISP oder Befehlsstring,
der mir die Aufgabe oben im Betreff Ausführen würde ?
Das selbe müsste danach auch mit einer SOLID Schraffur gemacht werden, allesdings auf die Farbe PANTONE 9064 C.

Den Befehl zur Auswahl der Schraffur habe ich:
^C^C(sssetfirst nil (ssget "_X" '((0 . "HATCH")(410 . "Model"))))

Ich komme aber beim umlegen der Farbe nicht weiter.

Den Befehl abschließen würde ich dann mit HATCHTOBACK.

MFG
Manuel486

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

---

Servus, für die Farbe kann man ändern/_change verwenden.

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier. Schöne Grüsse aus der Steiermark  Bernd P.

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

---

Hallo Manuell,
mit folgendem Code müßte es funktionieren. Ich habe die Gruppencodes 420 und 430 in die Objektliste der Schraffuren angehängt, in AutoCAD 2019 funktioniert es.

Code:

---

(defun c:test ( / AWS N OBJLIST)
  (if (setq aws (ssget "_X" (list (cons 0 "HATCH")(cons 2 "SOLID"))))
    (progn
      (setq n 0)
      (repeat (sslength aws)
        (setq objList (vl-remove-if '(lambda(X)
                                      (member(car X)'(420 430)))
                        (entget(ssname aws n)))
              objList (append objList
                        (list '(420 . 15856094)
                              '(430 . "PANTONE+ Pastels & Neons Coated$PANTONE 9064 C"))))

        (entmod objList)
        (setq n (+ n 1)))
      (command "_.hatchtoback"))
    )
  (princ))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Multifilter Youtube

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

---

Um das handhaben von Farben zu vereinfachen hatte ich vor einiger Zeit hier mal was geschrieben.http://ww3.cad.de/foren/ubb/Forum145/HTML/004644.shtml#000015

------------------
Gruß Wolfgang

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

---

Der Befehl klappt sehr gut, danke dafür.
Ich habe mich aber etwas verkehrt ausgedrückt.

Ich möchte in einer Zeichnung folgendes tun, in genau dieser Reihenfolge:
- Alle Schraffuren auswählen -> auf Farbe 9 legen -> ganz nach unten legen
- Alle SOLID Schraffuren auswählen -> auf Farbe PANTONE 9064 C -> ganz nach unten

Zur Erklärung:
Es geht darum einen Architekten-Plan auf unsere Bedürfnisse "Aufzubereiten",
wenn ich also eine Wand habe mit einer ANSI31 Schraffur und darunter eine SOLID
z.B. als Brandschutzangabe, dann soll die ANSI31 auf Farbe 9 liegen und die SOLID auf Pantone.
Die SOLID muss immer unter allem anderen liegen, damit man Objekte darüber auch sieht ;-)

Habe versucht deinen Befehl auf Farbe 9 umzuschreiben aber er klappt nicht.

(defun c:test ( / AWS N OBJLIST)
  (if (setq aws (ssget "_X" (list (cons 0 "HATCH"))))
    (progn
      (setq n 0)
      (repeat (sslength aws)
        (setq objList (vl-remove-if '(lambda(X)
                                      (member(car X)'(62)))
                        (entget(ssname aws n)))
              objList (append objList
                        (list '(62 . 9))))
        (entmod objList)
        (setq n (+ n 1)))
      (command "_.hatchtoback"))
    )
  (princ))

Wärst du so nett und würdest mir das in einem Befehl zusammenfassen?!

MFG
Manuel486

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

---

Hallo Manuel,
wahrscheinlich müssen nur vorher eventuell bestehende Gruppencodes 420 und 430 entfernt werden.

Ungetestet:

Code:

---

(defun c:test ( / AWS N OBJLIST)
  (if (setq aws (ssget "_X" (list (cons 0 "HATCH"))))
    (progn
      (setq n 0)
      (repeat (sslength aws)
        (setq objList (vl-remove-if '(lambda(X)
                                      (member(car X)'(62 420 430)))
                        (entget(ssname aws n)))
              objList (append objList
                        (list '(62 . 9))))
        (entmod objList)
        (setq n (+ n 1)))
      (command "_.hatchtoback"))
    )
  (princ))

---

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Multifilter Youtube

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

---

Das ist der Befehl für die SOLIDS.
Er legt die Solids auf die richtige Farbe.

(defun c:Farben-umlegen ( / AWS N OBJLIST)
(defun c:test ( / AWS N OBJLIST)
  (if (setq aws (ssget "_X" (list (cons 2 "SOLID"))))
    (progn
      (setq n 0)
      (repeat (sslength aws)
        (setq objList (vl-remove-if '(lambda(X)
                                      (member(car X)'(420 430)))
                        (entget(ssname aws n)))
              objList (append objList
                        (list '(420 . 15856094)
                              '(430 . "PANTONE+ Pastels & Neons Coated$PANTONE 9064 C"))))
        (entmod objList)
        (setq n (+ n 1)))
      (command "_.hatchtoback"))
    )
  (princ))

Am Ende des Befehls steht:
5 Schraffurobjekt(e) werden nach hinten gesetzt.
Ich habe aber 2 SOLIDS und 3 ANSI Schraffuren in meiner Test Zeichnung.
(if (setq aws (ssget "_X" (list (cons 2 "SOLID")))) -> wählt nur SOLID aus
Die Farbe ändert er nur bei den SOLIDS wie es sein soll, aber er soll auch nur die SOLIDS nach hinten legen...
Der Befehl legt immer wieder alle Schraffuren nach hinten...

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

---

Zitat:

---

Original erstellt von Manuel486:

      (command "_.hatchtoback"))
 aber er soll auch nur die SOLIDS nach hinten legen...[/URL]

---

F1 - HatchToBack

Siehe auch, AutoCAD-Befehl: F1 - ZEICHREIHENF

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

---

Hier mal was zum Testen.

Code:

---

(defun c:test (/)
  (if (setq AWSHatch (ssget "_X" (list (cons 0 "HATCH"))))
    (progn
      (foreach teil (mapcar 'cadr (ssnameX AWSHatch))
(setpropertyvalue teil "Color" "9")
      )
      (command "draworder" AWSHatch "" "unten")
    )
  )
  (setq AWSHatch nil)
  (if (setq AWSHatch (ssget "_X" (list (cons 0 "HATCH") (cons 2 "SOLID"))))
(progn
    (foreach teil (mapcar 'cadr (ssnameX AWSHatch))
(setpropertyvalue teil "Color" "PANTONE+ Pastels & Neons Coated,PANTONE 9064 C")
      )
(command "draworder" AWSHatch "" "unten")
    )
  )
)

---

------------------
Gruß Wolfgang 

[Diese Nachricht wurde von Meldin am 07. Feb. 2020 editiert.]

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

---

Genau so brauche ich den Befehl 
Vielen dank.

Thema kann geschlossen werden.
Oder kann ich das auch selbst Grün abhaken?

MFG
Manuel486

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