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
Why I Am... "Autodesk University"
21 hours ago
No comments:
Post a Comment