如何获得图层真彩色

啵浪鼓

目前图层为真彩色255,255,255，使用vla-gei-color和tblobjname获得的是7号色

自贡黄明儒

highflybird大师写的
;;;下面的是几个简单的颜色函数
;;;==========================
;;;把truecolordlg            
;;;420构成的数值返回RGB列表  
;;;==========================
(defun Number->RGB (color)
  (list        (lsh color -16)
        (lsh (lsh color 16) -24)
        (lsh (lsh color 24) -24)
  )
)
;;;==========================
;;;把truecolordlg            
;;;420构成的数值返回RGB列表.
;;;==========================
(defun RGB->Number (R G B)
  (+ (lsh R 16) (lsh G 8) B)
)

;;;==========================
;;;RGB转化成索引号           
;;;==========================
(defun RGB->Index (ColorObj r g b /)
  (if (and (equal 0 r 10) (equal 0 g 10) (equal 0 b 10))
    0
    (progn
      (vla-setRGB ColorObj r g b)
      (vla-get-ColorIndex ColorObj)
    )
  )
)

;;;==========================
;;;索引号转化成RGB           
;;;==========================
(defun Index->RGB (ColorObj ci /)
  (vla-put-ColorIndex ColorObj ci)
  (list        (vla-get-red ColorObj)
        (vla-get-green ColorObj)
        (vla-get-blue ColorObj)
  )
)

lijiao

2. ;;;lay是已经获取的layer对象
   
3. (setq cor (vla-get-TrueColor lay))    ;;;获取真彩对象
   
4. (setq Blue_cor (vla-get-Blue cor))    ;;;蓝色
   
5. (setq Green_cor (vla-get-Green cor))  ;;;绿色
   
6. (setq Red_cor (vla-get-Red cor))      ;;;红色

;;;lay是已经获取的layer对象<br /> (setq cor (vla-get-TrueColor lay))    ;;;获取真彩对象<br /> (setq Blue_cor (vla-get-Blue cor))    ;;;蓝色<br /> (setq Green_cor (vla-get-Green cor))  ;;;绿色<br /> (setq Red_cor (vla-get-Red cor))      ;;;红色

llsheng_73

直接获取

1. (setq Tcolor(vlax-get-property(vlax-invoke-method *layers 'item"0")'TrueColor))
   
2. (mapcar'(lambda(x)(vlax-get-property Tcolor x))'(Red Green Blue))

(setq Tcolor(vlax-get-property(vlax-invoke-method *layers 'item"0")'TrueColor))<br /> (mapcar'(lambda(x)(vlax-get-property Tcolor x))'(Red Green Blue))