---

Hallo!

Hat bzw. kennt jemand ein Lisp, dass abhängig von den aktuellen Layerfarben, die Layerfarben auf einen entsprechende Grauwerte ändert?

Lg THE_ONE

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

---

Das Farbenwechseln sollte nicht das Problem sein .. aber was sind entsprechende Grauwerte?

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Ich will das ca. so wie beim Drucker haben. Da kann man auch sagen "Graustufen drucken". D.h. Gelb ist ein sehr helles grau, dunkelblau wird dann entsprechend ein sehr dunkles grau sein fast schon schwarz.

Ist das verständlich? Wenn nicht bitte sagen.
Lg THE_ONE

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

---

jo, ist klar.. was haste denn schon ?

Eine fertige ACI-> ACI(grau)-Tabelle?

Oder sollen prinzipiell auch Truecolorfarben berücksichtigt werden ?  .. hier mal was zu Umrechnungsmöglichkeiten...

Hast du schon einen Lispcode , für die Farbänderung bei Layern ? Oder haperts daran?

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von CADmium:
Eine fertige ACI-> ACI(grau)-Tabelle?

---

Was ist ACI, ist das was Autocad spezifisches. Ich weiß zwar ned was das ist aber ich glaube dass es genau das ist was ich brauche.

Zitat:

---

Original erstellt von CADmium:
Hast du schon einen Lispcode , für die Farbänderung bei Layern ? Oder haperts daran?

---

Nö, hab noch gar nicht angefangen Code zu schreiben, da ich bis jetzt noch auf eure Meinungen, Ideen und Infos gewartet habe. Hab mir gedacht vielleicht gibts ja sowas schon fertig, bzw sowas wurde schon mal gebraucht.

Lg THE_ONE

Geht das eigentlich über Plotstiele?? -> alle Layer sollen grau sein bis auf die Layout Layer und einem bestimmten weiteren Layer

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

---

Wenn es dir nur um das Plotten geht, ist die Plotstiltabelle die richtige Wahl -> Grayscale.ctb .. die kannst du dir auch anpassen, so das bestimmte Farben auch Farbig kommen

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Zitat:

---

Original erstellt von CADmium:
Wenn es dir nur um das Plotten geht, ist die Plotstiltabelle die richtige Wahl -> Grayscale.ctb .. die kannst du dir auch anpassen, so das bestimmte Farben auch Farbig kommen

---

Nö, würde gerne wirklich die Layerfarben verändern. Das mit dem Plotstil ist mir nur eingefallen da ich das ganze schnell mal ausdrucken muss und dem Chef zeigen. Eigentlich sollten da schon die Layerfarbe selbst geändert werden.
Außerdem bei den Plotstilen kann ich ja nur Farben zu Farben zuordnen und nicht Layer zu Farben -> also auch nicht das richtige!
(z.b. ich habe mehrer Layer mit der Farbe blau, aber nur einer davon soll wirklich blau sein alle anderen sollen grau sein)

Lg THE_ONE

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

---

Na genauso ein Programm was du dir wünscht ist mir noch nicht begegnet ... was alledings nicht heißen muß, dass es sowas nicht gibt( ich hab auch noch nie nach so etwas gesucht). Programmierbar ist es auf jeden Fall.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

1. Wie bekommt man eigentlich TRUE Color Werte aus Autocad heraus? Ich bekomme immer nur die ACI Werte heraus
2. Sollte es keine Weg geben die Turecolor Werte aus AutoCad herauszupressen, würde mich interessieren ob es eine Formel gibt die mir zu den ACI Werten die Truecolor Werte berechnet.

Lg THE_ONE

PS.:Außerdem ACI steht für AutoCad Color Index und damit ist diese Tabelle gemeint:

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

---

Hallo,
ein Code sagt mehr als viele Worte. Schau Dir mal dieses Beispiel an:

Code:

---

(defun c:vox-showlayco ( / i laytc)
  (vl-load-com)
  (vlax-for i (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
    (prompt (strcat "Layer " (vla-get-name i) " --> "))
    (prompt (strcat
              "rot: "
              (rtos (vla-get-red (setq laytc (vla-get-truecolor i))))
              ", grün: "
              (rtos (vla-get-green laytc))
              ", blau: "
              (rtos (vla-get-blue laytc))
              "\n"
            )
    )
  )
)

---

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

um die Truecolorwerte zu erhalten ... im Dialog werden sie mit angezeigt .... da gibts auch ActivX-Methoden im ACAD (-> mal das Ovject-Modell unter F1 bemühen), die das können oder du schaust mal auf Mapcars-Seiten .. der hatte das mal rechnerisch umgesetzt.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Hallo!

Danke herzlichst euch beiden! Hab hier die Seite von MapCar gefunden die du (CADmium) gemeint hast.
Dank Wronzky brauche ich diese Umrechnung jetzt nicht mehr (dafür gibt es 10 Unities,müssten schon bei dir sein)!

vla-get-truecolor
vla-get-red
vla-get-green
vla-get-blue -> diese Befehle sind wirklich klasse nur stehen die nicht in der Hilfe, oder??

Nun ist ein weiteres Problem aufgetaucht: Wie um alles in der Welt verändert man nun diese Werte?

Warum gibt es KEINE vla-put-red, vla-put-green und vla-put-blue Funktionen?
Hab mir also gedacht nimmste mal die: vlax-put-property Funktion, also tippte ich folgendes:

Code:

---

(vlax-put-property laytc "Red" greyv)

---

Beim Ausführen dann die Ernüchterung: ActiveX Server returned an error: Typkonflikt
Dann hab ich mal nachgeschaut was für eine Typ hat den dieses Ding nun:

Code:

---

(type (vlax-get-property laytc "Red"))

---

siehe da es ist ein INT genau wie mein greyv, also warum funktioniert das dann nicht?Schon etwas wirr das ganze oder?

So bin dann auf die Suche gegangen (Google mein Freund), und auf die Funktion vlax-dump-object gestoßen.

Code:

---

(vlax-dump-object laytc t)

---

und siehe da:

Code:

---

; IAcadAcCmColor: AutoCAD AcCmColor Interface
; Property values:
;   Blue (RO) = 255
;   BookName (RO) = ""
;   ColorIndex = 7
;   ColorMethod = 195
;   ColorName (RO) = ""
;   EntityColor = -1023410169
;   Green (RO) = 255
;   Red (RO) = 255
; Methods supported:
;   Delete ()
;   SetColorBookColor (2)
;   SetNames (2)
;   SetRGB (3)

---

Jetzt endlich wusste ich das es da was geben musste, immerhin stand da auch Methods supported. Nur leider gibt es die Funktion in der Visual Lisp Hilfe nicht sondern nur unter VBA. Daher wieder Freund Google bemüht und nach intensiver Suche auf vla-SetRGB gestoßen. Leider stand auf dieser Seite nicht das man noch irgendwas brauchen würde, daher habe ich einfach mal das ganze ausprobiert:

Code:

---

(vla-SetRGB laytc greyv greyv greyv)

---

Und siehe da keine Fehlermeldung, nur funktionieren tut es immer noch nicht. Die Farben sind genau so wie vorher. Aus irgendeinem Grund hatte ich nun die Eingebung dass ich vielleicht noch den Truecolorwert zurückschreiben müsste, und einfach mal die Funktion vla-put-truecolor eingetippt und siehe da es gibt sie.

Code:

---

(vla-put-truecolor layer laytc )

---

Und nun endlich funktioniert das ganze so wie ich das will, dazu mein fertiger Code:
       
Und hier nochmal als Text

Code:

---

(defun c:changetogrey()
  (vl-load-com)
  (vlax-for layer (vla-get-Layers(vla-get-activedocument(vlax-get-acad-object)))
    (progn
      (setq laytc(vla-get-truecolor layer))
      (setq greyv (fix (+ (* (vlax-get-property laytc "Red") 0.299)
  (* (vla-get-green laytc) 0.587)
  (* (vla-get-blue laytc) 0.114)
       )
  )
      )
      ;;;(print (strcat (itoa (vlax-get-property laytc "Red"))  "->" (itoa greyv) ))
      (vla-SetRGB laytc greyv greyv greyv)
      (vla-put-truecolor layer laytc )
      ;;;(vlax-dump-object laytc t) ;; hiermit werden Parameter und Methoden ausgegeben
    )
  )
)

---

Lg und Danke euch allen THE_ONE

Ps.: Wäre für euch Profis das alles klar gewesen?
z.B. ist es klar das es eine Funktion vla-SetRGB geben muss, wenn der dump einen Methodennamen SetRGB zurückgibt. Oder dass man danach noch zusätzlich ein Put auf das darüber liegende Objekt machen muss?
Für mich waren die letzten drei Stunden wirklich Nervenaufreibend und alles nur wegen zwei lächerlichen Zeilen Code.           

[Diese Nachricht wurde von THE_ONE am 10. Sep. 2008 editiert.]

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

---

...na also ...

und zum P.S. : Ja .. aber wir wollten dir das Erfolgserlebnis nicht nehmen  
.. und U's .. wo? Ach ja, ich hatte ja keinen Code gepostet 

------------------
      - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Ich weiß ja nicht wie es hier gehandhabt wird, aber man verteilt doch nicht für jede Antwort U's, bedankt habe ich mich ja wenigstens!
Wenn du mir erklärst warum es für dich so klar ist dann gibts Unities, ich bin ja nicht geizig  , nur ich will mich halt auch weiterbilden und mir muss das ganze was bringen.

Z.B.:Ist das immer so dass es zu jeder Methode die mir die dump Funktion liefert eine äquivalente vla- Funktion gibt? Und ist es dann immer so dass wenn ich eine solche Funktion verwende dass ich dann zusätzlich noch ein vlax-get-property bzw eine äquivalente vla-put Funktion aufrufen muss (hier z.B. vla-get-truecolor)? Und von wo weiß ich dass es solche Funktionen gibt wenn die nicht mal in der Hilfe stehen, einfach durch ausprobieren?

Mit bestem Dank THE_ONE

Ps.: für den Wiki Link bekommst du U's (sollten schon bei dir sein) weil der hat mich wirklich weitergebracht! 

[Diese Nachricht wurde von THE_ONE am 10. Sep. 2008 editiert.]

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

---

Die U's sind Nebensache und die werden von jedem persönlich anders gehandhabt und das war auch nicht von mir tierisch Ernst gemeint.

zu dem, "warum mir das klar ist" : Erfahrung .. ich hab halt öfter schon ähnliches gemacht .... und mit der Erfahrung kommt dann auch der Blick auf das Machbare und auch auf Umsetzgeschwindigkeit. Bei neueren (meist undokumentierten) Sachen bleibt aber meist bloß : selbst ausprobieren und testen (Wege hab ich dir IHMO gezeigt und einiges hast du ja auch selbst rausgefunden[ist auch nicht unbedingt selbstverständlich, dafür mal ein Lob  ])

Zugegeben die Dokumentation von ActiveX ist etwas dürftig .. aber prinzipiell findest du das Meiste in der Vlide-Onlinehife unter VBA-ActiveXReferenz oder so ähnlich und auch das Mapcar-Tutorial-ActivX bietet einen gewissen Einstieg.
Das Umstricken auf Lisp ist nach einer Weile gar nicht soo kompliziert

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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