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
Should ChatGPT be Renamed CliffGPT?
1 day ago
No comments:
Post a Comment