Referend naar mijn topic : http://www.cadsite.be/smf/index.php?topic=5542.0 (http://www.cadsite.be/smf/index.php?topic=5542.0)
Op welke manier kan je RGB waarden in lisp ingeven?
groeten,
Manu
(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)
)
Goeiemorgen Roy,
Ik gaf bijna de moed op .. dus onwaarschijnlijk bedankt voor de aanpassing...
Je maakt mijn dag meer dan goed.. :vreegoe: :vreegoe: :vreegoe:
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...