---

Hallo,
wir haben von unserem Unterlieferanten DWG-Files bekommen, die zu den "üblichen" Farben 1-255 noch die Farben 0,255,255 (cyan), 255,255,0 (gelb) und 0,255,0 (grün) haben. Wenn wir diese dwg drucken, werden diese 3 Farben als Farbe gedruckt und nicht in schwarz, wie wir es benötigen. (wir müssen PDF-Dateien für den Kunden erstellen (DWG to PDF)). Wir arbeiten mit AutoCAD22. Da diese 3 Farben auch in Blöcken und im Zeichnungsrahmen zu finden sind, wäre der Aufwand die Farben 0,255,255 in cyan, 255,255,0 in gelb und 0,255,0 in grün umzuwandeln enorm. Hätte da jemand eine Idee? 

------------------
Gruß
M.S., die Locke

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

---

Servus,

PDF nochmal als Graustufen in PDF drucken...

------------------
<----- 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

---

Entweder oder kannst (d)einen Drucktreiber/Konfiguration auf schwarz/weiss einstellen (so einen "Drucker" sollte man ohnehin einmal für Papier wie auf PDF eingerichtet haben),
oder du benötigst ein Zusatzprogramm welches die DWG wirklich überarbeitet.

Den Teil für die Umrechnung/Übersetzung 'RGB2ACI' nehme ich von hier

und setze es in die Routine "alle durchlaufen" von hier ein,
das Ergebnis ist dieser Code:

Code:

---

; RGB2ACI swap
(defun c:RGB2ACI ( / BLOCK ITEM LSTA) ; Layercolors, Toplevel and nested Objects / No styles like mleader or dimensions, tables..

  (vl-load-com)

  (defun c:LayerColor-2-ACI ( / lay)
    (vl-load-com) ; https://ww3.cad.de/foren/ubb/Forum54/HTML/028165.shtml#000001
    (vlax-for lay (vla-get-layers (vla-get-ActiveDocument (vlax-get-acad-object)))
      (vla-put-color lay (vla-get-colorindex (vla-get-truecolor lay)))
    )
  )
  ; Layer
  (c:LayerColor-2-ACI)
 

  ; Lines&more
  (vlax-for BLOCK (vla-get-blocks(vla-get-activedocument (vlax-get-acad-object)))
    (vlax-for ITEM BLOCK
      (if (vlax-property-available-p ITEM 'Truecolor)
          (vl-catch-all-error-p
                  (vl-catch-all-apply
                    'vla-put-color (list ITEM (vla-get-colorindex (vla-get-truecolor ITEM)))))
      )
      ;;;Attribute
      (if (= (vla-get-Objectname ITEM) "AcDbBlockReference")
          (and
            (=(vla-get-hasattributes ITEM):vlax-true)
            (setq lstA (vlax-variant-value (vla-getattributes ITEM)))
            (= (vlax-safearray-get-dim lstA) 1)
            (<= (vlax-safearray-get-l-bound lstA 1)(vlax-safearray-get-u-bound lstA 1))
            (foreach ATT (vlax-safearray->list lstA)
     (if (vlax-property-available-p ATT 'Truecolor)
        (vl-catch-all-error-p
                 (vl-catch-all-apply
                   'vla-put-color (list ATT (vla-get-colorindex (vla-get-truecolor ATT)))))
     ) ;_if
            ) ;_foreach
          ) ;_ end of and
      ) ;_ end of if
    ) ;_vlax-for ITEM
  ) ;_vlax-for BLOCK
  (vla-Regen (vla-get-activedocument (vlax-get-acad-object)):vlax-true)
  (princ "\nDone\n")
  (princ)
)

---

Editiert 01.08.2023

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

---

Das Plotten in Graustufen funktioniert. Aber die Farbe GELB (also 255,255,0) ist definitiv zu hellgrau. Ich benötige die Farben schon als schwarz

------------------
Gruß
M.S., die Locke

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

---

Vielen Dank für dieses Makro.
Es funktioniert, auch bei Blöcken, nur wenn sich in den Blöcken Attribute befinden, werden diese leider nicht auf die richtige Farbe (yellow statt 255,255,0) gesetzt. Da muss ich noch nacharbeiten.
Aber es werden alle anderen Elemente mit den richtigen Farbindizes versehen.
Danke.

------------------
Gruß
M.S., die Locke

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

---

Zitat:

---

Original erstellt von dieLocke:
Vielen Dank für dieses Makro.
Es funktioniert, auch bei Blöcken, nur wenn sich in den Blöcken Attribute befinden

---

Schön das dieses kleine Lisp-Programm funktioniert.
Für den Fall das Attribute an den Blockreferenzen der Blöcke hängen,
habe ich den Code oben noch erweitert.

Test es mit dem jetzt überarbeiteten Code noch einmal, der ist nicht schön, sollte aber funktionieren.

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

---

Das wäre super, wenn auch die Attribute in den Blöcken geändert werden. Aber der überarbeitete Code? Wie sieht der aus?

Zitat:

---

Original erstellt von cadffm:

Schön das dieses kleine Lisp-Programm funktioniert.
Für den Fall das Attribute an den Blockreferenzen der Blöcke hängen,
habe ich den Code oben noch erweitert.

Test es mit dem jetzt überarbeiteten Code noch einmal, der ist nicht schön, sollte aber funktionieren.

---

------------------
Gruß
M.S., die Locke

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

---

Zitat:

---

Original erstellt von dieLocke:
Aber der überarbeitete Code? Wie sieht der aus?

---

Genau so wie auf diesem Bild:

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