VBA AutoCAD中的TrueColor属性不起作用

Question

我想使用VBA在AutoCAD 2013中更改线对象的TrueColor属性。

我使用了我在开发人员指南中找到的代码，但它不起作用。

代码是：

Dim VozniCrtaDesna As AcadLine
Set VozniCrtaDesna = ThisDrawing.ModelSpace.AddLine(Zero, KoncnaDesnaTocka)

Dim color As AcadAcCmColor
Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.16")
Call color.SetRGB(80, 100, 244)
VozniCrtaDesna.TrueColor = color

VozniCrtaDesna.Update

它会抛出错误：

Run-time error: '-2147221005 (800401f3)':
Problem in loading application

任何想法会出现什么问题？

感谢。 Špela

Answer 1

对于AutoCAD 2013/2014，您需要使用"AutoCAD.AcCmColor.19"。