（XD::Color:RGB2ACI）R G B 颜色转换成ACI索引色

newer

(defun XD::Color:RGB2ACI (r g b / col inx)
  (if (and
        (>= r 0)
        (< r 255)
        (>= g 0)
        (< g 255)
        (>= b 0)
        (< b 255)
      )
    (progn
      (setq clrObj (strcat "autocad.accmcolor." (itoa (atoi (getvar 'acadver)))))
      (setq col (vlax-create-object clrObj))
      (vla-setrgb col r g b)
      (setq inx (vlax-get-property col 'ColorIndex))
      (vlax-release-object col)
      inx
    )
  )
)

o0g9o0