Code snippet to convert RGB to ACI

Here is a VBA function for AutoCAD that converts RGB values to ACI.

Function RGBtoACI(r As Long, g As Long, b As Long)
  Dim color As New AcadAcCmColor
  Call color.SetRGB(r, g, b)
  RGBtoACI = color.ColorIndex
End Function

Sub test()
  Debug.Print RGBtoACI(63, 127, 111)
End Sub