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

No comments:

Post a Comment

Subscribe to the comments feed

Some of the latest blog posts

Subscribe to RSS headline updates from:
Powered by FeedBurner

Contact Us | About JTB World | Subscribe to this blog
JTB World's website | Website General Terms of Use | Privacy Policy
^ Top of page

© 2004- JTB World. All rights reserved.