input RGB waarden (opgelost door roy_043)

[Manu]

Referend naar mijn topic : http://www.cadsite.be/smf/index.php?topic=5542.0

Op welke manier kan je RGB waarden in lisp ingeven?

groeten,

Manu

[roy_043]

Code Selecteer Uitklappen


(defun c:laycolortest (/ colLst rgbLst trueColObject)
  (vl-load-com)
  (setq colLst
    '(
    ;  I   R   G   B
      (0   0   0   0)
      (1  76  76  76)
      (2 226 226 226)
      (3 150 150 150)
      (4 179 179 179)
      (5  29  29  29)
      (6 105 105 105)
    )
  )
  (vlax-for
    layer
    (vla-get-layers
      (vla-get-activedocument
        (vlax-get-acad-object)
      )
    )
    (if (setq rgbLst (cdr (assoc (vla-get-color layer) colLst)))
      (progn
        (setq trueColObject (vla-get-truecolor layer))
        (vla-setrgb trueColObject (car rgbLst) (cadr rgbLst) (caddr rgbLst))
        (vla-put-truecolor layer trueColObject)
      )
    )
  )
  (princ)
)


[Manu]

Goeiemorgen Roy,

Ik gaf bijna de moed op .. dus onwaarschijnlijk bedankt voor de aanpassing...
Je maakt mijn dag meer dan goed.. 
Ik werk de lijst af en post de hele zwik dan op het forum...

echt bedankt,

Manu

edit : @Roy: nog eens bedankt.. zie bijlage voor de lisp...