[LISP函数]：RGB转化为Truecolor

eachy

2. 
   
3. ;;RGB -> TrueColor
   
4. ;;(RGBtoOLE_color '(123 125 168))
   
5. (defun RGBtoOLE_color (RGB-codes / r g b)
   
6.   (setq r (lsh (car RGB-codes) 16))
   
7.   (setq g (lsh (cadr RGB-codes) 8))
   
8.   (setq b (caddr RGB-codes))
   
9.   (+ (+ r g) b)
   
10. )

<br /> ;;RGB -> TrueColor<br /> ;;(RGBtoOLE_color '(123 125 168))<br /> (defun RGBtoOLE_color (RGB-codes / r g b)<br />   (setq r (lsh (car RGB-codes) 16))<br />   (setq g (lsh (cadr RGB-codes) 8))<br />   (setq b (caddr RGB-codes))<br />   (+ (+ r g) b)<br /> )

狂刀

cad的truecolor是负数，这个转换程序是正数，有何关联？

eachy

_$ (xdl-oletorgb (cdr (assoc 420 (entget (entlast)))))
(56 199 177)
_$ (xdl-rgbtoole '(56 199 177))
3721137
_$ (cdr (assoc 420 (entget (entlast))))
3721137
_$ (xdl-rgbtoaci '(56 199 177))
123
_$ (cdr (assoc 62 (entget (entlast))))
123
_$ (vla-get-color (vlax-ename->vla-object (entlast)))
123
_$ (assoc 420 (entget (entlast)))
(420 . 3721137)
_$ (assoc 62 (entget (entlast)))
(62 . 123)
_$

狂刀

与
(entmod  (append (entget (entlast)) (list(cons 62 123))))
(vla-get-EntityColor(vla-get-truecolor (vlax-ename->vla-object (entlast))))
-1023410053

的 entitycolor 有何内在联系？