Thursday, November 17, 2005

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

Some of the latest blog posts

Subscribe to RSS headline updates from:
Powered by FeedBurner